Class TSetupMsg (unit Msgdefs)

Inherits from

TForm

Constructors



Functions

Procedure Trigger(Sender : TObject; Var Done : Boolean);

Private declarations

Delay a Bit


procedure CancelClick(Sender: TObject);

Loading

procedure CgChange(Sender: TObject);


procedure FormActivate(Sender: TObject);

Recreate the Bitmap

procedure FormCreate(Sender: TObject);

Bitmap of the Message

Move it, and trigger again


procedure FormDestroy(Sender: TObject);


procedure NewMsgChange(Sender: TObject);

Write The Background Color

procedure OkClick(Sender: TObject);

Reset the Font

procedure PassTypeClick(Sender: TObject);


procedure SetPwdClick(Sender: TObject);

Set OnIdle Proc

procedure SpdChange(Sender: TObject);

Deactivate the Password Button

procedure TxtFontClick(Sender: TObject);

Bye Bye

Procedure CreateBitMsg(FreeIt : Boolean);

Fill It

Procedure MoveMsg(Var WinMsg : TMessage);

Refresh

Properties

Events

Variables

Cancel : TBitBtn;


Cd : TColorDialog;


Cg : TColorGrid;


Ctr : TRadioButton;


Fd : TFontDialog;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Msg : TLabel;


NewMsg : TEdit;


Ok : TBitBtn;


PassType : TComboBox;


Pos : TGroupBox;


Rnd : TRadioButton;


SetPwd : TBitBtn;


Spd : TScrollBar;


TxtFont : TBitBtn;


BitMsg : TBitmap;

Current TOP position of Message

iMsgL : Integer;


iMsgR : Integer;

Current LEFT position of Message

iMsgT : Integer;

Current RIGHT position of Message

Loading : Boolean;


Scrn : TMiniScrn;

Bitmap of the Message


Constructors


Functions


Procedure Trigger(Sender : TObject; Var Done : Boolean);

Private declarations

Delay a Bit


procedure CancelClick(Sender: TObject);

Loading


procedure CgChange(Sender: TObject);


procedure FormActivate(Sender: TObject);

Recreate the Bitmap


procedure FormCreate(Sender: TObject);

Bitmap of the Message

Move it, and trigger again


procedure FormDestroy(Sender: TObject);


procedure NewMsgChange(Sender: TObject);

Write The Background Color


procedure OkClick(Sender: TObject);

Reset the Font


procedure PassTypeClick(Sender: TObject);


procedure SetPwdClick(Sender: TObject);

Set OnIdle Proc


procedure SpdChange(Sender: TObject);

Deactivate the Password Button


procedure TxtFontClick(Sender: TObject);

Bye Bye


Procedure CreateBitMsg(FreeIt : Boolean);

Fill It


Procedure MoveMsg(Var WinMsg : TMessage);

Refresh


Properties


Events


Variables


Cancel : TBitBtn;


Cd : TColorDialog;


Cg : TColorGrid;


Ctr : TRadioButton;


Fd : TFontDialog;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Msg : TLabel;


NewMsg : TEdit;


Ok : TBitBtn;


PassType : TComboBox;


Pos : TGroupBox;


Rnd : TRadioButton;


SetPwd : TBitBtn;


Spd : TScrollBar;


TxtFont : TBitBtn;


BitMsg : TBitmap;

Current TOP position of Message


iMsgL : Integer;


iMsgR : Integer;

Current LEFT position of Message


iMsgT : Integer;

Current RIGHT position of Message


Loading : Boolean;


Scrn : TMiniScrn;

Bitmap of the Message