pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix compilation of demos

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4136 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2015-05-17 12:56:01 +00:00
parent f2794f8c30
commit 0acdd76ea1
16 changed files with 146 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/virtualtreeview-new/trunk/demos/advanced/Advanced.lpi
View File

@@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@@ -42,7 +42,6 @@
<Unit0> <Unit0>
<Filename Value="Advanced.lpr"/> <Filename Value="Advanced.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Advanced"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="WindowsXPStyleDemo.pas"/> <Filename Value="WindowsXPStyleDemo.pas"/>
@@ -58,7 +57,6 @@
<ComponentName Value="AlignForm"/> <ComponentName Value="AlignForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="AlignDemo"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="DrawTreeDemo.pas"/> <Filename Value="DrawTreeDemo.pas"/>
@@ -66,12 +64,10 @@
<ComponentName Value="DrawTreeForm"/> <ComponentName Value="DrawTreeForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="DrawTreeDemo"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="Editors.pas"/> <Filename Value="Editors.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Editors"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="GeneralAbilitiesDemo.pas"/> <Filename Value="GeneralAbilitiesDemo.pas"/>
@@ -79,7 +75,6 @@
<ComponentName Value="GeneralForm"/> <ComponentName Value="GeneralForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="GeneralAbilitiesDemo"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="GridDemo.pas"/> <Filename Value="GridDemo.pas"/>
@@ -87,7 +82,6 @@
<ComponentName Value="GridForm"/> <ComponentName Value="GridForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="GridDemo"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="HeaderCustomDrawDemo.pas"/> <Filename Value="HeaderCustomDrawDemo.pas"/>
@@ -95,7 +89,6 @@
<ComponentName Value="HeaderOwnerDrawForm"/> <ComponentName Value="HeaderOwnerDrawForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="HeaderCustomDrawDemo"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="Main.pas"/> <Filename Value="Main.pas"/>
@@ -103,7 +96,6 @@
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Main"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="MultilineDemo.pas"/> <Filename Value="MultilineDemo.pas"/>
@@ -111,7 +103,6 @@
<ComponentName Value="NodeForm"/> <ComponentName Value="NodeForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="MultilineDemo"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="PropertiesDemo.pas"/> <Filename Value="PropertiesDemo.pas"/>
@@ -119,7 +110,6 @@
<ComponentName Value="PropertiesForm"/> <ComponentName Value="PropertiesForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="PropertiesDemo"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="SpeedDemo.pas"/> <Filename Value="SpeedDemo.pas"/>
@@ -127,7 +117,6 @@
<ComponentName Value="SpeedForm"/> <ComponentName Value="SpeedForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="SpeedDemo"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="States.pas"/> <Filename Value="States.pas"/>
@@ -143,12 +132,10 @@
<ComponentName Value="VisibilityForm"/> <ComponentName Value="VisibilityForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="VisibilityDemo"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="shlobjext.pas"/> <Filename Value="shlobjext.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="shlobjext"/>
</Unit14> </Unit14>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
@@ -160,8 +147,5 @@
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

211
components/virtualtreeview-new/trunk/demos/advanced/States.lfm
View File

@@ -1,7 +1,7 @@
object StateForm: TStateForm object StateForm: TStateForm
Left = 403 Left = 396
Height = 589 Height = 589
Top = 147 Top = 91
Width = 478 Width = 478
HorzScrollBar.Page = 477 HorzScrollBar.Page = 477
VertScrollBar.Page = 588 VertScrollBar.Page = 588
@@ -12,11 +12,12 @@ object StateForm: TStateForm
ClientWidth = 478 ClientWidth = 478
Font.Height = -14 Font.Height = -14
Font.Name = 'Arial Narrow' Font.Name = 'Arial Narrow'
LCLVersion = '1.4.0.4'
object EnableCheckBox: TCheckBox object EnableCheckBox: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 14 Top = 14
Width = 120 Width = 153
Caption = 'Enable state tracking' Caption = 'Enable state tracking'
OnClick = EnableCheckBoxClick OnClick = EnableCheckBoxClick
TabOrder = 0 TabOrder = 0
@@ -27,41 +28,41 @@ object StateForm: TStateForm
Top = 41 Top = 41
Width = 228 Width = 228
Caption = ' Changes: ' Caption = ' Changes: '
ClientHeight = 78 ClientHeight = 75
ClientWidth = 224 ClientWidth = 224
TabOrder = 1 TabOrder = 1
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 1 Top = 1
Width = 98 Width = 125
Caption = 'Change pending' Caption = 'Change pending'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox3: TCheckBox object CheckBox3: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 19 Top = 19
Width = 127 Width = 162
Caption = 'Toggle focus selection' Caption = 'Toggle focus selection'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox4: TCheckBox object CheckBox4: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 37 Top = 37
Width = 85 Width = 109
Caption = 'Clear pending' Caption = 'Clear pending'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox32: TCheckBox object CheckBox32: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 54 Top = 54
Width = 143 Width = 184
Caption = 'Structure change pending' Caption = 'Structure change pending'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
@@ -73,77 +74,77 @@ object StateForm: TStateForm
Top = 245 Top = 245
Width = 228 Width = 228
Caption = ' Mouse actions: ' Caption = ' Mouse actions: '
ClientHeight = 151 ClientHeight = 148
ClientWidth = 224 ClientWidth = 224
TabOrder = 2 TabOrder = 2
object CheckBox8: TCheckBox object CheckBox8: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 115 Top = 115
Width = 131 Width = 167
Caption = 'Draw selection pending' Caption = 'Draw selection pending'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox9: TCheckBox object CheckBox9: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 131 Top = 131
Width = 90 Width = 112
Caption = 'Draw selecting' Caption = 'Draw selecting'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox19: TCheckBox object CheckBox19: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 3 Top = 3
Width = 134 Width = 171
Caption = 'Left mouse button down' Caption = 'Left mouse button down'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox20: TCheckBox object CheckBox20: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 21 Top = 21
Width = 126 Width = 158
Caption = 'Mouse check pending' Caption = 'Mouse check pending'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object CheckBox21: TCheckBox object CheckBox21: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 39 Top = 39
Width = 147 Width = 188
Caption = 'Middle mouse button down' Caption = 'Middle mouse button down'
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
end end
object CheckBox27: TCheckBox object CheckBox27: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 59 Top = 59
Width = 141 Width = 180
Caption = 'Right mouse button down' Caption = 'Right mouse button down'
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 5
end end
object CheckBox43: TCheckBox object CheckBox43: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 77 Top = 77
Width = 124 Width = 157
Caption = 'Mouse wheel panning' Caption = 'Mouse wheel panning'
Enabled = False Enabled = False
TabOrder = 6 TabOrder = 6
end end
object CheckBox44: TCheckBox object CheckBox44: TCheckBox
Left = 6 Left = 6
Height = 13 Height = 20
Top = 95 Top = 95
Width = 124 Width = 158
Caption = 'Mouse wheel scrolling' Caption = 'Mouse wheel scrolling'
Enabled = False Enabled = False
TabOrder = 7 TabOrder = 7
@@ -155,50 +156,50 @@ object StateForm: TStateForm
Top = 313 Top = 313
Width = 210 Width = 210
Caption = ' Keyboard actions: ' Caption = ' Keyboard actions: '
ClientHeight = 96 ClientHeight = 93
ClientWidth = 206 ClientWidth = 206
TabOrder = 3 TabOrder = 3
object CheckBox10: TCheckBox object CheckBox10: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 17 Top = 17
Width = 52 Width = 63
Caption = 'Editing' Caption = 'Editing'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox11: TCheckBox object CheckBox11: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 35 Top = 35
Width = 79 Width = 99
Caption = 'Edit pending' Caption = 'Edit pending'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox15: TCheckBox object CheckBox15: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 72 Top = 72
Width = 164 Width = 215
Caption = 'Incremental search in progress' Caption = 'Incremental search in progress'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox16: TCheckBox object CheckBox16: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 54 Top = 54
Width = 151 Width = 195
Caption = 'Incremental search pending' Caption = 'Incremental search pending'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object CheckBox18: TCheckBox object CheckBox18: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = -1 Top = -1
Width = 112 Width = 140
Caption = 'Key check pending' Caption = 'Key check pending'
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
@@ -210,77 +211,77 @@ object StateForm: TStateForm
Top = 41 Top = 41
Width = 210 Width = 210
Caption = ' Clipboard and drag''n drop actions: ' Caption = ' Clipboard and drag''n drop actions: '
ClientHeight = 150 ClientHeight = 147
ClientWidth = 206 ClientWidth = 206
TabOrder = 4 TabOrder = 4
object CheckBox5: TCheckBox object CheckBox5: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 92 Top = 92
Width = 103 Width = 134
Caption = 'Clipboard flushing' Caption = 'Clipboard flushing'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox6: TCheckBox object CheckBox6: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 110 Top = 110
Width = 131 Width = 170
Caption = 'Clipboard copy pending' Caption = 'Clipboard copy pending'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox7: TCheckBox object CheckBox7: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 128 Top = 128
Width = 123 Width = 159
Caption = 'Clipboard cut pending' Caption = 'Clipboard cut pending'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox24: TCheckBox object CheckBox24: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 74 Top = 74
Width = 151 Width = 200
Caption = 'OLE drag''n drop in progress' Caption = 'OLE drag''n drop in progress'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object CheckBox25: TCheckBox object CheckBox25: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 56 Top = 56
Width = 138 Width = 180
Caption = 'OLE drag''n drop pending' Caption = 'OLE drag''n drop pending'
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
end end
object CheckBox37: TCheckBox object CheckBox37: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 37 Top = 37
Width = 157 Width = 202
Caption = 'VCL dd with app. drag object' Caption = 'VCL dd with app. drag object'
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 5
end end
object CheckBox41: TCheckBox object CheckBox41: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 1 Top = 1
Width = 150 Width = 199
Caption = 'VCL drag''n drop in progress' Caption = 'VCL drag''n drop in progress'
Enabled = False Enabled = False
TabOrder = 6 TabOrder = 6
end end
object CheckBox42: TCheckBox object CheckBox42: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 19 Top = 19
Width = 137 Width = 179
Caption = 'VCL drag''n drop pending' Caption = 'VCL drag''n drop pending'
Enabled = False Enabled = False
TabOrder = 7 TabOrder = 7
@@ -292,41 +293,41 @@ object StateForm: TStateForm
Top = 141 Top = 141
Width = 228 Width = 228
Caption = ' Tree cache: ' Caption = ' Tree cache: '
ClientHeight = 78 ClientHeight = 75
ClientWidth = 224 ClientWidth = 224
TabOrder = 5 TabOrder = 5
object CheckBox31: TCheckBox object CheckBox31: TCheckBox
Left = 11 Left = 11
Height = 13 Height = 20
Top = 3 Top = 3
Width = 184 Width = 239
Caption = 'Tree cache validation stop request' Caption = 'Tree cache validation stop request'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox36: TCheckBox object CheckBox36: TCheckBox
Left = 11 Left = 11
Height = 13 Height = 20
Top = 51 Top = 51
Width = 100 Width = 125
Caption = 'Tree cache valid' Caption = 'Tree cache valid'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox39: TCheckBox object CheckBox39: TCheckBox
Left = 11 Left = 11
Height = 13 Height = 20
Top = 19 Top = 19
Width = 160 Width = 206
Caption = 'Tree cache is being validated' Caption = 'Tree cache is being validated'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox40: TCheckBox object CheckBox40: TCheckBox
Left = 11 Left = 11
Height = 13 Height = 20
Top = 35 Top = 35
Width = 158 Width = 204
Caption = 'Tree cache invalid or unused' Caption = 'Tree cache invalid or unused'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
@@ -338,41 +339,41 @@ object StateForm: TStateForm
Top = 209 Top = 209
Width = 210 Width = 210
Caption = ' Collapse/Expand/Scroll: ' Caption = ' Collapse/Expand/Scroll: '
ClientHeight = 87 ClientHeight = 84
ClientWidth = 206 ClientWidth = 206
TabOrder = 6 TabOrder = 6
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 7 Top = 7
Width = 132 Width = 174
Caption = 'Full collapse in progress' Caption = 'Full collapse in progress'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox12: TCheckBox object CheckBox12: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 25 Top = 25
Width = 128 Width = 168
Caption = 'Full expand in progress' Caption = 'Full expand in progress'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox28: TCheckBox object CheckBox28: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 43 Top = 43
Width = 60 Width = 74
Caption = 'Scrolling' Caption = 'Scrolling'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox29: TCheckBox object CheckBox29: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 62 Top = 62
Width = 110 Width = 141
Caption = 'Auto scroll pending' Caption = 'Auto scroll pending'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
@@ -384,59 +385,59 @@ object StateForm: TStateForm
Top = 432 Top = 432
Width = 210 Width = 210
Caption = ' Miscellanous: ' Caption = ' Miscellanous: '
ClientHeight = 123 ClientHeight = 120
ClientWidth = 206 ClientWidth = 206
TabOrder = 7 TabOrder = 7
object CheckBox13: TCheckBox object CheckBox13: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 26 Top = 26
Width = 161 Width = 205
Caption = 'Last hint window was from VT' Caption = 'Last hint window was from VT'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox14: TCheckBox object CheckBox14: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 63 Top = 63
Width = 77 Width = 96
Caption = 'In animation' Caption = 'In animation'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox17: TCheckBox object CheckBox17: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 81 Top = 81
Width = 58 Width = 71
Caption = 'Iterating' Caption = 'Iterating'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox23: TCheckBox object CheckBox23: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 44 Top = 44
Width = 133 Width = 169
Caption = 'Need root count update' Caption = 'Need root count update'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object CheckBox33: TCheckBox object CheckBox33: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 8 Top = 8
Width = 143 Width = 183
Caption = 'Synchronous mode active' Caption = 'Synchronous mode active'
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
end end
object CheckBox46: TCheckBox object CheckBox46: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 99 Top = 99
Width = 114 Width = 144
Caption = 'Popup menu shown' Caption = 'Popup menu shown'
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 5
@@ -448,68 +449,68 @@ object StateForm: TStateForm
Top = 422 Top = 422
Width = 228 Width = 228
Caption = ' Window related actions: ' Caption = ' Window related actions: '
ClientHeight = 132 ClientHeight = 129
ClientWidth = 224 ClientWidth = 224
TabOrder = 8 TabOrder = 8
object CheckBox22: TCheckBox object CheckBox22: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 114 Top = 109
Width = 141 Width = 181
Caption = 'Default node height scale' Caption = 'Default node height scale'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
end end
object CheckBox26: TCheckBox object CheckBox26: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 58 Top = 58
Width = 82 Width = 104
Caption = 'Tree painting' Caption = 'Tree painting'
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
end end
object CheckBox30: TCheckBox object CheckBox30: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 38 Top = 38
Width = 97 Width = 121
Caption = 'Window resizing' Caption = 'Window resizing'
Enabled = False Enabled = False
TabOrder = 2 TabOrder = 2
end end
object CheckBox34: TCheckBox object CheckBox34: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 74 Top = 74
Width = 136 Width = 178
Caption = 'Tumb tracking (scrollbar)' Caption = 'Tumb tracking (scrollbar)'
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object CheckBox35: TCheckBox object CheckBox35: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 90 Top = 90
Width = 95 Width = 117
Caption = 'Updates locked' Caption = 'Updates locked'
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
end end
object CheckBox38: TCheckBox object CheckBox38: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 2 Top = 2
Width = 186 Width = 239
Caption = 'Windows XP Theme support in use' Caption = 'Windows XP Theme support in use'
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 5
end end
object CheckBox45: TCheckBox object CheckBox45: TCheckBox
Left = 9 Left = 9
Height = 13 Height = 20
Top = 20 Top = 20
Width = 179 Width = 231
Caption = 'Treewindow is under construction' Caption = 'Treewindow is under construction'
Enabled = False Enabled = False
TabOrder = 6 TabOrder = 6

2
components/virtualtreeview-new/trunk/demos/advanced/States.pas
View File

@@ -115,7 +115,7 @@ begin
SetActiveState(CheckBox19, tsLeftButtonDown in NewStates); SetActiveState(CheckBox19, tsLeftButtonDown in NewStates);
SetActiveState(CheckBox20, tsMouseCheckPending in NewStates); SetActiveState(CheckBox20, tsMouseCheckPending in NewStates);
SetActiveState(CheckBox21, tsMiddleButtonDown in NewStates); SetActiveState(CheckBox21, tsMiddleButtonDown in NewStates);
SetActiveState(CheckBox22, tsNeedScale in NewStates); //SetActiveState(CheckBox22, tsNeedScale in NewStates);
SetActiveState(CheckBox23, tsNeedRootCountUpdate in NewStates); SetActiveState(CheckBox23, tsNeedRootCountUpdate in NewStates);
SetActiveState(CheckBox24, tsOLEDragging in NewStates); SetActiveState(CheckBox24, tsOLEDragging in NewStates);
SetActiveState(CheckBox25, tsOLEDragPending in NewStates); SetActiveState(CheckBox25, tsOLEDragPending in NewStates);

1
components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm
View File

@@ -99,7 +99,6 @@ object WindowsXPForm: TWindowsXPForm
Header.Font.Name = 'Microsoft Sans Serif' Header.Font.Name = 'Microsoft Sans Serif'
Header.Height = 24 Header.Height = 24
Header.Options = [hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.Style = hsXPStyle
HintMode = hmHint HintMode = hmHint
Images = LargeImages Images = LargeImages
ParentShowHint = False ParentShowHint = False

29
components/virtualtreeview-new/trunk/demos/dataarray/Main.lfm
View File

@@ -12,30 +12,30 @@ object Form1: TForm1
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.0.8.0' LCLVersion = '1.4.0.4'
object Label1: TLabel object Label1: TLabel
Left = 246 Left = 247
Height = 14 Height = 13
Top = 348 Top = 349
Width = 152 Width = 151
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Array data of the clicked node:' Caption = 'Array data of the clicked node:'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 258 Left = 259
Height = 14 Height = 13
Top = 382 Top = 383
Width = 222 Width = 221
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Find and show the node by specific array index' Caption = 'Find and show the node by specific array index'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 261 Left = 262
Height = 14 Height = 13
Top = 398 Top = 399
Width = 237 Width = 236
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Type index to get related tree node on the screen:' Caption = 'Type index to get related tree node on the screen:'
ParentColor = False ParentColor = False
@@ -104,6 +104,7 @@ object Form1: TForm1
Width = 641 Width = 641
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoScrollDelay = 1 AutoScrollDelay = 1
Colors.UnfocusedColor = clMedGray
DefaultText = 'Node' DefaultText = 'Node'
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Columns = < Header.Columns = <
@@ -126,9 +127,9 @@ object Form1: TForm1
Header.DefaultHeight = 17 Header.DefaultHeight = 17
Header.Font.Height = -11 Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif' Header.Font.Name = 'MS Sans Serif'
Header.Height = 17
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
Header.SortColumn = 0 Header.SortColumn = 0
Header.Style = hsXPStyle
RootNodeCount = 10 RootNodeCount = 10
TabOrder = 5 TabOrder = 5
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]

3
components/virtualtreeview-new/trunk/demos/dataarray/Main.pas
View File

@@ -332,9 +332,6 @@ begin
MyTree.Header.Options := MyTree.Header.Options :=
MyTree.Header.Options + [hoVisible]; MyTree.Header.Options + [hoVisible];
// Shows the header like XP does
MyTree.Header.Style := hsXPStyle;
// Allows multi selection of nodes // Allows multi selection of nodes
MyTree.TreeOptions.SelectionOptions := MyTree.TreeOptions.SelectionOptions :=
MyTree.TreeOptions.SelectionOptions +[toMultiSelect]; MyTree.TreeOptions.SelectionOptions +[toMultiSelect];

6
components/virtualtreeview-new/trunk/demos/dataarray/dataarray.lpi
View File

@@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@@ -40,7 +40,6 @@
<Unit0> <Unit0>
<Filename Value="dataarray.lpr"/> <Filename Value="dataarray.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="dataarray"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="Main.pas"/> <Filename Value="Main.pas"/>
@@ -67,8 +66,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

1
components/virtualtreeview-new/trunk/demos/images/Unit1.lfm
View File

@@ -57,7 +57,6 @@ object Form1: TForm1
Header.Images = ImageList1 Header.Images = ImageList1
Header.Options = [hoColumnResize, hoDrag, hoShowImages, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDrag, hoShowImages, hoShowSortGlyphs, hoVisible]
Header.SortColumn = 0 Header.SortColumn = 0
Header.Style = hsXPStyle
StateImages = ImageList2 StateImages = ImageList2
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking]

7
components/virtualtreeview-new/trunk/demos/images/images.lpi
View File

@@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@@ -9,6 +9,7 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<UseXPManifest Value="True"/>
</General> </General>
<VersionInfo> <VersionInfo>
<StringTable ProductVersion=""/> <StringTable ProductVersion=""/>
@@ -39,7 +40,6 @@
<Unit0> <Unit0>
<Filename Value="images.lpr"/> <Filename Value="images.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="images"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="Unit1.pas"/> <Filename Value="Unit1.pas"/>
@@ -66,8 +66,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

2
components/virtualtreeview-new/trunk/demos/images/images.lpr
View File

@@ -16,6 +16,8 @@ uses
{$endif} {$endif}
; ;
{$R *.res}
begin begin
{$ifdef DEBUG_VTV} {$ifdef DEBUG_VTV}
Logger.Channels.Add(TIPCChannel.Create); Logger.Channels.Add(TIPCChannel.Create);

4
components/virtualtreeview-new/trunk/demos/objects/MVCTypes.pas
View File

@@ -217,7 +217,7 @@ type { TMVCNode is the encapsulation of a single Node in the structure.
details on what they do and why they are overridden. } details on what they do and why they are overridden. }
function DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer; override; function DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer; override;
procedure DoPaintNode(var PaintInfo: TVTPaintInfo); override; procedure DoPaintNode(var PaintInfo: TVTPaintInfo); override;
procedure DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal); override; function DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal): Boolean; override;
procedure DoInitNode(aParent,aNode:PVirtualNode; procedure DoInitNode(aParent,aNode:PVirtualNode;
var aInitStates:TVirtualNodeInitStates); override; var aInitStates:TVirtualNodeInitStates); override;
procedure DoFreeNode(aNode:PVirtualNode); override; procedure DoFreeNode(aNode:PVirtualNode); override;
@@ -735,7 +735,7 @@ begin
inherited DoFreeNode(aNode); inherited DoFreeNode(aNode);
end; end;
procedure TMVCTreeView.DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal); function TMVCTreeView.DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal): Boolean;
begin begin
inherited DoInitChildren(Node,ChildCount); inherited DoInitChildren(Node,ChildCount);
ChildCount:=MVCNode[Node].ChildCount; ChildCount:=MVCNode[Node].ChildCount;

7
components/virtualtreeview-new/trunk/demos/objects/mvcdemo.lpi
View File

@@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@@ -43,7 +43,6 @@
<Unit0> <Unit0>
<Filename Value="mvcdemo.lpr"/> <Filename Value="mvcdemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mvcdemo"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="MVCDemoMain.pas"/> <Filename Value="MVCDemoMain.pas"/>
@@ -56,7 +55,6 @@
<Unit2> <Unit2>
<Filename Value="MVCPanel.pas"/> <Filename Value="MVCPanel.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="MVCPanel"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="MVCTypes.pas"/> <Filename Value="MVCTypes.pas"/>
@@ -73,8 +71,5 @@
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

15
components/virtualtreeview-new/trunk/demos/vtbasic/Main.lfm
View File

@@ -12,9 +12,11 @@ object frmMain: TfrmMain
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poDefaultPosOnly Position = poDefaultPosOnly
LCLVersion = '0.9.27' LCLVersion = '1.4.0.4'
object panMain: TPanel object panMain: TPanel
Left = 0
Height = 254 Height = 254
Top = 0
Width = 401 Width = 401
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@@ -44,8 +46,9 @@ object frmMain: TfrmMain
Top = 7 Top = 7
Width = 387 Width = 387
Align = alClient Align = alClient
BorderStyle = bsSingle Colors.UnfocusedColor = clMedGray
DefaultText = 'Node' DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <> Header.Columns = <>
Header.Font.Height = -11 Header.Font.Height = -11
Header.Font.Name = 'MS Shell Dlg 2' Header.Font.Name = 'MS Shell Dlg 2'
@@ -78,13 +81,11 @@ object frmMain: TfrmMain
Top = 3 Top = 3
Width = 75 Width = 75
Caption = 'View Code' Caption = 'View Code'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnViewCodeClick OnClick = btnViewCodeClick
end end
object chkRadioButtons: TCheckBox object chkRadioButtons: TCheckBox
Left = 85 Left = 85
Height = 17 Height = 19
Top = 8 Top = 8
Width = 87 Width = 87
Caption = 'Radio Buttons' Caption = 'Radio Buttons'
@@ -93,7 +94,7 @@ object frmMain: TfrmMain
end end
object chkChangeHeight: TCheckBox object chkChangeHeight: TCheckBox
Left = 184 Left = 184
Height = 17 Height = 19
Top = 8 Top = 8
Width = 76 Width = 76
Caption = 'Vary Height' Caption = 'Vary Height'
@@ -102,7 +103,7 @@ object frmMain: TfrmMain
end end
object chkHotTrack: TCheckBox object chkHotTrack: TCheckBox
Left = 11 Left = 11
Height = 17 Height = 19
Top = 8 Top = 8
Width = 66 Width = 66
Caption = 'Hot Track' Caption = 'Hot Track'

2
components/virtualtreeview-new/trunk/demos/vtbasic/Main.pas
View File

@@ -81,7 +81,7 @@ implementation
FCaptions.Add( 'Database example 1.' ); FCaptions.Add( 'Database example 1.' );
{this is first important value to set, 0 is ok if you want to use AddChild later} {this is first important value to set, 0 is ok if you want to use AddChild later}
VT .RootNodeCount := FCaptions.Count; VT.RootNodeCount := FCaptions.Count;
end; end;
procedure TfrmMain.FormDestroy(Sender: TObject); procedure TfrmMain.FormDestroy(Sender: TObject);

7
components/virtualtreeview-new/trunk/demos/vtbasic/VTNoData.pas
View File

@@ -169,7 +169,8 @@ implementation
'NodeHeightResize', 'NodeHeightResize',
'NodeHeightDblClickResize', 'NodeHeightDblClickResize',
'EditOnClick', 'EditOnClick',
'EditOnDblClick' 'EditOnDblClick',
'ReverseFullExpandHotKey'
); );
aPaintOpts : array[0..Ord(High(TVTPaintOption ))] of string[25] = aPaintOpts : array[0..Ord(High(TVTPaintOption ))] of string[25] =
@@ -210,7 +211,9 @@ implementation
'RightClickSelect' , 'RightClickSelect' ,
'SiblingSelectConstraint' , 'SiblingSelectConstraint' ,
'CenterScrollIntoView', 'CenterScrollIntoView',
'SimpleDrawSelection' 'SimpleDrawSelection',
'AlwaysSelectNode',
'RestoreSelection'
); );
aStrOpts : array[0..Ord(High(TVTStringOption ))] of string[25] = aStrOpts : array[0..Ord(High(TVTStringOption ))] of string[25] =

12
components/virtualtreeview-new/trunk/demos/vtbasic/vtbasic.lpi
View File

@@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@@ -47,7 +47,6 @@
<Unit0> <Unit0>
<Filename Value="vtbasic.lpr"/> <Filename Value="vtbasic.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="vtbasic"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="Main.pas"/> <Filename Value="Main.pas"/>
@@ -60,7 +59,6 @@
<Unit2> <Unit2>
<Filename Value="VTEditors.pas"/> <Filename Value="VTEditors.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="VTEditors"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="VTNoData.pas"/> <Filename Value="VTNoData.pas"/>
@@ -76,19 +74,16 @@
<ComponentName Value="frmVTPropEdit"/> <ComponentName Value="frmVTPropEdit"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="VTPropEdit"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="VTreeData.pas"/> <Filename Value="VTreeData.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="VTreeData"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="ViewCode.pas"/> <Filename Value="ViewCode.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmViewCode"/> <ComponentName Value="frmViewCode"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="ViewCode"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="VTCheckList.pas"/> <Filename Value="VTCheckList.pas"/>
@@ -96,7 +91,6 @@
<ComponentName Value="frmVTCheckList"/> <ComponentName Value="frmVTCheckList"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="VTCheckList"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="VTDBExample.pas"/> <Filename Value="VTDBExample.pas"/>
@@ -104,7 +98,6 @@
<ComponentName Value="frmVTDBExample"/> <ComponentName Value="frmVTDBExample"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="VTDBExample"/>
</Unit8> </Unit8>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
@@ -123,8 +116,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>