paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 07:19:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

dockmanager example: more IDE integration attempts.

Browse Source 
git-svn-id: trunk@23298 -
This commit is contained in:
dodi 2009-12-27 11:47:28 +00:00
parent dcaa3c193a
commit 05b9b38a87
2 changed files with 45 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/dockmanager/ide_demo/MiniIDE.lpi
View File

@ -84,20 +84,4 @@
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="4">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
<Item4>
<Name Value="EComponentError"/>
</Item4>
</Exceptions>
</Debugging>
</CONFIG>

54
examples/dockmanager/package/umakesite.pas
View File

@ -96,6 +96,8 @@ type
procedure SaveToStream(Stream: TStream);
function ReloadDockedControl(const AName: string; Site: TWinControl): TControl; virtual;
//function SaveDockedControl(ACtrl: TControl; Site: TWinControl): string; virtual;
procedure LoadFromFile(const AName: string);
procedure SaveToFile(const AName: string);
end;
var
@ -205,6 +207,8 @@ begin
pnl.Splitter := spl;
if side in [alLeft,alRight] then
pnl.Width := 0
else if ForIDE then
pnl.Height := 1 //keep above StatusBar
else
pnl.Height := 0;
//handlers required for elastic sites
@ -250,7 +254,8 @@ var
Site: TFloatingSite absolute Result;
Res: TWinControlAccess absolute AForm;
begin
AForm.DisableAlign;
Result := nil;
//AForm.DisableAlign;
try
//check make dockable
{ TODO -cdocking : problems with IDE windows:
@ -270,9 +275,9 @@ begin
//create a docking handle - should become a component?
img := TImage.Create(AForm); //we could own the img, and be notified when its parent becomes nil
img.Align := alNone;
if ForIDE then
//if ForIDE then
try //begin //prevent problems with the following code!
img.AnchorParallel(akRight,0,Result);
img.AnchorParallel(akRight,0,Result); //anchor to Result=Site or to AForm?
img.AnchorParallel(akTop,0,Result);
except
DebugLn('error AnchorParallel');
@ -298,9 +303,14 @@ begin
//make visible, so that it can be docked without problems
AForm.Visible := True;
finally
AForm.EnableAlign;
//AForm.EnableAlign;
end;
img.BringToFront;
if ForIDE and fWrap and assigned(Site) and assigned(Site.DockManager) then begin
//site.DockManager.ResetBounds(True); //doesn't help
//AForm.Invalidate;
Site.Invalidate;
end;
end;
function TDockMaster.ReloadDockedControl(const AName: string;
@ -366,6 +376,30 @@ begin
WrapDockable(ctl);
end;
procedure TDockMaster.LoadFromFile(const AName: string);
var
fs: TFileStream;
begin
fs := TFileStream.Create(AName, fmOpenRead or fmShareDenyWrite);
try
LoadFromStream(fs);
finally
fs.Free;
end;
end;
procedure TDockMaster.SaveToFile(const AName: string);
var
fs: TFileStream;
begin
fs := TFileStream.Create(AName, fmCreate or fmShareExclusive);
try
SaveToStream(fs);
finally
fs.Free;
end;
end;
type
eSiteKind = (
//top level sites
@ -731,19 +765,21 @@ begin
Site := TFloatingSite.Create(Self); //we own the new site
try
{$IFDEF old}
Site.BoundsRect := Client.BoundsRect; //the new position and extension
{$ELSE}
//keep undocked extent
r := Client.BoundsRect;
r.Right := r.Left + Client.UndockWidth;
r.Bottom := r.Top + Client.UndockHeight;
//site.ClientRect := r;
Site.BoundsRect := r;
{$ENDIF}
Client.Align := alClient;
Client.Align := alNone;
//Client.Visible := True; //otherwise docking may be rejected
Client.ManualDock(Site);
if ForIDE then begin
//Site.Invalidate; //helps?
//Client.Top := 0;
//Client.Left := 0;
Site.DockManager.ResetBounds(True);
end;
except
DebugLn('error WrapDockable: ' + Client.Name);
if Client.HostDockSite <> Site then