Class

TNotifications

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TNotifications = class
private
  FActive: Boolean;
  FList: TList;
  FCurrentIndex: Integer;
  FNotifyItem: TNotifyItem;
  FNotifIndOrders: boolean;
  function GetDFN: string;  //*DFN*
  function GetFollowUp: Integer;
  function GetAlertData: string;
  function GetHighLightSection: String; //CB
  function GetIndOrderDisplay: Boolean;
  function GetRecordID: string;
  function GetText: string;
  procedure SetIndOrderDisplay(Value: Boolean);
public
  constructor Create;
  destructor Destroy; override;
  procedure Add(const ADFN: string; AFollowUp: Integer; const ARecordID: string; AHighLightSection : string = '');  //*DFN*  CB
  procedure Clear;
  procedure Next;
  procedure Prior;
  procedure Delete;
  procedure DeleteForCurrentUser;
  property Active:   Boolean read FActive;
  property DFN:      string  read GetDFN;  //*DFN*
  property FollowUp: Integer read GetFollowUp;
  property AlertData: string read GetAlertData;
  property RecordID: string  read GetRecordID;
  property Text:     string  read GetText;
  property HighLightSection: String read GetHighLightSection; //cb
  property IndOrderDisplay:  Boolean read GetIndOrderDisplay write SetIndOrderDisplay;
end;

Class Hierarchy


TObject
 └TNotifications

Class Fields

Name Type Scope Comments
FActive Boolean Private -
FCurrentIndex Integer Private -
FList Simple (unknown) Private -
FNotifIndOrders Boolean Private -
FNotifyItem TNotifyItem Private -

Properties

Name Type Scope Comments
Active Boolean Public -
AlertData UnicodeString Public -
DFN UnicodeString Public DFN*
FollowUp Integer Public -
HighLightSection UnicodeString Public Cb
IndOrderDisplay Boolean Public -
RecordID UnicodeString Public -
Text UnicodeString Public -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public TNotifications ----------------------------------------------------------------------------

Destructors

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

Methods

Name Declaration Scope Comments
Add procedure Add(const ADFN: string; AFollowUp: Integer; const ARecordID: string; AHighLightSection : string = ''); Public
DFN*  CB
DFN*
Clear procedure Clear; Public -
Delete procedure Delete; Public -
DeleteForCurrentUser procedure DeleteForCurrentUser; Public -
GetAlertData function GetAlertData: string; Private -
GetDFN function GetDFN: string; Private
DFN*
DFN*
GetFollowUp function GetFollowUp: Integer; Private -
GetHighLightSection function GetHighLightSection: String; Private
CB
CB
GetIndOrderDisplay function GetIndOrderDisplay: Boolean; Private -
GetRecordID function GetRecordID: string; Private -
GetText function GetText: string; Private -
Next procedure Next; Public -
Prior procedure Prior; Public -
SetIndOrderDisplay procedure SetIndOrderDisplay(Value: Boolean); Private -

Referenced By (2)

Module (line) Referrer Type
fFrame (855) - Read
uCore (399) EmptySaved Read