diff --git a/examples/dropfiles/dropfiles.lpi b/examples/dropfiles/dropfiles.lpi index 157f50f854..8236b699d6 100644 --- a/examples/dropfiles/dropfiles.lpi +++ b/examples/dropfiles/dropfiles.lpi @@ -2,7 +2,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -65,7 +65,7 @@ - + @@ -187,6 +187,13 @@ + + + + + + + diff --git a/examples/dropfiles/unit1.lfm b/examples/dropfiles/unit1.lfm index c90aabb99b..d505589508 100644 --- a/examples/dropfiles/unit1.lfm +++ b/examples/dropfiles/unit1.lfm @@ -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 diff --git a/examples/dropfiles/unit1.lrs b/examples/dropfiles/unit1.lrs index 4d5a94a51d..3896723a3a 100644 --- a/examples/dropfiles/unit1.lrs +++ b/examples/dropfiles/unit1.lrs @@ -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' diff --git a/examples/dropfiles/unit1.pas b/examples/dropfiles/unit1.pas index 53cf7b1022..dcace77147 100644 --- a/examples/dropfiles/unit1.pas +++ b/examples/dropfiles/unit1.pas @@ -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 diff --git a/examples/dropfiles/unit2.lfm b/examples/dropfiles/unit2.lfm index 3ca6bcc4e5..768db67915 100644 --- a/examples/dropfiles/unit2.lfm +++ b/examples/dropfiles/unit2.lfm @@ -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 diff --git a/examples/dropfiles/unit2.lrs b/examples/dropfiles/unit2.lrs index f48916b192..9f9853e024 100644 --- a/examples/dropfiles/unit2.lrs +++ b/examples/dropfiles/unit2.lrs @@ -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 ]);