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

lcl: formatting

Browse Source 
git-svn-id: trunk@18283 -
This commit is contained in:
paul 2009-01-14 04:33:24 +00:00
parent 2001ec4013
commit 92a3c282c1
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/customform.inc
View File

@ -544,13 +544,14 @@ begin
DebugLn('[TCustomForm.WMSize] ',DbgSName(Self),' Message.SizeType=',dbgs(Message.SizeType),' Message.Width=',dbgs(Message.Width),' Message.Height=',dbgs(Message.Height));
{$ENDIF}
Assert(False, 'Trace:WMSIZE in TCustomForm');
if not (csDesigning in ComponentState) then begin
OldState:=FWindowState;
if not (csDesigning in ComponentState) then
begin
OldState := FWindowState;
case (Message.SizeType and not SIZE_SourceIsInterface) of
SIZENORMAL :
SIZENORMAL:
if Showing then
FWindowState := wsNormal;
SIZEICONIC :
SIZEICONIC:
begin
if Showing then
FWindowState := wsMinimized;
@ -562,7 +563,8 @@ begin
if Showing then
FWindowState := wsMaximized;
end;
if OldState<>FWindowState then begin
if OldState <> FWindowState then
begin
if Assigned(OnWindowStateChange) then
OnWindowStateChange(Self);
end;

2
lcl/interfaces/win32/win32int.pp
View File

@ -161,7 +161,7 @@ type
procedure CheckPipeEvents;
function WinRegister: Boolean;
protected
protected
function CreateThemeServices: TThemeServices; override;
public
{ Creates a callback of Lazarus message Msg for Sender }