paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 17:00:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: set bounds for site not for form

Browse Source 
git-svn-id: trunk@26176 -
This commit is contained in:
mattias 2010-06-18 20:41:55 +00:00
parent 2b4356ce41
commit 7f2c9d00a7
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/anchordocking/design/registeranchordocking.pas
View File

@ -168,6 +168,7 @@ begin
Config:=GetIDEConfigStorage(Filename,true);
try
if not DockMaster.ConfigIsEmpty(Config) then begin
debugln(['TIDEAnchorDockMaster.LoadDefaultLayout restoring ...']);
DockMaster.LoadLayoutFromConfig(Config);
DefaultLayoutLoaded:=true;
end;
@ -215,6 +216,7 @@ var
Site: TAnchorDockHostSite;
AControl: TControl;
NeedPlacing: Boolean;
SiteForm: TCustomForm;
begin
debugln(['TIDEAnchorDockMaster.ShowForm START ',DbgSName(AForm),' BringToFront=',BringToFront,' IsSite=',DockMaster.IsSite(AForm),' IsCustomSite=',DockMaster.IsCustomSite(AForm)]);
try
@ -239,11 +241,12 @@ begin
// place it at a default position and/or dock it
GetDefaultBounds(AForm,Creator,NewBounds,DockSiblingName,DockAlign);
if Creator<>nil then begin
AForm.BoundsRect:=NewBounds;
AForm.UndockWidth:=NewBounds.Right-NewBounds.Left;
AForm.UndockHeight:=NewBounds.Bottom-NewBounds.Top;
SiteForm:=GetParentForm(AForm);
SiteForm.BoundsRect:=NewBounds;
SiteForm.UndockWidth:=NewBounds.Right-NewBounds.Left;
SiteForm.UndockHeight:=NewBounds.Bottom-NewBounds.Top;
debugln(['TIDEAnchorDockMaster.ShowForm creator for ',DbgSName(AControl),' found: Left=',Creator.Left,' Top=',Creator.Top,' Width=',Creator.Width,' Height=',Creator.Height,' DockSiblingName=',DockSiblingName,' DockAlign=',dbgs(DockAlign)]);
Site:=DockMaster.GetSite(AForm);
Site:=DockMaster.GetSite(SiteForm);
if DockMaster.IsAnchorSite(Site) and (DockSiblingName<>'') then begin
DockSibling:=Screen.FindForm(DockSiblingName);
debugln(['TIDEAnchorDockMaster.ShowForm DockSiblingName="',DockSiblingName,'" DockSibling=',DbgSName(DockSibling)]);

2
ide/main.pp
View File

@ -2073,11 +2073,13 @@ procedure TMainIDE.SetupStartProject;
function AskIfLoadLastFailingProject: boolean;
begin
debugln(['AskIfLoadLastFailingProject START']);
Result:=QuestionDlg(lisOpenProject2,
Format(lisAnErrorOccuredAtLastStartupWhileLoadingLoadThisPro, [
EnvironmentOptions.LastSavedProjectFile, #13, #13]), mtWarning,
[mrYes, lisOpenProjectAgain, mrNoToAll, lisStartWithANewProject], 0)=
mrYes;
debugln(['AskIfLoadLastFailingProject END ',dbgs(Result)]);
end;
var