From c4aabadd57dce952098deca2cc461edc7b2819f8 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 26 Dec 2009 21:10:46 +0000
Subject: [PATCH] * Use OpenURL, adjust toolbar style and clear
 WindowsXPStyleDemo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1088 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../demos/advanced/WindowsXPStyleDemo.lfm     | 24 ++++++++++++-------
 .../demos/advanced/WindowsXPStyleDemo.pas     | 20 +++-------------
 2 files changed, 18 insertions(+), 26 deletions(-)

diff --git a/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm b/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm
index ee9705393..2fc16e78f 100644
--- a/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm
+++ b/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm
@@ -11,7 +11,7 @@ object WindowsXPForm: TWindowsXPForm
   Font.Height = -13
   Font.Name = 'Microsoft Sans Serif'
   OnCreate = FormCreate
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object Label1: TLabel
     Left = 575
     Height = 80
@@ -54,11 +54,11 @@ object WindowsXPForm: TWindowsXPForm
   end
   object XPTree: TVirtualStringTree
     Cursor = 63
+    Left = 0
     Height = 408
     Top = 40
     Width = 554
     AutoScrollDelay = 500
-    BorderStyle = bsSingle
     ButtonFillMode = fmShaded
     CheckImageKind = ckXP
     ClipboardFormats.Strings = (
@@ -80,6 +80,7 @@ object WindowsXPForm: TWindowsXPForm
       item
         Color = 16250871
         Options = [coAllowClick, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible]
+        Position = 0
         Text = 'Name'
         Width = 200
       end    
@@ -94,6 +95,7 @@ object WindowsXPForm: TWindowsXPForm
         Text = 'Type'
         Width = 100
       end>
+    Header.DefaultHeight = 17
     Header.Font.CharSet = ANSI_CHARSET
     Header.Font.Height = -12
     Header.Font.Name = 'Microsoft Sans Serif'
@@ -122,12 +124,15 @@ object WindowsXPForm: TWindowsXPForm
     OnStateChange = XPTreeStateChange
   end
   object ToolBar2: TToolBar
+    Left = 0
     Height = 34
+    Top = 0
     Width = 839
     ButtonHeight = 32
     ButtonWidth = 32
     Caption = 'ToolBar2'
     Images = SmallImages
+    List = True
     ShowCaptions = True
     TabOrder = 1
     object ToolButton7: TToolButton
@@ -137,44 +142,45 @@ object WindowsXPForm: TWindowsXPForm
       Style = tbsDropDown
     end
     object ToolButton10: TToolButton
-      Left = 41
+      Left = 47
       Top = 2
       ImageIndex = 10
       Style = tbsDropDown
     end
     object ToolButton11: TToolButton
-      Left = 81
+      Left = 93
       Top = 2
       ImageIndex = 18
     end
     object ToolButton12: TToolButton
-      Left = 113
+      Left = 127
       Top = 2
       ImageIndex = 14
     end
     object ToolButton13: TToolButton
-      Left = 145
+      Left = 161
       Top = 2
       ImageIndex = 21
     end
     object ToolButton14: TToolButton
-      Left = 177
+      Left = 195
       Top = 2
       ImageIndex = 8
       Style = tbsDropDown
     end
     object ToolButton15: TToolButton
-      Left = 217
+      Left = 241
       Top = 2
       Width = 8
       Caption = 'ToolButton15'
       Style = tbsSeparator
     end
     object ToolButton16: TToolButton
-      Left = 225
+      Left = 249
       Top = 2
       Caption = 'Click here to print the treeview.'
       ImageIndex = 24
+      OnClick = ToolButton9Click
     end
   end
   object LargeImages: TImageList
diff --git a/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas b/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas
index f1194a3da..2baac0994 100644
--- a/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas
+++ b/components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas
@@ -8,17 +8,7 @@ unit WindowsXPStyleDemo;
 
 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
-  {$ifdef VER140}
-    Variants,
-  {$endif}
   LCLIntf, SysUtils, Classes, Graphics, Controls, Forms,
   Dialogs, VirtualTrees, ComCtrls, Menus, StdCtrls,
   LResources, Printers, PrintersDlgs, ExtCtrls;
@@ -71,9 +61,6 @@ var
 implementation
 
 uses
-  {$ifdef Windows}
-  ShellAPI,
-  {$endif}
   Main, States;
 
 
@@ -265,8 +252,7 @@ end;
 procedure TWindowsXPForm.Label4Click(Sender: TObject);
 
 begin
-  //todo
-  //ShellExecute(0, 'open', 'http://groups.yahoo.com/group/VirtualExplorerTree', nil, nil, SW_SHOW);
+  OpenURL('http://groups.yahoo.com/group/VirtualExplorerTree');
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -274,8 +260,8 @@ end;
 procedure TWindowsXPForm.ToolButton9Click(Sender: TObject);
 
 begin
-  //todo
-  //if PrintDialog.Execute then
+  //todo: implement Print support in VTV
+  //if PrintDialog.Execute then ;
   //  XPTree.Print(Printer, False);
 end;