paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 11:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix restored values, only need to be updated when LCL will realize new bounds, DoSetBounds also called from LM_MOVE and autosizing (issue #2016)

Browse Source 
git-svn-id: trunk@9650 -
This commit is contained in:
micha 2006-07-21 12:46:17 +00:00
parent 478828be8e
commit f88cd92e06
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -454,7 +454,7 @@ type
procedure WndProc(var TheMessage : TLMessage); override;
function VisibleIsStored: boolean;
function ColorIsStored: boolean; override;
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
procedure DoSendBoundsToInterface; override;
protected
// drag and dock
procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); override;

4
lcl/include/customform.inc
View File

@ -929,9 +929,9 @@ begin
Result:=(Color<>clBtnFace);
end;
procedure TCustomForm.DoSetBounds(ALeft, ATop, AWidth, AHeight: integer);
procedure TCustomForm.DoSendBoundsToInterface;
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
inherited DoSendBoundsToInterface;
if WindowState=wsNormal then begin
FRestoredLeft:=Left;
FRestoredTop:=Top;