paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

treeview example: fixed LFM and uninitialized variable hint

Browse Source 
git-svn-id: trunk@16039 -
This commit is contained in:
vincents 2008-08-12 14:01:53 +00:00
parent 9ad88286a6
commit f27f168af2
4 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/treeview/tv_add_remove.lpi
View File

@ -2,7 +2,7 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="6"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>

1
examples/treeview/tv_add_remove_u1.lfm
View File

@ -4,7 +4,6 @@ object Form1: TForm1
ClientWidth = 455 ClientWidth = 455
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
TextHeight = 13
HorzScrollBar.Page = 456 HorzScrollBar.Page = 456
VertScrollBar.Page = 428 VertScrollBar.Page = 428
Left = 570 Left = 570

22
examples/treeview/tv_add_remove_u1.lrs
View File

@ -1,15 +1,15 @@
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#18'TreeView Example 1'#12'ClientHeight' 'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#18'TreeView Example 1'#12'ClientHeight'
+#3#171#1#11'ClientWidth'#3#199#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS ' +#3#171#1#11'ClientWidth'#3#199#1#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
+'Sans Serif'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#200#1#18'VertScrol' +'Sans Serif'#18'HorzScrollBar.Page'#3#200#1#18'VertScrollBar.Page'#3#172#1#4
+'lBar.Page'#3#172#1#4'Left'#3':'#2#6'Height'#3#171#1#3'Top'#3#249#0#5'Width' +'Left'#3':'#2#6'Height'#3#171#1#3'Top'#3#249#0#5'Width'#3#199#1#0#9'TTreeVie'
+#3#199#1#0#9'TTreeView'#6'tv_eg1'#5'Align'#7#6'ALLEFT'#17'DefaultItemHeight' +'w'#6'tv_eg1'#5'Align'#7#6'ALLEFT'#17'DefaultItemHeight'#2#17#10'DragCursor'
+#2#17#10'DragCursor'#4#244#255#0#0#13'HideSelection'#8#6'Indent'#2#19#11'Par' +#4#244#255#0#0#13'HideSelection'#8#6'Indent'#2#19#11'ParentCtl3D'#8#8'TabOrd'
+'entCtl3D'#8#8'TabOrder'#2#0#7'Options'#11#17'TVOAUTOITEMHEIGHT'#21'TVOKEEPC' +'er'#2#0#7'Options'#11#17'TVOAUTOITEMHEIGHT'#21'TVOKEEPCOLLAPSEDNODES'#14'TV'
+'OLLAPSEDNODES'#14'TVOSHOWBUTTONS'#12'TVOSHOWLINES'#11'TVOSHOWROOT'#11'TVOTO' +'OSHOWBUTTONS'#12'TVOSHOWLINES'#11'TVOSHOWROOT'#11'TVOTOOLTIPS'#0#6'Height'#3
+'OLTIPS'#0#6'Height'#3#171#1#5'Width'#3#196#0#0#0#7'TButton'#7'but_Add'#7'Ca' +#171#1#5'Width'#3#196#0#0#0#7'TButton'#7'but_Add'#7'Caption'#6#3'Add'#8'TabO'
+'ption'#6#3'Add'#8'TabOrder'#2#1#7'OnClick'#7#12'but_AddClick'#4'Left'#3#208 +'rder'#2#1#7'OnClick'#7#12'but_AddClick'#4'Left'#3#208#0#6'Height'#2#25#3'To'
+#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#0#0#7'TButton'#10'but_Remove'#7'C' +'p'#2#8#5'Width'#2'K'#0#0#7'TButton'#10'but_Remove'#7'Caption'#6#6'Remove'#8
+'aption'#6#6'Remove'#8'TabOrder'#2#2#7'OnClick'#7#15'but_RemoveClick'#4'Left' +'TabOrder'#2#2#7'OnClick'#7#15'but_RemoveClick'#4'Left'#3#208#0#6'Height'#2
+#3#208#0#6'Height'#2#25#3'Top'#2'('#5'Width'#2'K'#0#0#0 +#25#3'Top'#2'('#5'Width'#2'K'#0#0#0
]); ]);

1
examples/treeview/tv_add_remove_u1.pas
View File

@ -64,6 +64,7 @@ begin
end end
else begin else begin
{Get a name for the new node} {Get a name for the new node}
sText := 'New node';
InputQuery( 'New Node', 'Caption ?', sText ); InputQuery( 'New Node', 'Caption ?', sText );
{Add the node as a child of the selected node} {Add the node as a child of the selected node}