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

lcl: move condition to top to reduce amount of executed code

Browse Source 
git-svn-id: trunk@36185 -
This commit is contained in:
paul 2012-03-21 02:53:00 +00:00
parent a152f6fb8f
commit d46180aa2f
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/wincontrol.inc
View File

@ -6886,7 +6886,12 @@ var
end;
begin
if Message.WindowPos=nil then exit;
if not Assigned(Message.WindowPos) or
((Message.WindowPos^.flags and SWP_SourceIsInterface) = 0) then
begin
inherited WMWindowPosChanged(Message);
Exit;
end;
{$IFDEF VerboseAllAutoSize}
DebugLn(DbgSName(Self) + ' : ' + DbgSWindowPosFlags(Message.WindowPos^.flags));
@ -6905,12 +6910,6 @@ begin
' BoundsRealized=',dbgs(FBoundsRealized),' FromIntf=',(Message.WindowPos^.flags and SWP_SourceIsInterface)>0,' ClientRectInvalid=',ClientRectNeedsInterfaceUpdate]);
{$ENDIF}
if (Message.WindowPos=nil) or ((Message.WindowPos^.flags and SWP_SourceIsInterface) = 0) then
begin
inherited WMWindowPosChanged(Message);
exit;
end;
// interface widget has moved/resized
// -> update realized bounds
{$IFDEF VerboseAllAutoSize}