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

implement TCustomLabel.Transparent

Browse Source 
git-svn-id: trunk@6656 -
This commit is contained in:
micha 2005-01-21 13:38:10 +00:00
parent 4c10140dbf
commit 4338d1ed7e
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/customlabel.inc
View File

@ -122,6 +122,12 @@ begin
Width := 65;
Height := 17;
FShowAccelChar := True;
Color := clNone;
end;
function TCustomLabel.GetTransparent: boolean;
begin
Result := Color = clNone;
end;
{------------------------------------------------------------------------------
@ -138,6 +144,12 @@ begin
end;
end;
procedure TCustomLabel.SetTransparent(NewTransparent: boolean);
begin
if NewTransparent then
Color := clNone;
end;
{------------------------------------------------------------------------------
Method: TCustomLabel.SetWordWrap
Params: None
@ -216,6 +228,9 @@ end;
{
$Log$
Revision 1.23 2005/01/21 13:38:10 micha
implement TCustomLabel.Transparent
Revision 1.22 2005/01/17 16:42:35 mattias
improved TLabel autosizing

6
lcl/stdctrls.pp
View File

@ -1095,10 +1095,12 @@ type
function GetShowAccelChar: Boolean;
function GetAlignment: TAlignment;
function GetTransparent: boolean;
procedure SetAlignment(Value: TAlignment);
procedure SetFocusControl(Value: TWinControl);
procedure SetLayout(Value: TTextLayout);
procedure SetShowAccelChar(Value: Boolean);
procedure SetTransparent(NewTransparent: boolean);
procedure SetWordWrap(Value: Boolean);
procedure Loaded; override;
@ -1106,6 +1108,7 @@ type
property FocusControl: TWinControl read FFocusControl write SetFocusControl;
property Layout: TTextLayout read FLayout write SetLayout default tlTop;
property ShowAccelChar: Boolean read GetShowAccelChar write SetShowAccelChar default true;
property Transparent: boolean read GetTransparent write SetTransparent default true;
property WordWrap: Boolean read FWordWrap write SetWordWrap default false;
public
constructor Create(AOwner: TComponent); override;
@ -1214,6 +1217,9 @@ end.
{ =============================================================================
$Log$
Revision 1.186 2005/01/21 13:38:10 micha
implement TCustomLabel.Transparent
Revision 1.185 2005/01/20 16:58:16 mattias
published TComboBox.OnDbClick