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

MG: removed ClientRectBugfix defines

Browse Source 
git-svn-id: trunk@1107 -
This commit is contained in:
lazarus 2002-02-09 01:47:52 +00:00
parent cbc302efd9
commit 3ae29243f8
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/wincontrol.inc
View File

@ -404,9 +404,7 @@ begin
' New=',r.RIght,'x',r.Bottom);
{$ENDIF}
AlignControl(nil);
{$IFDEF ClientRectBugFix}
Resize;
{$ENDIF}
end;
end;
@ -422,7 +420,6 @@ begin
InterfaceObject.IntSendMessage3(LM_SETGEOMETRY, Self, nil);
end;
{$IFDEF ClientRectBugFix}
{-------------------------------------------------------------------------------
TWinControl InvalidateClientRectCache
@ -470,7 +467,6 @@ begin
inherited DoSetBounds(ALeft,ATop,AWidth,AHeight);
end;
{$ENDIF}
{------------------------------------------------------------------------------}
{ TWinControl EnableAlign }
@ -520,7 +516,6 @@ Begin
end;
function TWinControl.GetClientRect: TRect;
{$IFDEF ClientRectBugFix}
procedure StoreClientRect(NewClientRect: TRect);
begin
@ -565,11 +560,6 @@ begin
Result:=Rect(0,0,FClientWidth,FClientHeight);
end;
end;
{$ELSE}
begin
Result:=inherited GetClientRect;
end;
{$ENDIF}
{------------------------------------------------------------------------------}
{ TWinControl ReCreateWnd }
@ -2293,6 +2283,9 @@ end;
{ =============================================================================
$Log$
Revision 1.76 2002/08/17 15:45:33 lazarus
MG: removed ClientRectBugfix defines
Revision 1.75 2002/08/05 07:43:28 lazarus
MG: fixed BadCursor bug and Circle Reference of FixedWidget of csPanel