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

anchordocking: added lfm

Browse Source 
git-svn-id: trunk@26320 -
This commit is contained in:
mattias 2010-06-29 11:39:04 +00:00
parent 5720fa2392
commit 71590dd255
3 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2778,6 +2778,7 @@ examples/anchordocking/anchordockpkg.pas svneol=native#text/plain
examples/anchordocking/anchordockstorage.pas svneol=native#text/plain examples/anchordocking/anchordockstorage.pas svneol=native#text/plain
examples/anchordocking/anchordockstr.pas svneol=native#text/plain examples/anchordocking/anchordockstr.pas svneol=native#text/plain
examples/anchordocking/design/ADLayoutDefault.xml svneol=native#text/plain examples/anchordocking/design/ADLayoutDefault.xml svneol=native#text/plain
examples/anchordocking/design/anchordockingdsgn.lfm svneol=native#text/plain
examples/anchordocking/design/anchordockingdsgn.lpk svneol=native#text/plain examples/anchordocking/design/anchordockingdsgn.lpk svneol=native#text/plain
examples/anchordocking/design/anchordockingdsgn.pas svneol=native#text/plain examples/anchordocking/design/anchordockingdsgn.pas svneol=native#text/plain
examples/anchordocking/design/registeranchordocking.pas svneol=native#text/plain examples/anchordocking/design/registeranchordocking.pas svneol=native#text/plain

1
examples/anchordocking/anchordocking.pas
View File

@ -4509,7 +4509,6 @@ begin
debugln(['TAnchorDockManager.InsertControl DockSite=nil Site="',DbgSName(Site),'" Control=',DbgSName(ADockObject.Control),' InsertAt=',dbgs(ADockObject.DropAlign),' Site.Bounds=',dbgs(Site.BoundsRect),' Control.Client=',dbgs(ADockObject.Control.ClientRect),' Parent=',DbgSName(ADockObject.Control.Parent)]); debugln(['TAnchorDockManager.InsertControl DockSite=nil Site="',DbgSName(Site),'" Control=',DbgSName(ADockObject.Control),' InsertAt=',dbgs(ADockObject.DropAlign),' Site.Bounds=',dbgs(Site.BoundsRect),' Control.Client=',dbgs(ADockObject.Control.ClientRect),' Parent=',DbgSName(ADockObject.Control.Parent)]);
Site.DisableAutoSizing; Site.DisableAutoSizing;
try try
// align dragged Control // align dragged Control
Child:=ADockObject.Control; Child:=ADockObject.Control;
Child.Parent:=Site; Child.Parent:=Site;

21
examples/anchordocking/design/anchordockingdsgn.lfm Normal file
View File

@ -0,0 +1,21 @@
inherited EduEnvFrame: TEduEnvFrame
Height = 388
Width = 495
ClientHeight = 388
ClientWidth = 495
OnClick = FrameClick
TabOrder = 0
DesignLeft = 725
DesignTop = 198
object EnableCheckBox: TCheckBox
Left = 6
Height = 17
Top = 6
Width = 99
BorderSpacing.Around = 6
Caption = 'EnableCheckBox'
TabOrder = 0
end
object NoteLabel: TLabel
end
end