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

lcl: store Label color if it differs from clNone without regards to ParentColor

Browse Source 
git-svn-id: trunk@16537 -
This commit is contained in:
paul 2008-09-11 02:57:11 +00:00
parent 1fa9302245
commit c20e56842f
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlabel.inc
View File

@ -369,9 +369,7 @@ end;
function TCustomLabel.ColorIsStored: boolean;
begin
Result:=(Color<>clNone);
if Result and ParentColor and (Parent<>nil) then
Result:=false;
Result := (Color <> clNone);
end;
{-------------------------------------------------------------------------------

2
lcl/stdctrls.pp
View File

@ -1402,7 +1402,7 @@ type
{ TCustomLabel }
TCustomLabel = class(TGraphicControl)
Private
private
FAlignment: TAlignment;
FFocusControl: TWinControl;
FOptimalFill: Boolean;