pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

gradcontrols: little beautiful fixes under Darwin (full paint width)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1359 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
2010-10-31 22:09:32 +00:00
parent bdd91129ee
commit 3aad4e18fa
2 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/gradcontrols/src/ugradtabcontrol.pas
View File

@ -1381,7 +1381,6 @@ begin
FNeedOrderButtons := false;
Logger.EnterMethod(Self, 'OrderButtons');
Logger.
FMovedTo:=0;
@ -2952,7 +2951,9 @@ begin
if (pfAdded in APage.FFlags) then exit;
Include(APage.FFlags,pfAdding);
APage.FFlags:=APage.FFlags+[pfAdded]-[pfAdding];
APage.ResizeDelayedAutoSizeChildren
{$IFNDEF DARWIN}
APage.ResizeDelayedAutoSizeChildren;
{$ENDIF}
end else begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TGradTabControl.AddRemovePageHandle REMOVE ',DbgSName(APage),' pfAdded=',pfAdded in APage.FFlags]);