home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
ctrlkit.zip
/
LABELFRM.INT
< prev
next >
Wrap
Text File
|
1995-09-16
|
867b
|
37 lines
unit LabelFrm;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TTextOffset = 1..16;
TFramedLabel = class(TLabel)
private
FFrameColor : TColor;
FOffset : TTextOffset;
FShowFrame : Boolean;
procedure SetFrameColor(AColor : TColor);
procedure SetTextOffset(AValue : TTextOffset);
procedure SetShowFrame(ABoolean : Boolean);
protected
procedure Paint; override;
public
constructor Create(Aowner : TComponent); override;
published
property FrameColor: TColor read FFrameColor write SetFrameColor default clBlack;
property TextOffset: TTextOffset read FOffset write SetTextOffset default 1;
property ShowFrame: Boolean read FShowFrame write SetShowFrame default True;
end;
implementation
end.