Class TScrmbl (unit Scrmbl)

Inherits from

TCustomPanel

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 : Boolean

Protected declarations

Events

Variables

But : Array[1..5,1..5] of TBitBtn;


FCongrats : Boolean;


FDragAble : Boolean;


FLevel : TLevel;

Private declarations

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 : Boolean

Protected declarations


Events


Variables


But : Array[1..5,1..5] of TBitBtn;


FCongrats : Boolean;


FDragAble : Boolean;


FLevel : TLevel;

Private declarations


FStart : Boolean;