| Class TScrmbl (unit Scrmbl) |
TCustomPanel
| Constructors |
constructor Create(AOwner:TComponent);Published declarations
| Functions |
destructor Destroy;
procedure ButtonClick(Sender: TObject);
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonsColors;
procedure ButtonsInit;
procedure ButtonsPos;
procedure Congratulations;
procedure Resize;
procedure SetLevel(Value: TLevel);
procedure WMNCHitTest(var Mes: TWMNCHitTest);| Properties |
property Level : TLevel
property Congrats : Boolean| Events |
| Variables |
But : Array[1..5,1..5] of TBitBtn;
FCongrats : Boolean;
FDragAble : Boolean;
FLevel : TLevel;
FStart : Boolean;| Constructors |
constructor Create(AOwner:TComponent);Public declarations
Published declarations
| Functions |
destructor Destroy;
procedure ButtonClick(Sender: TObject);
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonsColors;
procedure ButtonsInit;
procedure ButtonsPos;
procedure Congratulations;
procedure Resize;
procedure SetLevel(Value: TLevel);
procedure WMNCHitTest(var Mes: TWMNCHitTest);| Properties |
property Level : TLevel
property Congrats : BooleanProtected declarations
| Events |
| Variables |
But : Array[1..5,1..5] of TBitBtn;
FCongrats : Boolean;
FDragAble : Boolean;
FLevel : TLevel;Private declarations
FStart : Boolean;