| Class TSetupBalls (unit Balldefs) |
TForm
| Constructors |
| Functions |
procedure BSizeChange(Sender: TObject);
procedure CancelClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MaxBallsChange(Sender: TObject);
procedure OkClick(Sender: TObject);
procedure PwdTypesChange(Sender: TObject);
procedure SetPwdClick(Sender: TObject);| 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;