Class TForm1 (unit Demo)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Rouler1Paint(Sender: TObject);


Properties

Events

Variables

Panel1 : TPanel;


Rouler1 : TRouler;


Rouler10 : TRouler;


Rouler11 : TRouler;


Rouler12 : TRouler;


Rouler13 : TRouler;


Rouler2 : TRouler;


Rouler3 : TRouler;


Rouler4 : TRouler;


Rouler5 : TRouler;


Rouler6 : TRouler;


Rouler7 : TRouler;


Rouler8 : TRouler;


Rouler9 : TRouler;


OldX : integer;

Private-Deklarationen

OldY : integer;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure Rouler1Paint(Sender: TObject);


Properties


Events


Variables


Panel1 : TPanel;


Rouler1 : TRouler;


Rouler10 : TRouler;


Rouler11 : TRouler;


Rouler12 : TRouler;


Rouler13 : TRouler;


Rouler2 : TRouler;


Rouler3 : TRouler;


Rouler4 : TRouler;


Rouler5 : TRouler;


Rouler6 : TRouler;


Rouler7 : TRouler;


Rouler8 : TRouler;


Rouler9 : TRouler;


OldX : integer;

Private-Deklarationen


OldY : integer;