paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 10:47:58 +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>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<Version Value="6"/>
<General>
<Flags>
<SaveClosedFiles Value="False"/>

1
examples/treeview/tv_add_remove_u1.lfm
View File

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

22
examples/treeview/tv_add_remove_u1.lrs
View File

@ -1,15 +1,15 @@
LazarusResources.Add('TForm1','FORMDATA',[
'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 '
+'Sans Serif'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#200#1#18'VertScrol'
+'lBar.Page'#3#172#1#4'Left'#3':'#2#6'Height'#3#171#1#3'Top'#3#249#0#5'Width'
+#3#199#1#0#9'TTreeView'#6'tv_eg1'#5'Align'#7#6'ALLEFT'#17'DefaultItemHeight'
+#2#17#10'DragCursor'#4#244#255#0#0#13'HideSelection'#8#6'Indent'#2#19#11'Par'
+'entCtl3D'#8#8'TabOrder'#2#0#7'Options'#11#17'TVOAUTOITEMHEIGHT'#21'TVOKEEPC'
+'OLLAPSEDNODES'#14'TVOSHOWBUTTONS'#12'TVOSHOWLINES'#11'TVOSHOWROOT'#11'TVOTO'
+'OLTIPS'#0#6'Height'#3#171#1#5'Width'#3#196#0#0#0#7'TButton'#7'but_Add'#7'Ca'
+'ption'#6#3'Add'#8'TabOrder'#2#1#7'OnClick'#7#12'but_AddClick'#4'Left'#3#208
+#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#0#0#7'TButton'#10'but_Remove'#7'C'
+'aption'#6#6'Remove'#8'TabOrder'#2#2#7'OnClick'#7#15'but_RemoveClick'#4'Left'
+#3#208#0#6'Height'#2#25#3'Top'#2'('#5'Width'#2'K'#0#0#0
+'Sans Serif'#18'HorzScrollBar.Page'#3#200#1#18'VertScrollBar.Page'#3#172#1#4
+'Left'#3':'#2#6'Height'#3#171#1#3'Top'#3#249#0#5'Width'#3#199#1#0#9'TTreeVie'
+'w'#6'tv_eg1'#5'Align'#7#6'ALLEFT'#17'DefaultItemHeight'#2#17#10'DragCursor'
+#4#244#255#0#0#13'HideSelection'#8#6'Indent'#2#19#11'ParentCtl3D'#8#8'TabOrd'
+'er'#2#0#7'Options'#11#17'TVOAUTOITEMHEIGHT'#21'TVOKEEPCOLLAPSEDNODES'#14'TV'
+'OSHOWBUTTONS'#12'TVOSHOWLINES'#11'TVOSHOWROOT'#11'TVOTOOLTIPS'#0#6'Height'#3
+#171#1#5'Width'#3#196#0#0#0#7'TButton'#7'but_Add'#7'Caption'#6#3'Add'#8'TabO'
+'rder'#2#1#7'OnClick'#7#12'but_AddClick'#4'Left'#3#208#0#6'Height'#2#25#3'To'
+'p'#2#8#5'Width'#2'K'#0#0#7'TButton'#10'but_Remove'#7'Caption'#6#6'Remove'#8
+'TabOrder'#2#2#7'OnClick'#7#15'but_RemoveClick'#4'Left'#3#208#0#6'Height'#2
+#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
else begin
{Get a name for the new node}
sText := 'New node';
InputQuery( 'New Node', 'Caption ?', sText );
{Add the node as a child of the selected node}