paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

sparta: fix docked form preventing IDE from activating. Issue #29042

Browse Source 
git-svn-id: trunk@51134 -
This commit is contained in:
ondrej 2016-01-02 18:22:39 +00:00
parent 0ba709770d
commit 25ae0bc62e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/sparta/dockedformeditor/source/sparta_fakecustom.pas
View File

@ -986,7 +986,7 @@ begin
{$IFDEF USE_POPUP_PARENT_DESIGNER}
LCLIntf.ShowWindow(FOwner.Handle, SW_SHOW);
{$ELSE}
if FOwner.ParentWindow = 0 then
if FOwner.Parent = nil then
LCLIntf.ShowWindow(FOwner.Handle, SW_SHOW);
{$ENDIF}
end;
@ -996,7 +996,7 @@ begin
{$IFDEF USE_POPUP_PARENT_DESIGNER}
LCLIntf.ShowWindow(FOwner.Handle, SW_HIDE);
{$ELSE}
if FOwner.ParentWindow = 0 then
if FOwner.Parent = nil then
LCLIntf.ShowWindow(FOwner.Handle, SW_HIDE);
{$ENDIF}
end;

4
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -967,7 +967,7 @@ var
{$ENDIF}
begin
{$IFNDEF USE_POPUP_PARENT_DESIGNER}
Form.ParentWindow := 0;
Form.Parent := nil;
Application.ProcessMessages; // For TFrame - System Error. Code: 1400. Invalid window handle.
{$ENDIF}
@ -1507,7 +1507,7 @@ begin
if LDesignForm <> nil then
begin
{$IFNDEF USE_POPUP_PARENT_DESIGNER}
LDesignForm.Form.Form.ParentWindow := FindModulePageControl(LWindow).Resizer.FResizerFrame.pClient.Handle;
LDesignForm.Form.Form.Parent := FindModulePageControl(LWindow).Resizer.FResizerFrame.pClient;
{$ENDIF}
PostMessage(LDesignForm.Form.Form.Handle, WM_BoundToDesignTabSheet, 0, 0);
end;

2
components/sparta/dockedformeditor/source/sparta_resizer.pas
View File

@ -117,7 +117,7 @@ begin
FDesignedForm.RealPopupParent := nil;
FDesignedForm.RealPopupParent := FindFirstFormParent;
{$ELSE}
FDesignedForm.Form.ParentWindow := FResizerFrame.pClient.Handle;
FDesignedForm.Form.Parent := FResizerFrame.pClient;
{$ENDIF}
// for big forms (bigger than screen resolution) we need to refresh Real* values
DesignedForm.RealWidth := DesignedForm.Width;