paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-13 18:57:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added TCustomLabel.GetLabelText (issue #9121) from Laurent

Browse Source 
git-svn-id: trunk@11339 -
This commit is contained in:
vincents 2007-06-20 22:05:55 +00:00
parent 01701c1ee8
commit 6a03559a23
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customlabel.inc
View File

@ -136,6 +136,11 @@ begin
Result := FAlignment;
end;
function TCustomLabel.GetLabelText: string;
begin
Result := Caption;
end;
Procedure TCustomLabel.SetShowAccelChar(Value : Boolean);
begin
If FShowAccelChar <> Value then begin
@ -355,6 +360,7 @@ var
R : TRect;
TextLeft, TextTop: integer;
lTextWidth, lTextHeight: integer;
LabelText: string;
begin
R := Rect(0,0,Width,Height);
With Canvas do begin
@ -411,12 +417,13 @@ begin
end;
end;
//debugln('TCustomLabel.Paint ',dbgs(Alignment=tacenter),' ',dbgs(Layout=tlCenter),' ',dbgs(TextLeft),' TextTop=',dbgs(TextTop),' ',dbgs(R));
LabelText := GetLabelText;
if not Enabled then begin
Font.Color := clBtnHighlight;
TextRect(R, TextLeft + 1, TextTop + 1, Caption, TR);
TextRect(R, TextLeft + 1, TextTop + 1, LabelText, TR);
Font.color := clBtnShadow;
end;
TextRect(R, TextLeft, TextTop, Caption, TR)
TextRect(R, TextLeft, TextTop, LabelText, TR)
end;
end;

1
lcl/stdctrls.pp
View File

@ -1256,6 +1256,7 @@ type
function GetShowAccelChar: Boolean;
function GetAlignment: TAlignment;
function GetLabelText: string; virtual;
function GetTransparent: boolean;
procedure SetAlignment(Value: TAlignment);
procedure SetColor(NewColor: TColor); override;