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

dockmanager example: save/restore true Orientation for layout

Browse Source 
git-svn-id: trunk@25042 -
This commit is contained in:
dodi 2010-04-28 18:38:02 +00:00
parent 0e85fb36ac
commit e317411db1
3 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/dockmanager/elasticsite/fmastersite.pas
View File

@ -45,7 +45,7 @@ uses
procedure TMasterSite.buCreateFormClick(Sender: TObject);
begin
DockMaster.CreateDockable('', True, True);
DockMaster.CreateDockable('', True, True, True);
end;
procedure TMasterSite.buDumpClick(Sender: TObject);

2
examples/dockmanager/ide_demo/fminiide.pas
View File

@ -237,7 +237,7 @@ begin
//name it
Client.Caption := cap;
TryRename(Client, n);
DockMaster.MakeDockable(Client, fWrap);
DockMaster.MakeDockable(Client, fWrap, True);
Result := Client;
end;
end;

37
examples/dockmanager/package/easydocksite.pas
View File

@ -1218,6 +1218,11 @@ procedure TEasyTree.LoadFromStream(Stream: TStream);
NewCtl.Width := ZoneRec.BottomRight.x;
NewCtl.Height := ZoneRec.BottomRight.y;
end;
{$IFDEF oldOrient}
{$ELSE}
NewZone.Orientation := doNoOrient;
NewCtl.DockOrientation := ZoneRec.Orientation;
{$ENDIF}
end;
while NewLvl < PrevLvl do begin
PrevZone := PrevZone.Parent;
@ -1280,8 +1285,13 @@ procedure TEasyTree.SaveToStream(Stream: TStream);
child := Zone.ChildControl;
if child = nil then
ZoneName := ''
else
else begin
ZoneName := SaveDockedControl(child); //ctrl or entire site
{$IFDEF oldOrient}
{$ELSE}
ZoneRec.Orientation := child.DockOrientation;
{$ENDIF}
end;
//write descriptor
Stream.Write(ZoneRec, sizeof(ZoneRec));
Stream.WriteAnsiString(ZoneName);
@ -2106,21 +2116,14 @@ var
begin
(* Save typename and clients.
*)
{
if DockManager <> nil then
Result := Name //reload by name
else
}
begin
ss := TStringStream.Create('');
try
ss.WriteByte(CustomDockSiteID);
ss.WriteAnsiString(ClassName);
SaveToStream(ss);
Result := ss.DataString;
finally
ss.Free;
end;
ss := TStringStream.Create('');
try
ss.WriteByte(CustomDockSiteID);
ss.WriteAnsiString(ClassName);
SaveToStream(ss);
Result := ss.DataString;
finally
ss.Free;
end;
end;
@ -2153,7 +2156,7 @@ begin
cn := strm.ReadAnsiString;
ctl := DockLoader.ReloadControl(cn, self);
if ctl <> nil then
ctl.ManualDock(self);
ctl.ManualDock(self); //orientation???
//make visible?
end;
end;