Class TTimeAutoForm (unit RasDial4) |
Inherits from
TAutoForm
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MonFromEditExit(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Check : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Execute : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LoadFromIniFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SaveToIniFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConvertToDateTime;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CancelButton : TButton;
FriFromEdit : TEdit;
FriToEdit : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MonFromEdit : TEdit;
MonToEdit : TEdit;
OkButton : TButton;
PasswordEdit : TEdit;
SatFromEdit : TEdit;
SatToEdit : TEdit;
SunFromEdit : TEdit;
SunToEdit : TEdit;
ThuFromEdit : TEdit;
ThuToEdit : TEdit;
TueFromEdit : TEdit;
TueToEdit : TEdit;
WenFromEdit : TEdit;
WenToEdit : TEdit;
Section : String;
Public declarations
FromEdit : array [1..7] of TEdit;
Private declarations
FromSave : array [1..7] of String;
FromTime : array [1..7] of TDateTime;
ToEdit : array [1..7] of TEdit;
ToSave : array [1..7] of String;
ToTime : array [1..7] of TDateTime;
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MonFromEditExit(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Check : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Execute : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LoadFromIniFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SaveToIniFile;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConvertToDateTime;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CancelButton : TButton;
FriFromEdit : TEdit;
FriToEdit : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MonFromEdit : TEdit;
MonToEdit : TEdit;
OkButton : TButton;
PasswordEdit : TEdit;
SatFromEdit : TEdit;
SatToEdit : TEdit;
SunFromEdit : TEdit;
SunToEdit : TEdit;
ThuFromEdit : TEdit;
ThuToEdit : TEdit;
TueFromEdit : TEdit;
TueToEdit : TEdit;
WenFromEdit : TEdit;
WenToEdit : TEdit;
Section : String;
Public declarations
FromEdit : array [1..7] of TEdit;
Private declarations
FromSave : array [1..7] of String;
FromTime : array [1..7] of TDateTime;
ToEdit : array [1..7] of TEdit;
ToSave : array [1..7] of String;
ToTime : array [1..7] of TDateTime;