alarm.pas

电子小说阅读器v2.68可用于阅读pdf.html等各种形式的文档

{
模块名称：定时提醒设置

使用方法：1、Create
		  2、ShowModal
		  
返回值：  1、mrOk：成功改变设置
		  2、mrCancel：取消改变设置
}

unit Alarm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls;

type
  TFormAlarm = class(TForm)
	GroupBox1: TGroupBox;
	BtnOk: TButton;
	BtnCancel: TButton;

	CheckBoxAlarm1: TCheckBox;
	CheckBoxAlarm2: TCheckBox;
	CheckBoxAlarm3: TCheckBox;
	CheckBoxAlarm4: TCheckBox;

	TimeAlarm1: TDateTimePicker;
	TimeAlarm2: TDateTimePicker;
	TimeAlarm3: TDateTimePicker;
	TimeAlarm4: TDateTimePicker;

	EditAlarm1: TEdit;
	EditAlarm2: TEdit;
	EditAlarm3: TEdit;
	EditAlarm4: TEdit;

	Label1: TLabel;
	Label2: TLabel;
	Label3: TLabel;
	Label4: TLabel;

	Bevel1: TBevel;
	Bevel2: TBevel;
	Bevel3: TBevel;

	procedure FormShow(Sender: TObject);
	procedure BtnOkClick(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  FormAlarm: TFormAlarm;

implementation

uses Global;

{$R *.DFM}

procedure TFormAlarm.FormShow(Sender: TObject);
begin
	CheckBoxAlarm1.Checked := g_boolAlarm[1];  TimeAlarm1.Time := g_AlarmTime[1];  EditAlarm1.Text := g_strAlarmMsg[1];
	CheckBoxAlarm2.Checked := g_boolAlarm[2];  TimeAlarm2.Time := g_AlarmTime[2];  EditAlarm2.Text := g_strAlarmMsg[2];
	CheckBoxAlarm3.Checked := g_boolAlarm[3];  TimeAlarm3.Time := g_AlarmTime[3];  EditAlarm3.Text := g_strAlarmMsg[3];
  	CheckBoxAlarm4.Checked := g_boolAlarm[4];  TimeAlarm4.Time := g_AlarmTime[4];  EditAlarm4.Text := g_strAlarmMsg[4];
end;

procedure TFormAlarm.BtnOkClick(Sender: TObject);
begin
	g_boolAlarm[1] := CheckBoxAlarm1.Checked;  g_AlarmTime[1] := TimeAlarm1.Time;  g_strAlarmMsg[1] := EditAlarm1.Text;
	g_boolAlarm[2] := CheckBoxAlarm2.Checked;  g_AlarmTime[2] := TimeAlarm2.Time;  g_strAlarmMsg[2] := EditAlarm2.Text;
	g_boolAlarm[3] := CheckBoxAlarm3.Checked;  g_AlarmTime[3] := TimeAlarm3.Time;  g_strAlarmMsg[3] := EditAlarm3.Text;
	g_boolAlarm[4] := CheckBoxAlarm4.Checked;  g_AlarmTime[4] := TimeAlarm4.Time;  g_strAlarmMsg[4] := EditAlarm4.Text;
end;

end.