Class

TfrmOtherSchedule

Module

fOtherSchedule

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmOtherSchedule = class(TfrmAutoSz)
  Panel1: TPanel;
  Image1: TImage;
  Panel3: TPanel;
  GroupBox1: TGroupBox;
  cbo7: TCheckBox;
  cbo1: TCheckBox;
  cbo2: TCheckBox;
  cbo3: TCheckBox;
  cbo4: TCheckBox;
  cbo5: TCheckBox;
  cbo6: TCheckBox;
  GroupBox2: TGroupBox;
  lstHour: TListBox;
  lstMinute: TListBox;
  Panel4: TPanel;
  btn0k1: TButton;
  btnCancel: TButton;
  Label1: TLabel;
  btnReset: TButton;
  btnRemove: TButton;
  memMessage: TMemo;
  Splitter1: TSplitter;
  btnAdd: TButton;
  Button1: TButton;
  GroupBox3: TGroupBox;
  NSScboSchedule: TORComboBox;
  btnSchAdd: TButton;
  btnSchRemove: TButton;
  txtSchedule: TEdit;
  procedure FormCreate(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure btn0k1Click(Sender: TObject);
  procedure cbo7Click(Sender: TObject);
  procedure cbo1Click(Sender: TObject);
  procedure cbo2Click(Sender: TObject);
  procedure cbo3Click(Sender: TObject);
  procedure cbo4Click(Sender: TObject);
  procedure cbo5Click(Sender: TObject);
  procedure cbo6Click(Sender: TObject);
  procedure btnAddClick(Sender: TObject);
  procedure btnResetClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure lstHourClick(Sender: TObject);
  procedure txtScheduleChange(Sender: TObject);
  procedure lstMinuteMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure lstMinuteKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure Button1Click(Sender: TObject);
  procedure btnSchAddClick(Sender: TObject);
  procedure btnSchRemoveClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure NSScboScheduleExit(Sender: TObject);
  procedure NSScboScheduleKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  FDaySchedule: array [1..7] of string;
  FTimeSchedule: TStringList;
  FSchedule: String;
  FOtherSchedule: String;
  FFromCheckBox: boolean;
  FFromEditBox: boolean;
  function GetSiteMessage: string;
  procedure SetDaySchedule(Sender: TObject);
  procedure SetTimeSchedule;
  procedure SetScheduleSelection;
  procedure UpdateOnFreeTextInput;
  procedure EnabledTime(TF: boolean);
  procedure EnabledSch(TF: boolean);
  function CheckDay(ADayStr: string): string;
  
public
end;

DFM Objects


frmOtherSchedule : TfrmOtherSchedule
 ├Splitter1 : TSplitter
 ├Panel1 : TPanel
 │ ├Image1 : TImage
 │ └memMessage : TMemo
 ├Panel3 : TPanel
 │ ├GroupBox1 : TGroupBox
 │ │ ├cbo7 : TCheckBox
 │ │ ├cbo1 : TCheckBox
 │ │ ├cbo2 : TCheckBox
 │ │ ├cbo3 : TCheckBox
 │ │ ├cbo4 : TCheckBox
 │ │ ├cbo5 : TCheckBox
 │ │ ├cbo6 : TCheckBox
 │ │ └Button1 : TButton
 │ ├GroupBox2 : TGroupBox
 │ │ ├lstHour : TListBox
 │ │ ├lstMinute : TListBox
 │ │ ├btnRemove : TButton
 │ │ └btnAdd : TButton
 │ ├Panel4 : TPanel
 │ │ ├Label1 : TLabel
 │ │ ├btn0k1 : TButton
 │ │ ├btnCancel : TButton
 │ │ ├btnReset : TButton
 │ │ └txtSchedule : TEdit
 │ └GroupBox3 : TGroupBox
 │   ├NSScboSchedule : TORComboBox
 │   ├btnSchAdd : TButton
 │   └btnSchRemove : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btn0k1 TButton Public/Published -
btnAdd TButton Public/Published -
btnCancel TButton Public/Published -
btnRemove TButton Public/Published -
btnReset TButton Public/Published -
btnSchAdd TButton Public/Published -
btnSchRemove TButton Public/Published -
Button1 TButton Public/Published -
cbo1 TCheckBox Public/Published -
cbo2 TCheckBox Public/Published -
cbo3 TCheckBox Public/Published -
cbo4 TCheckBox Public/Published -
cbo5 TCheckBox Public/Published -
cbo6 TCheckBox Public/Published -
cbo7 TCheckBox Public/Published -
FDaySchedule Array (static) Private -
FFromCheckBox Boolean Private -
FFromEditBox Boolean Private -
FOtherSchedule UnicodeString Private -
FSchedule UnicodeString Private -
FTimeSchedule TStringList Private -
GroupBox1 TGroupBox Public/Published -
GroupBox2 TGroupBox Public/Published -
GroupBox3 TGroupBox Public/Published -
Image1 TImage Public/Published -
Label1 TLabel Public/Published -
lstHour TListBox Public/Published -
lstMinute TListBox Public/Published -
memMessage TMemo Public/Published -
NSScboSchedule TORComboBox Public/Published -
Panel1 TPanel Public/Published -
Panel3 TPanel Public/Published -
Panel4 TPanel Public/Published -
Splitter1 TSplitter Public/Published -
txtSchedule TEdit Public/Published -

Methods

Name Declaration Scope Comments
btn0k1Click procedure btn0k1Click(Sender: TObject); Public/Published -
btnAddClick procedure btnAddClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnResetClick procedure btnResetClick(Sender: TObject); Public/Published -
btnSchAddClick procedure btnSchAddClick(Sender: TObject); Public/Published -
btnSchRemoveClick procedure btnSchRemoveClick(Sender: TObject); Public/Published -
Button1Click procedure Button1Click(Sender: TObject); Public/Published -
cbo1Click procedure cbo1Click(Sender: TObject); Public/Published -
cbo2Click procedure cbo2Click(Sender: TObject); Public/Published -
cbo3Click procedure cbo3Click(Sender: TObject); Public/Published -
cbo4Click procedure cbo4Click(Sender: TObject); Public/Published -
cbo5Click procedure cbo5Click(Sender: TObject); Public/Published -
cbo6Click procedure cbo6Click(Sender: TObject); Public/Published -
cbo7Click procedure cbo7Click(Sender: TObject); Public/Published -
CheckDay function CheckDay(ADayStr: string): string; Private -
EnabledSch procedure EnabledSch(TF: boolean); Private -
EnabledTime procedure EnabledTime(TF: boolean); Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
GetSiteMessage function GetSiteMessage: string; Private -
lstHourClick procedure lstHourClick(Sender: TObject); Public/Published -
lstMinuteKeyDown procedure lstMinuteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstMinuteMouseUp procedure lstMinuteMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
NSScboScheduleExit procedure NSScboScheduleExit(Sender: TObject); Public/Published -
NSScboScheduleKeyUp procedure NSScboScheduleKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
SetDaySchedule procedure SetDaySchedule(Sender: TObject); Private -
SetScheduleSelection procedure SetScheduleSelection; Private -
SetTimeSchedule procedure SetTimeSchedule; Private -
txtScheduleChange procedure txtScheduleChange(Sender: TObject); Public/Published -
UpdateOnFreeTextInput procedure UpdateOnFreeTextInput; Private -

Referenced By (2)

Module (line) Referrer Type
fOtherSchedule (93) frmOtherSchedule Read
fOtherSchedule (110) - Read