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

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

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

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

@ -115,7 +115,7 @@ begin
SetActiveState(CheckBox19, tsLeftButtonDown in NewStates);
SetActiveState(CheckBox20, tsMouseCheckPending in NewStates);
SetActiveState(CheckBox21, tsMiddleButtonDown in NewStates);
SetActiveState(CheckBox22, tsNeedScale in NewStates);
//SetActiveState(CheckBox22, tsNeedScale in NewStates);
SetActiveState(CheckBox23, tsNeedRootCountUpdate in NewStates);
SetActiveState(CheckBox24, tsOLEDragging 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.Height = 24
Header.Options = [hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.Style = hsXPStyle
HintMode = hmHint
Images = LargeImages
ParentShowHint = False

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

@ -12,30 +12,30 @@ object Form1: TForm1
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.0.8.0'
LCLVersion = '1.4.0.4'
object Label1: TLabel
Left = 246
Height = 14
Top = 348
Width = 152
Left = 247
Height = 13
Top = 349
Width = 151
Anchors = [akRight, akBottom]
Caption = 'Array data of the clicked node:'
ParentColor = False
end
object Label2: TLabel
Left = 258
Height = 14
Top = 382
Width = 222
Left = 259
Height = 13
Top = 383
Width = 221
Anchors = [akRight, akBottom]
Caption = 'Find and show the node by specific array index'
ParentColor = False
end
object Label3: TLabel
Left = 261
Height = 14
Top = 398
Width = 237
Left = 262
Height = 13
Top = 399
Width = 236
Anchors = [akRight, akBottom]
Caption = 'Type index to get related tree node on the screen:'
ParentColor = False
@ -104,6 +104,7 @@ object Form1: TForm1
Width = 641
Anchors = [akTop, akLeft, akRight, akBottom]
AutoScrollDelay = 1
Colors.UnfocusedColor = clMedGray
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <
@ -126,9 +127,9 @@ object Form1: TForm1
Header.DefaultHeight = 17
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Height = 17
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
Header.SortColumn = 0
Header.Style = hsXPStyle
RootNodeCount = 10
TabOrder = 5
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 + [hoVisible];
// Shows the header like XP does
MyTree.Header.Style := hsXPStyle;
// Allows multi selection of nodes
MyTree.TreeOptions.SelectionOptions :=
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>
<ProjectOptions>
<Version Value="9"/>
@ -40,7 +40,6 @@
<Unit0>
<Filename Value="dataarray.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="dataarray"/>
</Unit0>
<Unit1>
<Filename Value="Main.pas"/>
@ -67,8 +66,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

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

@ -57,7 +57,6 @@ object Form1: TForm1
Header.Images = ImageList1
Header.Options = [hoColumnResize, hoDrag, hoShowImages, hoShowSortGlyphs, hoVisible]
Header.SortColumn = 0
Header.Style = hsXPStyle
StateImages = ImageList2
TabOrder = 0
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>
<ProjectOptions>
<Version Value="9"/>
@ -9,6 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
@ -39,7 +40,6 @@
<Unit0>
<Filename Value="images.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="images"/>
</Unit0>
<Unit1>
<Filename Value="Unit1.pas"/>
@ -66,8 +66,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

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

@ -16,6 +16,8 @@ uses
{$endif}
;
{$R *.res}
begin
{$ifdef DEBUG_VTV}
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. }
function DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer; 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;
var aInitStates:TVirtualNodeInitStates); override;
procedure DoFreeNode(aNode:PVirtualNode); override;
@ -735,7 +735,7 @@ begin
inherited DoFreeNode(aNode);
end;
procedure TMVCTreeView.DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal);
function TMVCTreeView.DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal): Boolean;
begin
inherited DoInitChildren(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>
<ProjectOptions>
<Version Value="9"/>
@ -43,7 +43,6 @@
<Unit0>
<Filename Value="mvcdemo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="mvcdemo"/>
</Unit0>
<Unit1>
<Filename Value="MVCDemoMain.pas"/>
@ -56,7 +55,6 @@
<Unit2>
<Filename Value="MVCPanel.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="MVCPanel"/>
</Unit2>
<Unit3>
<Filename Value="MVCTypes.pas"/>
@ -73,8 +71,5 @@
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

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

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

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

@ -81,7 +81,7 @@ implementation
FCaptions.Add( 'Database example 1.' );
{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;
procedure TfrmMain.FormDestroy(Sender: TObject);

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

@ -169,7 +169,8 @@ implementation
'NodeHeightResize',
'NodeHeightDblClickResize',
'EditOnClick',
'EditOnDblClick'
'EditOnDblClick',
'ReverseFullExpandHotKey'
);
aPaintOpts : array[0..Ord(High(TVTPaintOption ))] of string[25] =
@ -210,7 +211,9 @@ implementation
'RightClickSelect' ,
'SiblingSelectConstraint' ,
'CenterScrollIntoView',
'SimpleDrawSelection'
'SimpleDrawSelection',
'AlwaysSelectNode',
'RestoreSelection'
);
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>
<ProjectOptions>
<Version Value="9"/>
@ -47,7 +47,6 @@
<Unit0>
<Filename Value="vtbasic.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="vtbasic"/>
</Unit0>
<Unit1>
<Filename Value="Main.pas"/>
@ -60,7 +59,6 @@
<Unit2>
<Filename Value="VTEditors.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="VTEditors"/>
</Unit2>
<Unit3>
<Filename Value="VTNoData.pas"/>
@ -76,19 +74,16 @@
<ComponentName Value="frmVTPropEdit"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="VTPropEdit"/>
</Unit4>
<Unit5>
<Filename Value="VTreeData.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="VTreeData"/>
</Unit5>
<Unit6>
<Filename Value="ViewCode.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmViewCode"/>
<HasResources Value="True"/>
<UnitName Value="ViewCode"/>
</Unit6>
<Unit7>
<Filename Value="VTCheckList.pas"/>
@ -96,7 +91,6 @@
<ComponentName Value="frmVTCheckList"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="VTCheckList"/>
</Unit7>
<Unit8>
<Filename Value="VTDBExample.pas"/>
@ -104,7 +98,6 @@
<ComponentName Value="frmVTDBExample"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="VTDBExample"/>
</Unit8>
</Units>
</ProjectOptions>
@ -123,8 +116,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>