* Update the advanced demo:

- Fix Column position in GeneralAbilities form
 - Load background images in speed and visibility forms
 - Fix Toolbar of Windows XP form

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

components/virtualtreeview-unstable/demos/advanced/GeneralAbilitiesDemo.lfm

@@ -3,8 +3,6 @@ object GeneralForm: TGeneralForm
   Height = 536
   Top = 185
   Width = 722
-  HorzScrollBar.Page = 721
-  VertScrollBar.Page = 535
   ActiveControl = VST2
   Caption = 'GeneralForm'
   ClientHeight = 536
@@ -14,21 +12,21 @@ object GeneralForm: TGeneralForm
   KeyPreview = True
   OnCreate = FormCreate
   ShowHint = True
-  LCLVersion = '0.9.25'
+  LCLVersion = '0.9.27'
   object Label18: TLabel
-    Left = 505
+    Left = 502
     Height = 14
     Top = 384
-    Width = 102
+    Width = 105
     Anchors = [akRight, akBottom]
     Caption = 'Switch check images:'
     ParentColor = False
   end
   object Label19: TLabel
-    Left = 507
+    Left = 506
     Height = 14
     Top = 432
-    Width = 97
+    Width = 98
     Anchors = [akRight, akBottom]
     Caption = 'Switch main column:'
     ParentColor = False
@@ -84,6 +82,7 @@ object GeneralForm: TGeneralForm
     HotCursor = crHandPoint
     Images = TreeImages
     ParentCtl3D = False
+    ParentFont = False
     RootNodeCount = 5
     ScrollBarOptions.VerticalIncrement = 19
     TabOrder = 0
@@ -108,7 +107,7 @@ object GeneralForm: TGeneralForm
     Columns = <    
       item
         ImageIndex = 10
-        Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+        Position = 1
         Spacing = 20
         Width = 300
         WideText = 'Initial main column'
@@ -118,14 +117,13 @@ object GeneralForm: TGeneralForm
         Color = 14737632
         MaxWidth = 22
         Options = [coEnabled, coParentBidiMode, coVisible]
-        Position = 1
         Spacing = 0
         Width = 22
         WideHint = 'Image only column.'
       end    
       item
         ImageIndex = 4
-        Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
+        Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
         Position = 2
         Spacing = 20
         Width = 300
@@ -139,7 +137,6 @@ object GeneralForm: TGeneralForm
     Top = 401
     Width = 200
     Anchors = [akRight, akBottom]
-    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
     ItemHeight = 13
     Items.Strings = (
       'Light check marks'
@@ -152,7 +149,6 @@ object GeneralForm: TGeneralForm
       'System check images'
       'System flat check images'
     )
-    MaxLength = 0
     OnChange = CheckMarkComboChange
     PopupMenu = PopupMenu1
     Style = csDropDownList

components/virtualtreeview-unstable/demos/advanced/WindowsXPStyleDemo.lfm

@@ -1,21 +1,19 @@
 object WindowsXPForm: TWindowsXPForm
-  Left = 386
+  Left = 376
-  Height = 487
+  Height = 449
   Top = 327
-  Width = 829
+  Width = 839
-  HorzScrollBar.Page = 828
-  VertScrollBar.Page = 486
   ActiveControl = XPTree
   Caption = 'WindowsXPForm'
-  ClientHeight = 487
+  ClientHeight = 449
-  ClientWidth = 829
+  ClientWidth = 839
   Font.CharSet = ANSI_CHARSET
   Font.Height = -13
   Font.Name = 'Microsoft Sans Serif'
   OnCreate = FormCreate
-  LCLVersion = '0.9.25'
+  LCLVersion = '0.9.27'
   object Label1: TLabel
-    Left = 576
+    Left = 575
     Height = 80
     Top = 56
     Width = 244
@@ -38,7 +36,7 @@ object WindowsXPForm: TWindowsXPForm
   end
   object Label4: TLabel
     Cursor = crHandPoint
-    Left = 577
+    Left = 576
     Height = 136
     Top = 256
     Width = 243
@@ -50,13 +48,13 @@ object WindowsXPForm: TWindowsXPForm
     Font.Height = -13
     Font.Name = 'Microsoft Sans Serif'
     ParentColor = False
+    ParentFont = False
     WordWrap = True
     OnClick = Label4Click
   end
   object XPTree: TVirtualStringTree
     Cursor = 63
-    Left = 8
+    Height = 408
-    Height = 416
     Top = 40
     Width = 554
     AutoScrollDelay = 500
@@ -123,82 +121,60 @@ object WindowsXPForm: TWindowsXPForm
         WideText = 'Type'
       end>
   end
-  object CoolBar1: TPanel
+  object ToolBar2: TToolBar
-    Height = 33
+    Height = 34
-    Width = 829
+    Width = 839
-    Align = alTop
+    ButtonHeight = 32
-    AutoSize = True
+    ButtonWidth = 32
-    ClientHeight = 33
+    Caption = 'ToolBar2'
-    ClientWidth = 829
+    Images = SmallImages
+    ShowCaptions = True
     TabOrder = 1
-    object ToolBar1: TToolBar
+    object ToolButton7: TToolButton
       Left = 1
-      Top = 1
+      Top = 2
-      Width = 827
+      ImageIndex = 9
-      AutoSize = True
+      Style = tbsDropDown
-      ButtonHeight = 30
+    end
-      ButtonWidth = 213
+    object ToolButton10: TToolButton
-      Caption = 'ToolBar1'
+      Left = 41
-      Images = SmallImages
+      Top = 2
-      List = True
+      ImageIndex = 10
-      ShowCaptions = True
+      Style = tbsDropDown
-      TabOrder = 0
+    end
-      Transparent = True
+    object ToolButton11: TToolButton
-      object ToolButton1: TToolButton
+      Left = 81
-        Left = 1
+      Top = 2
-        Top = 2
+      ImageIndex = 18
-        AutoSize = True
+    end
-        ImageIndex = 9
+    object ToolButton12: TToolButton
-        Style = tbsDropDown
+      Left = 113
-      end
+      Top = 2
-      object ToolButton2: TToolButton
+      ImageIndex = 14
-        Left = 47
+    end
-        Top = 2
+    object ToolButton13: TToolButton
-        AutoSize = True
+      Left = 145
-        ImageIndex = 10
+      Top = 2
-        Style = tbsDropDown
+      ImageIndex = 21
-      end
+    end
-      object ToolButton3: TToolButton
+    object ToolButton14: TToolButton
-        Left = 93
+      Left = 177
-        Top = 2
+      Top = 2
-        AutoSize = True
+      ImageIndex = 8
-        ImageIndex = 18
+      Style = tbsDropDown
-      end
+    end
-      object ToolButton4: TToolButton
+    object ToolButton15: TToolButton
-        Left = 127
+      Left = 217
-        Top = 2
+      Top = 2
-        AutoSize = True
+      Width = 8
-        ImageIndex = 14
+      Caption = 'ToolButton15'
-      end
+      Style = tbsSeparator
-      object ToolButton5: TToolButton
+    end
-        Left = 161
+    object ToolButton16: TToolButton
-        Top = 2
+      Left = 225
-        AutoSize = True
+      Top = 2
-        ImageIndex = 21
+      Caption = 'Click here to print the treeview.'
-      end
+      ImageIndex = 24
-      object ToolButton6: TToolButton
-        Left = 195
-        Top = 2
-        AutoSize = True
-        ImageIndex = 8
-        Style = tbsDropDown
-      end
-      object ToolButton8: TToolButton
-        Left = 241
-        Top = 2
-        Width = 8
-        Caption = 'ToolButton8'
-        ImageIndex = 9
-        Style = tbsSeparator
-      end
-      object ToolButton9: TToolButton
-        Left = 249
-        Top = 2
-        AutoSize = True
-        Caption = 'Click here to print the treeview.'
-        ImageIndex = 24
-        OnClick = ToolButton9Click
-      end
     end
   end
   object LargeImages: TImageList
@@ -4468,7 +4444,7 @@ object WindowsXPForm: TWindowsXPForm
     }
   end
   object PrintDialog: TPrintDialog
-    left = 568
+    left = 624
     top = 4
   end
 end

components/virtualtreeview-unstable/demos/advanced/WindowsXPStyleDemo.pas

@@ -28,22 +28,21 @@ type
   { TWindowsXPForm }
 
   TWindowsXPForm = class(TForm)
+    ToolBar2: TToolBar;
+    ToolButton10: TToolButton;
+    ToolButton11: TToolButton;
+    ToolButton12: TToolButton;
+    ToolButton13: TToolButton;
+    ToolButton14: TToolButton;
+    ToolButton15: TToolButton;
+    ToolButton16: TToolButton;
+    ToolButton7: TToolButton;
     XPTree: TVirtualStringTree;
     LargeImages: TImageList;
     SmallImages: TImageList;
-    CoolBar1: TPanel;
-    ToolBar1: TToolBar;
-    ToolButton1: TToolButton;
-    ToolButton2: TToolButton;
-    ToolButton3: TToolButton;
-    ToolButton4: TToolButton;
-    ToolButton5: TToolButton;
-    ToolButton6: TToolButton;
     Label1: TLabel;
     Label2: TLabel;
     Label4: TLabel;
-    ToolButton8: TToolButton;
-    ToolButton9: TToolButton;
     PrintDialog: TPrintDialog;
     procedure XPTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
       Column: TColumnIndex; var Ghosted: Boolean; var Index: Integer);