Class TScrollMessage (unit Scrolmsg)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions

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


Properties

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

Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

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;



Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions


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


Properties


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


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


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;