Class TForm1 (unit timemain) |
Inherits from
TForm
@/// TForm1 = class(TForm)
procedure btn_actionClick(Sender: TObject);
$endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure TForm1.
procedure btn_setClick(Sender: TObject);
@\\\0000000301*) (*@/// procedure TForm1.
btn_action : TButton;
btn_set : TButton;
edt_hostname : TEdit;
edt_offset : TEdit;
edt_time : TEdit;
lbl_host : TLabel;
lbl_offset : TLabel;
lbl_time : TLabel;
time : T_Time;
offset : integer;
procedure btn_actionClick(Sender: TObject);
$endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure TForm1.btn_actionClick(Sender: TObject);
procedure btn_setClick(Sender: TObject);
@\\\0000000301*) (*@/// procedure TForm1.btn_setClick(Sender: TObject);
btn_action : TButton;
btn_set : TButton;
edt_hostname : TEdit;
edt_offset : TEdit;
edt_time : TEdit;
lbl_host : TLabel;
lbl_offset : TLabel;
lbl_time : TLabel;
time : T_Time;
offset : integer;