paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 05:40:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removed wrong TCustomPage.AdjustClientRect, bug #15205

Browse Source 
git-svn-id: trunk@24262 -
This commit is contained in:
mattias 2010-03-28 08:38:14 +00:00
parent 0e648dd6d1
commit ed6915b885
2 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -74,7 +74,6 @@ type
procedure RealSetText(const AValue: TCaption); override;
public
constructor Create(TheOwner: TComponent); override;
procedure AdjustClientRect(var ARect: TRect); override;
function CanTab: boolean; override;
function AutoSizeDelayed: boolean; override;
function IsControlVisible: Boolean; override;

9
lcl/include/custompage.inc
View File

@ -149,15 +149,6 @@ begin
' Message.Result=',Message.Result);}
end;
{------------------------------------------------------------------------------
TCustomPage AdjustClientRect
Params: Rect
------------------------------------------------------------------------------}
procedure TCustomPage.AdjustClientRect(var ARect: TRect);
begin
ARect:=GetClientRect;
end;
{------------------------------------------------------------------------------
function TCustomPage.PageIndex: integer;