Class TBMScroll (unit Bmscroll)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure Click;


procedure CreateParams(var Params: TCreateParams);

Protected declarations

procedure DestroyWnd;


function GetSoundFile: String;


procedure Loaded;


procedure Paint;

Get things rolling.

procedure SetBitmap(V: TBitmap);


procedure SetBorderStyle(V: TBorderStyle);


procedure SetScrolling(V: Boolean);


procedure SetScrollTime(V: longint);


procedure SetSoundFile(const V: String);


procedure WMTimer(var Msg: TWMTimer);


Properties

property Align :

Published declarations

property AutoScroll : Boolean


property Bitmap : TBitmap


property BorderStyle : TBorderStyle


property ClickScroll : Boolean


property Enabled :


property Height :


property Hint :


property ScrollIt : Boolean


property ScrollLoops : Integer


property ScrollStep : Integer


property ScrollTime : Longint


property ShowHint :


property SoundFile : String


property SoundLoop : Boolean


property Visible :


property Width :


property Scrolling : Boolean


Events

Variables

FAutoScroll : Boolean;

Private declarations

FBitmap : TBitmap;


FBorderStyle : TBorderStyle;


FClickScroll : Boolean;


FLoopLeft : Integer;


FScrolling : Boolean;


FScrollLoops : Integer;


FScrollStep : Integer;


FScrollTime : Longint;


FSoundFile : PString;


FSoundLoop : Boolean;


FYOffset : Integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure Click;


procedure CreateParams(var Params: TCreateParams);

Protected declarations


procedure DestroyWnd;


function GetSoundFile: String;


procedure Loaded;


procedure Paint;

Get things rolling...


procedure SetBitmap(V: TBitmap);


procedure SetBorderStyle(V: TBorderStyle);


procedure SetScrolling(V: Boolean);


procedure SetScrollTime(V: longint);


procedure SetSoundFile(const V: String);


procedure WMTimer(var Msg: TWMTimer);


Properties


property Align :

Published declarations


property AutoScroll : Boolean


property Bitmap : TBitmap


property BorderStyle : TBorderStyle


property ClickScroll : Boolean


property Enabled :


property Height :


property Hint :


property ScrollIt : Boolean


property ScrollLoops : Integer


property ScrollStep : Integer


property ScrollTime : Longint


property ShowHint :


property SoundFile : String


property SoundLoop : Boolean


property Visible :


property Width :


property Scrolling : Boolean


Events


Variables


FAutoScroll : Boolean;

Private declarations


FBitmap : TBitmap;


FBorderStyle : TBorderStyle;


FClickScroll : Boolean;


FLoopLeft : Integer;


FScrolling : Boolean;


FScrollLoops : Integer;


FScrollStep : Integer;


FScrollTime : Longint;


FSoundFile : PString;


FSoundLoop : Boolean;


FYOffset : Integer;