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

fix label bg drawing with color (issue #0010179)

Browse Source 
git-svn-id: trunk@12877 -
This commit is contained in:
paul 2007-11-15 02:56:51 +00:00
parent 4746af795b
commit c3894a3f9e
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/customlabel.inc
View File

@ -391,16 +391,19 @@ var
LabelText: string;
begin
R := Rect(0,0,Width,Height);
With Canvas do begin
if Enabled then Color := Self.Color
else Color := clNone;
with Canvas do
begin
if Enabled then
Brush.Color := Self.Color
else
Brush.Color := clNone;
Font := Self.Font;
if (Color<>clNone) and not Transparent then begin
if (Color<>clNone) and not Transparent then
begin
Brush.Style:=bsSolid;
FillRect(R);
end else begin
end else
Brush.Style:=bsClear;
end;
{
If BorderStyle <> sbsNone then begin
InflateRect(R,-2,-2);