Class

TReminderDialog

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Inherits from

TObject

Inherited by

TReminder

Declaration


TReminderDialog = class(TObject)
private
  FDlgData: string;
  FElements: TStringList; // list of TRemDlgElement objects
  FOnNeedRedraw: TNotifyEvent;
  FNeedRedrawCount: integer;
  FOnTextChanged: TNotifyEvent;
  FTextChangedCount: integer;
  FPCEDataObj: TPCEData;
  FNoResolve: boolean;
  FWHReviewIEN: string;  // AGP CHANGE 23.13 Allow for multiple processing of WH Review of Result Reminders
  FRemWipe: integer;
  FMHTestArray: TORStringList;
protected
  function GetIEN: string; virtual;
  function GetPrintName: string; virtual;
  procedure BeginNeedRedraw;
  procedure EndNeedRedraw(Sender: TObject);
  procedure BeginTextChanged;
  procedure EndTextChanged(Sender: TObject);
  function GetDlgSL: TORStringList;
  procedure ComboBoxResized(Sender: TObject);
  procedure ComboBoxCheckedText(Sender: TObject; NumChecked: integer; var Text: string);
  function AddData(Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer;
  function Visible: boolean;
public
  constructor BaseCreate;
  constructor Create(ADlgData: string);
  destructor Destroy; override;
  procedure FinishProblems(List: TStrings; var MissingTemplateFields: boolean);
  function BuildControls(ParentWidth: integer; AParent, AOwner: TWinControl): TWinControl;
  function Processing: boolean;
  procedure AddText(Lst: TStrings);
  property PrintName: string read GetPrintName;
  property IEN: string read GetIEN;
  property Elements: TStringList read FElements;
  property OnNeedRedraw: TNotifyEvent read FOnNeedRedraw write FOnNeedRedraw;
  property OnTextChanged: TNotifyEvent read FOnTextChanged write FOnTextChanged;
  property PCEDataObj: TPCEData read FPCEDataObj write FPCEDataObj;
  property DlgData: string read FDlgData; //AGP Change 24.8
  property WHReviewIEN: string read FWHReviewIEN write FWHReviewIEN;  //AGP CHANGE 23.13
  property RemWipe: integer read FRemWipe write FRemWipe;
  property MHTestArray: TORStringList read FMHTestArray write FMHTestArray;
end;

Class Hierarchy


TObject
 └TReminderDialog
   └TReminder

Class Fields

Name Type Scope Comments
FDlgData UnicodeString Private -
FElements TStringList Private List of TRemDlgElement objects
FMHTestArray TORStringList Private -
FNeedRedrawCount Integer Private -
FNoResolve Boolean Private -
FOnNeedRedraw TNotifyEvent Private -
FOnTextChanged TNotifyEvent Private -
FPCEDataObj TPCEData Private -
FRemWipe Integer Private -
FTextChangedCount Integer Private -
FWHReviewIEN UnicodeString Private AGP CHANGE 23.13 Allow for multiple processing of WH Review of Result Reminders

Properties

Name Type Scope Comments
DlgData UnicodeString Public AGP Change 24.8
Elements TStringList Public -
IEN UnicodeString Public -
MHTestArray TORStringList Public -
OnNeedRedraw TNotifyEvent Public -
OnTextChanged TNotifyEvent Public -
PCEDataObj TPCEData Public -
PrintName UnicodeString Public -
RemWipe Integer Public -
WHReviewIEN UnicodeString Public AGP CHANGE 23.13

Constructors

Name Declaration Scope Comments
BaseCreate constructor BaseCreate; Public Line: string;
Create constructor Create(ADlgData: string); Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
AddData function AddData(Lst: TStrings; Finishing: boolean = FALSE; Historical: boolean = FALSE): integer; Protected -
AddText procedure AddText(Lst: TStrings); Public -
BeginNeedRedraw procedure BeginNeedRedraw; Protected -
BeginTextChanged procedure BeginTextChanged; Protected -
BuildControls function BuildControls(ParentWidth: integer; AParent, AOwner: TWinControl): TWinControl; Public -
ComboBoxCheckedText procedure ComboBoxCheckedText(Sender: TObject; NumChecked: integer; var Text: string); Protected -
ComboBoxResized procedure ComboBoxResized(Sender: TObject); Protected -
EndNeedRedraw procedure EndNeedRedraw(Sender: TObject); Protected -
EndTextChanged procedure EndTextChanged(Sender: TObject); Protected -
FinishProblems procedure FinishProblems(List: TStrings; var MissingTemplateFields: boolean); Public -
GetDlgSL function GetDlgSL: TORStringList; Protected -
GetIEN function GetIEN: string; virtual; Protected -
GetPrintName function GetPrintName: string; virtual; Protected -
Processing function Processing: boolean; Public -
Visible function Visible: boolean; Protected -

Referenced By (27)

Module (line) Referrer Type
fReminderDialog (62) TfrmRemDlg Read
fReminderDialog (103) CurrentReminderInDialog Read
fReminderDialog (165) - Read
fReminderDialog (481) - Read
fReminderDialog (482) - Read
fReminderDialog (484) - Read
fReminderDialog (486) - Read
fReminderDialog (491) - Read
fReminderDialog (492) - Read
fReminderDialog (502) - Read
fReminderDialog (503) - Read
fReminderDialog (504) - Read
fReminderDialog (506) - Read
fReminderDialog (508) - Read
fReminderDialog (694) - Read
fReminderDialog (891) - Read
fReminderDialog (934) - Read
fReminderDialog (935) - Read
fReminderDialog (943) - Read
fReminderDialog (1073) - Read
fReminderDialog (1201) - Read
fReminderDialog (1791) - Read
uReminders (56) TReminder Read
uReminders (84) TRemDlgElement Read
uReminders (160) TRemDlgElement Read
uReminders (350) GetReminderData Read
uReminders (2183) - Read