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

LCL: make accurate size if we change WindowState to wsMaximized or wsFullScreen in OnCreate event

Browse Source 
git-svn-id: trunk@36107 -
This commit is contained in:
zeljko 2012-03-17 11:01:35 +00:00
parent 3068129128
commit ff6253e4ac
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/customform.inc
View File

@ -76,10 +76,9 @@ end;
procedure TCustomForm.AfterConstruction;
var
NewWidth, NewHeight: Integer;
begin
// issue #21119, prepare maximized or fullscreen form to accurate dimensions.
// we avoid flickering also in this case.
if not (csDesigning in ComponentState) then
OldWindowState: TWindowState;
procedure ChangeFormDimensions(AIsBeforeOnCreate: Boolean);
begin
if (WindowState = wsMaximized) and (FormStyle <> fsMDIChild) then
begin
@ -90,8 +89,10 @@ begin
' SM_CXMAXIMIZED ',dbgs(GetSystemMetrics(SM_CXMAXIMIZED)),
' SM_CYMAXIMIZED ',dbgs(GetSystemMetrics(SM_CYMAXIMIZED)),
' SM_LCLMAXIMIZEDHEIGHT ',dbgs(GetSystemMetrics(SM_LCLMAXIMIZEDHEIGHT)),
' SM_LCLMAXIMIZEDWIDTH ',dbgs(GetSystemMetrics(SM_LCLMAXIMIZEDWIDTH)));
' SM_LCLMAXIMIZEDWIDTH ',dbgs(GetSystemMetrics(SM_LCLMAXIMIZEDWIDTH)),
' AIsBeforeOnCreate ',dbgs(AIsBeforeOnCreate));
{$ENDIF}
if (BorderStyle <> bsNone) and (FormStyle <> fsSplash) then
begin
NewHeight := GetSystemMetrics(SM_LCLMAXIMIZEDHEIGHT);
@ -127,8 +128,23 @@ begin
Height := NewHeight;
end;
end;
begin
// issue #21119, prepare maximized or fullscreen form to accurate dimensions.
// we avoid flickering also in this case.
if not (csDesigning in ComponentState) then
ChangeFormDimensions(True);
OldWindowState := WindowState;
DoCreate;
// if we change WindowState in constructor and handle isn't allocated
// then change our dimensions to accurate one
if not (csDesigning in ComponentState) and not HandleAllocated and
(OldWindowState <> WindowState) and
not (OldWindowState in [wsMaximized, wsFullScreen]) and
(WindowState in [wsMaximized, wsFullScreen]) then
ChangeFormDimensions(False);
EndFormUpdate; // the BeginFormUpdate is in CreateNew
inherited AfterConstruction;
end;