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

LCL: DoAllAutoSize: check handleallocated for childs, needed after SetParent

Browse Source 
git-svn-id: trunk@24407 -
This commit is contained in:
mattias 2010-04-04 18:31:32 +00:00
parent 20a40f4a3b
commit 7c4cb1efcb
3 changed files with 36 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -1008,7 +1008,7 @@ procedure TCustomForm.SetParent(NewParent: TWinControl);
begin
if Parent=NewParent then exit;
{$IFNDEF OldAutoSize}
DisableAutoSizing;
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.SetParent'){$ENDIF};
{$ENDIF}
try
if HandleAllocated then DestroyHandle;
@ -1017,7 +1017,7 @@ begin
HandleNeeded;
finally
{$IFNDEF OldAutoSize}
EnableAutoSizing;
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.SetParent'){$ENDIF};
{$ENDIF}
end;
end;

4
lcl/include/toolbar.inc
View File

@ -107,12 +107,12 @@ procedure TToolBar.CreateWnd;
begin
BeginUpdate;
try
DisableAutoSizing;
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TToolBar.CreateWnd'){$ENDIF};
try
inherited CreateWnd;
UpdateVisibleBar;
finally
EnableAutoSizing;
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TToolBar.CreateWnd'){$ENDIF};
end;
finally
EndUpdate;

42
lcl/include/wincontrol.inc
View File

@ -3409,6 +3409,30 @@ end;
{$IFNDEF OldAutoSize}
procedure TWinControl.DoAllAutoSize;
function CheckHandleAllocated(AWinControl: TWinControl): boolean;
// true if a handle was missing
var
i: Integer;
ChildWinControl: TWinControl;
begin
if AWinControl.HandleObjectShouldBeVisible
and (not AWinControl.HandleAllocated) then
begin
{$IFDEF VerboseAllAutoSize}
DebugLn(['TWinControl.DoAllAutoSize CREATE HANDLE ',DbgSName(AWinControl)]);
{$ENDIF}
AWinControl.HandleNeeded;
exit(true);
end;
for i:=0 to AWinControl.ControlCount-1 do begin
ChildWinControl:=TWinControl(AWinControl.Controls[i]);
if (ChildWinControl is TWinControl)
and CheckHandleAllocated(ChildWinControl) then
exit(true);
end;
Result:=false;
end;
procedure ClearRequests(AControl: TControl);
var
i: Integer;
@ -3442,21 +3466,17 @@ begin
DebugLn(['TWinControl.DoAllAutoSize START ',DbgSName(Self),' ',dbgs(BoundsRect)]);
{$ENDIF}
// create needed handles
if not HandleAllocated then begin
if HandleObjectShouldBeVisible then begin
{$IFDEF VerboseAllAutoSize}
DebugLn(['TWinControl.DoAllAutoSize CREATE HANDLE ',DbgSName(Self)]);
{$ENDIF}
HandleNeeded;
if HandleObjectShouldBeVisible then begin
if CheckHandleAllocated(Self) then begin
// creating the handle called DisableAutoSizing/EnableAutoSizing
// so after handle creation the autosizing was done
// => exit
exit;
end else begin
// no autosize possible => remove needed flags
ClearRequests(Self);
exit;
end;
end else begin
// no autosize possible => remove needed flags
ClearRequests(Self);
exit;
end;
Include(FWinControlFlags,wcfAllAutoSizing);
@ -6041,6 +6061,8 @@ begin
AControl.UpdateAnchorRules;
AControl.RequestAlign;
end;
{$ELSE}
AdjustSize;
{$ENDIF}
Perform(CM_CONTROLCHANGE, WParam(AControl), LParam(True));
{$IFNDEF OldAutoSize}