Class TSetupMsg (unit Msgdefs) |
Inherits from
TForm
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
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
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
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