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

TCustomLabel ignored when drawing (Marc Geldon, bug #1247)

Browse Source 
git-svn-id: trunk@7859 -
This commit is contained in:
jesus 2005-09-30 17:58:01 +00:00
parent 331abd3753
commit 4a7241572d
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/Contributors.txt
View File

@ -38,11 +38,13 @@ Ladislav Michl
Lagunov Aleksey
Luis R. Hilario B.
Luiz Americo
Marc Geldon
Marc Weustink
Martin Patik
Martin Smat
Martyn Ranyard
Mattias Gaertner
Matthijs Willemstein
Mazen Neifer
Michael A. Hess
Micha Nelissen

7
lcl/include/customlabel.inc
View File

@ -367,7 +367,12 @@ begin
tlBottom: TextTop := R.Bottom - R.Top - lTextHeight;
end;
//debugln('TCustomLabel.Paint ',dbgs(Alignment=tacenter),' ',dbgs(Layout=tlCenter),' ',dbgs(TextLeft),' TextTop=',dbgs(TextTop),' ',dbgs(R));
TextRect(R, TextLeft, TextTop, Caption, TR);
if not Enabled then begin
Font.Color := clBtnHighlight;
textRect(R, TextLeft + 1, TextTop + 1, Caption, TR);
Font.color := clBtnShadow;
end;
TextRect(R, TextLeft, TextTop, Caption, TR)
end;
end;