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

lcl TLabel: unbind Color and Transparent to fix ParentColor issues (fixes)

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-05-03 20:39:23 +02:00
parent b46504f61e
commit 1837c65413
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customlabel.inc
View File

@ -394,11 +394,6 @@ begin
end;
end;
function TCustomLabel.ColorIsStored: boolean;
begin
Result := (Color <> clNone);
end;
{-------------------------------------------------------------------------------
function TCustomLabel.AdjustFontForOptimalFill: Boolean;
@ -433,7 +428,7 @@ const
begin
R := Rect(0,0,Width,Height);
Canvas.Brush.Color := Color;
if (Color<>clNone) and not Transparent then
if not Transparent then
begin
Canvas.Brush.Style:=bsSolid;
Canvas.FillRect(R);

3
lcl/stdctrls.pp
View File

@ -1606,12 +1606,11 @@ type
function CalcFittingFontHeight(const TheText: string;
MaxWidth, MaxHeight: Integer;
out FontHeight, NeededWidth, NeededHeight: Integer): Boolean;
function ColorIsStored: boolean; override;
function AdjustFontForOptimalFill: Boolean;
procedure Paint; override;
procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
property AutoSize default True;
property Color default clDefault;
property Color nodefault;
end;