|
@@ -16,12 +16,6 @@ type
|
|
|
Body1: TBody;
|
|
|
Div1: TDiv;
|
|
|
Label1: TLabel;
|
|
|
- procedure Div1MouseDown(Event: TFresnelMouseEvent);
|
|
|
- procedure Div1MouseMove(Event: TFresnelMouseEvent);
|
|
|
- procedure Label1Click(Event: TAbstractEvent);
|
|
|
- procedure Label1MouseDown(Event: TFresnelMouseEvent);
|
|
|
- procedure Label1MouseMove(Event: TFresnelMouseEvent);
|
|
|
- procedure Label1MouseUp(Event: TFresnelMouseEvent);
|
|
|
procedure MainFormCreate(Sender: TObject);
|
|
|
private
|
|
|
public
|
|
@@ -37,36 +31,6 @@ implementation
|
|
|
|
|
|
{ TMainForm }
|
|
|
|
|
|
-procedure TMainForm.Label1Click(Event: TAbstractEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Label1Click ',Event.EventID);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TMainForm.Div1MouseDown(Event: TFresnelMouseEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Div1MouseDown ',Event.ControlX,',',Event.ControlY);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TMainForm.Div1MouseMove(Event: TFresnelMouseEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Div1MouseMove ',Event.ControlX,',',Event.ControlY);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TMainForm.Label1MouseDown(Event: TFresnelMouseEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Label1MouseDown ',Event.ControlX,',',Event.ControlY);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TMainForm.Label1MouseMove(Event: TFresnelMouseEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Label1MouseMove ',Event.ControlX,',',Event.ControlY);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TMainForm.Label1MouseUp(Event: TFresnelMouseEvent);
|
|
|
-begin
|
|
|
- writeln('TMainForm.Label1MouseUp ',Event.ControlX,',',Event.ControlY);
|
|
|
-end;
|
|
|
-
|
|
|
procedure TMainForm.MainFormCreate(Sender: TObject);
|
|
|
begin
|
|
|
Stylesheet.Add(''
|