paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 09:20:49 +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 begin
inherited Loaded; inherited Loaded;
{DebugLn('TControl.Loaded A ',Name,':',ClassName, {DebugLn('TControl.Loaded A ',Name,':',ClassName,
' CW=',cfClientWidthLoaded in FControlFlags,'=',FLoadedClientSize.X, ' CW=',DbgS(cfClientWidthLoaded in FControlFlags),'=',DbgS(FLoadedClientSize.X),
' CH=',cfClientHeightLoaded in FControlFlags,'=',FLoadedClientSize.Y, ' CH=',DbgS(cfClientHeightLoaded in FControlFlags),'=',DbgS(FLoadedClientSize.Y),
'');} '');}
if ParentColor then if ParentColor then begin
Color := Parent.Color; Color := Parent.Color;
ParentColor := true;
end;
UpdateBaseBounds(true,true,true); UpdateBaseBounds(true,true,true);
// align this control and the brothers // align this control and the brothers

3
lcl/include/wincontrol.inc
View File

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