The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_RotLab

const
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'rotlab_r1200_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'rotlab_r1200_lighted';
  IsLightEd = true;
{$ENDIF}
  Release = 1200;

type
  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;






Last Update: 2023-Feb-06