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

examples: docking: set session flag and improved layout

Browse Source 
git-svn-id: trunk@13759 -
This commit is contained in:
mattias 2008-01-15 19:21:15 +00:00
parent fd1256d378
commit 84a32a76be
4 changed files with 21 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
examples/dragimagelist/project1.lpi
View File

@ -1,17 +1,16 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<PathDelim Value="/"/>
<Version Value="6"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -35,7 +34,6 @@
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@ -43,75 +41,11 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="13" Y="24"/>
<TopLine Value="16"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="14" HistoryIndex="13">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="19" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="20" Column="70" TopLine="8"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="5" TopLine="14"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="3" TopLine="26"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="82" Column="1" TopLine="58"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="11" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="78" Column="20" TopLine="60"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="72" Column="18" TopLine="60"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="19" TopLine="9"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="71" Column="20" TopLine="49"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="11" TopLine="1"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="19" Column="1" TopLine="1"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="40" Column="24" TopLine="30"/>
</Position14>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
@ -126,14 +60,4 @@
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

11
examples/dragimagelist/unit1.lfm
View File

@ -5,22 +5,23 @@ object Form1: TForm1
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
ActiveControl = Button1
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 400
object Label1: TLabel
Left = 8
Height = 40
Top = 240
Width = 159
Height = 66
Top = 216
Width = 208
Caption = 'If DragImageList is working then '#13#10'you should see Button image '#13#10'dragged nearly mouse cursor.'
ParentColor = False
end
object Button1: TButton
Left = 16
Height = 25
Height = 32
Top = 16
Width = 75
Width = 96
Caption = 'Move me'
DragMode = dmAutomatic
OnStartDrag = Button1StartDrag

22
examples/dragimagelist/unit1.lrs
View File

@ -2,15 +2,15 @@
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#7
+'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#0#6'TLa'
+'bel'#6'Label1'#4'Left'#2#8#6'Height'#2'('#3'Top'#3#240#0#5'Width'#3#159#0#7
+'Caption'#6']If DragImageList is working then '#13#10'you should see Button '
+'image '#13#10'dragged nearly mouse cursor.'#11'ParentColor'#8#0#0#7'TButton'
+#7'Button1'#4'Left'#2#16#6'Height'#2#25#3'Top'#2#16#5'Width'#2'K'#7'Caption'
+#6#7'Move me'#8'DragMode'#7#11'dmAutomatic'#11'OnStartDrag'#7#16'Button1Star'
+'tDrag'#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'OnDra'
+'gOver'#7#14'Panel1DragOver'#0#0#0
+'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
]);

2
examples/dragimagelist/unit1.pas
View File

@ -52,7 +52,7 @@ end;
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ShowMessage('Congratulations. You droped button on me :)')
ShowMessage('Congratulations. You dropped button on me :)')
end;
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;