Class TSetupBalls (unit Balldefs)

Inherits from

TForm

Constructors



Functions

procedure BSizeChange(Sender: TObject);

Set new Value

procedure CancelClick(Sender: TObject);

We are Loading

procedure FormActivate(Sender: TObject);

Write the Ball size

procedure FormCreate(Sender: TObject);

Bitmap of the Message

procedure MaxBallsChange(Sender: TObject);

others can't be set so disable

procedure OkClick(Sender: TObject);

Bye Bye

procedure PwdTypesChange(Sender: TObject);

Free the dialog

procedure SetPwdClick(Sender: TObject);

Tag for later

Properties

Events

Variables

BSize : TScrollBar;


BSizeVal : TLabel;


Cancel : TBitBtn;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


MaxBalls : TScrollBar;


MaxBallVal : TLabel;


Ok : TBitBtn;


PwdTypes : TComboBox;


SetPwd : TBitBtn;


Loading : Boolean;



Constructors


Functions


procedure BSizeChange(Sender: TObject);

Set new Value


procedure CancelClick(Sender: TObject);

We are Loading


procedure FormActivate(Sender: TObject);

Write the Ball size


procedure FormCreate(Sender: TObject);

Bitmap of the Message


procedure MaxBallsChange(Sender: TObject);

others can't be set so disable


procedure OkClick(Sender: TObject);

Bye Bye


procedure PwdTypesChange(Sender: TObject);

Free the dialog


procedure SetPwdClick(Sender: TObject);

Tag for later


Properties


Events


Variables


BSize : TScrollBar;


BSizeVal : TLabel;


Cancel : TBitBtn;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


MaxBalls : TScrollBar;


MaxBallVal : TLabel;


Ok : TBitBtn;


PwdTypes : TComboBox;


SetPwd : TBitBtn;


Loading : Boolean;