lazarus/examples/dragimagelist/unit1.lrs
mattias 79666bf74b LCL: small cleanups
git-svn-id: trunk@14018 -
2008-02-07 18:39:36 +00:00

15 lines
997 B
Plaintext

LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#175#0#5'Wi'
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#13
+'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11
+'ClientWidth'#3#144#1#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2'B'#3'Top'
+#3#216#0#5'Width'#3#208#0#7'Caption'#6']If DragImageList is working then '#13
+#10'you should see Button image '#13#10'dragged nearly mouse cursor.'#11'Par'
+'entColor'#8#0#0#7'TButton'#7'Button1'#4'Left'#2#16#6'Height'#2' '#3'Top'#2
+#16#5'Width'#2'`'#7'Caption'#6#7'Move me'#8'DragMode'#7#11'dmAutomatic'#11'O'
+'nStartDrag'#7#16'Button1StartDrag'#8'TabOrder'#2#0#0#0#6'TPanel'#6'Panel1'#4
+'Left'#3#216#0#6'Height'#2'2'#3'Top'#3#232#0#5'Width'#3#170#0#10'BevelInner'
+#7#9'bvLowered'#7'Caption'#6#9'Move here'#8'TabOrder'#2#1#10'OnDragDrop'#7#14
+'Panel1DragDrop'#10'OnDragOver'#7#14'Panel1DragOver'#0#0#0
]);