* Advanced demos:

- cleanup, set anchors for Speed, GeneralAbilities and Properties demos. 
 - Set forms BorderStyle to  bsNone

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1070 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/virtualtreeview-new/trunk/demos/advanced/GeneralAbilitiesDemo.pas

@@ -2,7 +2,6 @@ unit GeneralAbilitiesDemo;
 
 {$MODE Delphi}
 
-
 // Virtual Treeview sample form demonstrating following features:
 //   - General use and feel of TVirtualStringTree.
 //   - Themed/non-themed painting.
@@ -19,14 +18,6 @@ unit GeneralAbilitiesDemo;
 
 interface
 
-
-{$ifdef COMPILER_7_UP}
-  // For some things to work we need code, which is classified as being unsafe for .NET.
-  {$warn UNSAFE_TYPE off}
-  {$warn UNSAFE_CAST off}
-  {$warn UNSAFE_CODE off}
-{$endif COMPILER_7_UP}
-
 uses
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, Buttons, VTHeaderPopup, VirtualTrees, ComCtrls, ExtCtrls, Menus,
@@ -95,9 +86,7 @@ var
 implementation
 
 uses
-  {$ifdef Windows}
-  ShellAPI,
-  {$endif} Main, States;
+  Main, States;
 
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -124,7 +113,7 @@ var
 
 begin
   // Determine if we are running on Windows XP.
-  {$ifdef Windows}
+  {$ifdef LCLWin32}
   ThemeRadioGroup.Enabled := (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
   {$else}
   ThemeRadioGroup.Enabled := False;