paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 00:18:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: reactivated sending uninitialized bounds of TCustomPage to interface

Browse Source 
git-svn-id: trunk@11191 -
This commit is contained in:
mattias 2007-05-24 08:33:49 +00:00
parent 84a9e3e870
commit e16a765e54
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extctrls.pp
View File

@ -69,7 +69,9 @@ type
function DialogChar(var Message: TLMKey): boolean; override;
procedure DoHide; dynamic;
procedure DoShow; dynamic;
{$IFDEF EnableSizePatch}
procedure DoSendBoundsToInterface; override;
{$ENDIF}
public
constructor Create(TheOwner: TComponent); override;
procedure AdjustClientRect(var ARect: TRect); override;

2
lcl/include/custompage.inc
View File

@ -200,10 +200,12 @@ begin
FOnShow(Self);
end;
{$IFDEF EnableSizePatch}
procedure TCustomPage.DoSendBoundsToInterface;
begin
// a page is only sized by the interface
end;
{$ENDIF}
function TCustomPage.IsControlVisible: Boolean;
begin

8
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1161,6 +1161,14 @@ begin
end
else
SizeMsg.SizeType:=SIZENORMAL;
// don't bother the LCL if nothing changed
case SizeMsg.SizeType of
SIZENORMAL: if TheForm.WindowState=wsNormal then exit;
SIZEICONIC: if TheForm.WindowState=wsMinimized then exit;
SIZEFULLSCREEN: if TheForm.WindowState=wsMaximized then exit;
end;
with SizeMsg do
begin
Result := 0;