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.... |
Home GuiPack RotLab Interface of SDL_RotLab | |
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;
|