paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples DropFiles: corrected caption, enable dropping on Form2

Browse Source 
git-svn-id: trunk@13714 -
This commit is contained in:
tombo 2008-01-10 13:18:40 +00:00
parent c7fb097deb
commit d28ab69a71
6 changed files with 25 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/dropfiles/dropfiles.lpi
View File

@ -2,7 +2,7 @@
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<Version Value="6"/>
<General>
<MainUnit Value="0"/>
<IconPath Value="./"/>
@ -46,7 +46,7 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="21" Y="13"/>
<CursorPos X="78" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="22"/>
@ -65,7 +65,7 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit2.lrs"/>
<UnitName Value="Unit2"/>
<CursorPos X="43" Y="43"/>
<CursorPos X="19" Y="37"/>
<TopLine Value="25"/>
<EditorIndex Value="1"/>
<UsageCount Value="22"/>
@ -187,6 +187,13 @@
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>

2
examples/dropfiles/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
VertScrollBar.Page = 352
ActiveControl = Memo1
AllowDropFiles = True
Caption = 'On Files Drop event example'
Caption = 'On Drop Files event example'
ClientHeight = 353
ClientWidth = 701
OnDropFiles = FormDropFiles

4
examples/dropfiles/unit1.lrs
View File

@ -3,8 +3,8 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'+'#1#6'Height'#3'a'#1#3'Top'#3#155#0#5'Wi'
+'dth'#3#189#2#18'HorzScrollBar.Page'#3#188#2#18'VertScrollBar.Page'#3'`'#1#13
+'ActiveControl'#7#5'Memo1'#14'AllowDropFiles'#9#7'Caption'#6#27'On Files Dro'
+'p event example'#12'ClientHeight'#3'a'#1#11'ClientWidth'#3#189#2#11'OnDropF'
+'ActiveControl'#7#5'Memo1'#14'AllowDropFiles'#9#7'Caption'#6#27'On Drop File'
+'s event example'#12'ClientHeight'#3'a'#1#11'ClientWidth'#3#189#2#11'OnDropF'
+'iles'#7#13'FormDropFiles'#0#6'TLabel'#6'Label1'#4'Left'#2#13#6'Height'#2#14
+#3'Top'#2#18#5'Width'#3'('#1#7'Caption'#6'>Drag and drop files on this form '
+'and see the results in memo. '#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Le'

3
examples/dropfiles/unit1.pas
View File

@ -5,8 +5,7 @@ unit Unit1;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin;
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
type

5
examples/dropfiles/unit2.lfm
View File

@ -6,6 +6,7 @@ object Form2: TForm2
HorzScrollBar.Page = 472
VertScrollBar.Page = 55
ActiveControl = CheckBox1
AllowDropFiles = True
Caption = 'Form2'
ClientHeight = 56
ClientWidth = 473
@ -20,9 +21,9 @@ object Form2: TForm2
end
object CheckBox1: TCheckBox
Left = 15
Height = 13
Height = 19
Top = 39
Width = 147
Width = 153
Caption = 'Allow drop files on this form'
Checked = True
OnChange = CheckBox1Change

16
examples/dropfiles/unit2.lrs
View File

@ -3,12 +3,12 @@
LazarusResources.Add('TForm2','FORMDATA',[
'TPF0'#6'TForm2'#5'Form2'#4'Left'#3#166#1#6'Height'#2'8'#3'Top'#3'P'#2#5'Widt'
+'h'#3#217#1#18'HorzScrollBar.Page'#3#216#1#18'VertScrollBar.Page'#2'7'#13'Ac'
+'tiveControl'#7#9'CheckBox1'#7'Caption'#6#5'Form2'#12'ClientHeight'#2'8'#11
+'ClientWidth'#3#217#1#11'OnDropFiles'#7#13'FormDropFiles'#0#6'TLabel'#6'Labe'
+'l1'#4'Left'#2#15#6'Height'#2#14#3'Top'#2#12#5'Width'#3'('#1#7'Caption'#6'>D'
+'rag and drop files on this form and see the results in memo. '#11'ParentCol'
+'or'#8#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#15#6'Height'#2#13#3'Top'#2''''
+#5'Width'#3#147#0#7'Caption'#6#29'Allow drop files on this form'#7'Checked'#9
+#8'OnChange'#7#15'CheckBox1Change'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0
+#0#0
+'tiveControl'#7#9'CheckBox1'#14'AllowDropFiles'#9#7'Caption'#6#5'Form2'#12'C'
+'lientHeight'#2'8'#11'ClientWidth'#3#217#1#11'OnDropFiles'#7#13'FormDropFile'
+'s'#0#6'TLabel'#6'Label1'#4'Left'#2#15#6'Height'#2#14#3'Top'#2#12#5'Width'#3
+'('#1#7'Caption'#6'>Drag and drop files on this form and see the results in '
+'memo. '#11'ParentColor'#8#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#15#6'Heig'
+'ht'#2#19#3'Top'#2''''#5'Width'#3#153#0#7'Caption'#6#29'Allow drop files on '
+'this form'#7'Checked'#9#8'OnChange'#7#15'CheckBox1Change'#5'State'#7#9'cbCh'
+'ecked'#8'TabOrder'#2#0#0#0#0
]);