Class TScrollMessage (unit Scrolmsg) |
Inherits from
TGraphicControl
constructor Create(AOwner:TComponent);
- Public declarations
destructor Destroy;
procedure Loaded;
This makes Bitmap has higher precedence than Text
procedure Paint;
Protected declarations for AutoSize, adjust the control to fit the bitmap,
but if Align is not alNone, fit the align property
procedure CMFontChanged(var Message:TMessage);
function GetColor:TColor;
procedure IniMemoryBmp;
for AutoSize, adjust the control to fit the bitmap,
but if Align is not alNone, fit the align property
procedure IniTextMemoryBmp;
procedure MoveImage(Sender:TObject);
procedure SetAutoSize(Value:Boolean);
for ScrollDirection=sdVertical
procedure SetBitmap(Value:TBitmap);
procedure SetColor(Value:TColor);
procedure SetEnabled(Value:Boolean);
procedure SetParentCenter(Value:Boolean);
procedure SetParentColor(Value:Boolean);
procedure SetPause(Value:Boolean);
procedure SetScrollDirection(Value:TScrollDirection);
procedure SetScrollInterval(Value:Integer);
procedure SetText(Value:string);
procedure SetTextBitmap;
procedure SetTextToCenter(Value:Boolean);
procedure SetTextWindowLeft(Value:Integer);
procedure SetTextWindowTop(Value:Integer);
property Align :
property AutoSize : Boolean
property Bitmap : TBitmap
property Color :
property Enabled : Boolean
property Font :
property Height :
property ParentCenter : Boolean
property ParentColor :
property ParentShowHint :
property Pause : Boolean
property PopupMenu :
property ScrollDirection : TScrollDirection
property ScrollInterval : Integer
property ScrollInverse : Boolean
property ScrollStep : Integer
property ShowHint :
property Tag :
property Text : string
property TextToCenter : Boolean
property TextWindowLeft : integer
property TextWindowTop : integer
property Visible :
property Width :
Published declarations
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAlreadyIniMemoryBmp : Boolean;
FAlreadyIniTextMemoryBmp : Boolean;
FAutoSize : Boolean;
FBitmap : TBitmap;
FColor : TColor;
Private declarations
FEnabled : Boolean;
FMemoryBmp : TBitmap;
FMemoryHeight : Integer;
FMemoryWidth : Integer;
FParentCenter : Boolean;
FParentColor : Boolean;
FPause : Boolean;
FScrollDirection : TScrollDirection;
FScrollInterval : Integer;
FScrollInverse : Boolean;
FScrollStep : Integer;
FText : string;
FTextBitmap : TBitmap;
FTextBmp : TBitmap;
FTextToCenter : Boolean;
FTextWindowLeft : integer;
FTextWindowTop : integer;
FTimer : TTimer;
FXPos : Integer;
FYPos : Integer;
constructor Create(AOwner:TComponent);
Public declarations
destructor Destroy;
procedure Loaded;
This makes Bitmap has higher precedence than Text
procedure Paint;
Protected declarations
for AutoSize, adjust the control to fit the bitmap,
but if Align is not alNone, fit the align property
procedure CMFontChanged(var Message:TMessage);
function GetColor:TColor;
procedure IniMemoryBmp;
for AutoSize, adjust the control to fit the bitmap,
but if Align is not alNone, fit the align property
procedure IniTextMemoryBmp;
procedure MoveImage(Sender:TObject);
procedure SetAutoSize(Value:Boolean);
for ScrollDirection=sdVertical
procedure SetBitmap(Value:TBitmap);
procedure SetColor(Value:TColor);
procedure SetEnabled(Value:Boolean);
procedure SetParentCenter(Value:Boolean);
procedure SetParentColor(Value:Boolean);
procedure SetPause(Value:Boolean);
procedure SetScrollDirection(Value:TScrollDirection);
procedure SetScrollInterval(Value:Integer);
procedure SetText(Value:string);
procedure SetTextBitmap;
procedure SetTextToCenter(Value:Boolean);
procedure SetTextWindowLeft(Value:Integer);
procedure SetTextWindowTop(Value:Integer);
property Align :
property AutoSize : Boolean
property Bitmap : TBitmap
property Color :
property Enabled : Boolean
property Font :
property Height :
property ParentCenter : Boolean
property ParentColor :
property ParentShowHint :
property Pause : Boolean
property PopupMenu :
property ScrollDirection : TScrollDirection
property ScrollInterval : Integer
property ScrollInverse : Boolean
property ScrollStep : Integer
property ShowHint :
property Tag :
property Text : string
property TextToCenter : Boolean
property TextWindowLeft : integer
property TextWindowTop : integer
property Visible :
property Width :
Published declarations
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAlreadyIniMemoryBmp : Boolean;
FAlreadyIniTextMemoryBmp : Boolean;
FAutoSize : Boolean;
FBitmap : TBitmap;
FColor : TColor;
Private declarations
FEnabled : Boolean;
FMemoryBmp : TBitmap;
FMemoryHeight : Integer;
FMemoryWidth : Integer;
FParentCenter : Boolean;
FParentColor : Boolean;
FPause : Boolean;
FScrollDirection : TScrollDirection;
FScrollInterval : Integer;
FScrollInverse : Boolean;
FScrollStep : Integer;
FText : string;
FTextBitmap : TBitmap;
FTextBmp : TBitmap;
FTextToCenter : Boolean;
FTextWindowLeft : integer;
FTextWindowTop : integer;
FTimer : TTimer;
FXPos : Integer;
FYPos : Integer;