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

fixed color of notebook pages.

Browse Source 
git-svn-id: trunk@8117 -
This commit is contained in:
vincents 2005-11-09 10:20:24 +00:00
parent 46d2ebfd21
commit dfa88d335e
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/control.inc
View File

@ -2412,13 +2412,15 @@ procedure TControl.Loaded;
begin
inherited Loaded;
{DebugLn('TControl.Loaded A ',Name,':',ClassName,
' CW=',cfClientWidthLoaded in FControlFlags,'=',FLoadedClientSize.X,
' CH=',cfClientHeightLoaded in FControlFlags,'=',FLoadedClientSize.Y,
' CW=',DbgS(cfClientWidthLoaded in FControlFlags),'=',DbgS(FLoadedClientSize.X),
' CH=',DbgS(cfClientHeightLoaded in FControlFlags),'=',DbgS(FLoadedClientSize.Y),
'');}
if ParentColor then
if ParentColor then begin
Color := Parent.Color;
ParentColor := true;
end;
UpdateBaseBounds(true,true,true);
// align this control and the brothers

3
lcl/include/wincontrol.inc
View File

@ -2474,9 +2474,9 @@ begin
begin
TWSWinControlClass(WidgetSetClass).SetColor(Self);
Exclude(FWinControlFlags,wcfColorChanged);
NotifyControls(CM_PARENTCOLORCHANGED);
end else
Include(FWinControlFlags,wcfColorChanged);
NotifyControls(CM_PARENTCOLORCHANGED);
end;
procedure TWinControl.PaintHandler(var TheMessage: TLMPaint);
@ -4877,6 +4877,7 @@ begin
if [wcfColorChanged,wcfFontChanged]*FWinControlFlags<>[] then begin
TWSWinControlClass(WidgetSetClass).SetColor(Self);
NotifyControls(CM_PARENTCOLORCHANGED);
FWinControlFlags:=FWinControlFlags-[wcfColorChanged,wcfFontChanged];
end;
end;