const
{$IFDEF PAIDVERS}
SDLVersionInfo = 'rotlab_r1210_full';
IsLightEd = false;
{$ELSE}
SDLVersionInfo = 'rotlab_r1210_lighted';
IsLightEd = true;
{$ENDIF}
Release = 1210;
type
{$IFDEF GE_LEV29}
[ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidWin64x)]
{$ENDIF}
TRotLab = class (TCustomLabel)
private
FTextAngle : integer;
FTextPosX : integer;
FTextPosY : integer;
FAntiAlias : boolean;
FAutoCenter : boolean;
FBgColor : TColor;
FTransparent: boolean;
FAlignment : TAlignment;
FFrameStyle : TFrameStyle;
procedure SetTextAngle (value: integer);
procedure SetTextPosX (value: integer);
procedure SetTextPosY (value: integer);
procedure SetAlignment (value: TAlignment);
procedure SetAntiAlias (value: boolean);
procedure SetAutoCenter (value: boolean);
procedure SetColor (value: TColor);
procedure SetTransparent (value: boolean);
procedure SetFrameStyle (value: TFrameStyle);
procedure ProcessResize(Sender: TObject);
protected
procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
procedure Paint; override;
procedure AdjustAutoCenter;
procedure AssignTo (Dest: TPersistent); override;
public
procedure Assign(Source: TPersistent); override;
constructor Create(AOwner: TComponent); override;
published
property Align;
property Alignment read FAlignment write SetAlignment;
property Anchors;
property AntiAlias: boolean read FAntiAlias write SetAntiAlias;
property AutoCenter: boolean
read FAutoCenter write SetAutoCenter;
property Caption;
property Color read FBgColor write SetColor;
property Constraints;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property FrameStyle: TFrameStyle
read FFrameStyle write SetFrameStyle;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property PosX: integer read FTextPosX write SetTextPosX;
property PosY: integer read FTextPosY write SetTextPosY;
property ShowHint;
{$IFDEF GE_LEV17}
property StyleElements;
{$ENDIF}
property TextAngle: integer read FTextAngle write SetTextAngle;
property Transparent read FTransparent write SetTransparent;
property Visible;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter;
property OnMouseLeave;
property OnStartDock;
property OnStartDrag;
end;
|