paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 13:12:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: newautosize: fixed TControl.EndAutoSizing

Browse Source 
git-svn-id: trunk@23888 -
This commit is contained in:
mattias 2010-03-09 13:18:04 +00:00
parent f794fcdbe9
commit bc3ac28658
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/control.inc
View File

@ -4838,19 +4838,13 @@ begin
end;
procedure TControl.EndAutoSizing;
{$IFNDEF NewAutoSize}
procedure Error;
begin
RaiseGDBException('TControl.EndAutoSizing');
end;
{$ENDIF}
begin
{$IFDEF NewAutoSize}
EnableAutoSizing;
{$ELSE}
if not FAutoSizingSelf then Error;
FAutoSizingSelf := False;
{$ENDIF}
end;
{------------------------------------------------------------------------------

1
lcl/include/wincontrol.inc
View File

@ -6999,6 +6999,7 @@ begin
// first create the parent handle
Parent.HandleNeeded;
if HandleAllocated then exit;
DebugLn(['WARNING: TWinControl.CreateWnd: parent created handles, but not ours']);
end;
{$ENDIF}
// Control is not visible at this moment. It will be shown in UpdateShowing