Class

TdmodShared

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TDataModule

Declaration


TdmodShared = class(TDataModule)
  imgTemplates: TImageList;
  imgReminders: TImageList;
  imgNotes: TImageList;
  imgImages: TImageList;
  imgReminders2: TImageList;
  imgConsults: TImageList;
  imgSurgery: TImageList;
  imgLblReminders: TVA508ImageListLabeler;
  imgLblHealthFactorLabels: TVA508ImageListLabeler;
  imgLblNotes: TVA508ImageListLabeler;
  imgLblImages: TVA508ImageListLabeler;
  imgLblConsults: TVA508ImageListLabeler;
  imgLblSurgery: TVA508ImageListLabeler;
  imgLblReminders2: TVA508ImageListLabeler;
  procedure dmodSharedCreate(Sender: TObject);
  procedure dmodSharedDestroy(Sender: TObject);
private
  FTIUObjects: TStringList;
  FInEditor: boolean;
  FOnTemplateLock: TNotifyEvent;
  FTagIndex: longint;
  FDrawerTrees: TList;
  FRefreshObject: boolean;
protected
  procedure EncounterLocationChanged(Sender: TObject);
public
  function ImgIdx(Node: TTreeNode): integer;
  procedure AddTemplateNode(Tree: TTreeView; var EmptyCount: integer;
                            const tmpl: TTemplate; AllowInactive: boolean = FALSE;
                            const Owner: TTreeNode = nil);
  function ExpandNode(Tree: TTreeView; Node: TTreeNode;
            var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean;
  procedure Resync(SyncNode: TTreeNode; AllowInactive: boolean;
                              var EmptyCount: integer);
  procedure AddDrawerTree(DrawerForm: TForm);
  procedure RemoveDrawerTree(DrawerForm: TForm);
  procedure Reload;
  procedure LoadTIUObjects;
  function BoilerplateOK(const Txt, CRDelim: string; ObjList: TStringList;
                                                     var Err: TStringList): boolean;
  function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean;
  function NeedsCollapsing(Tree: TTreeView): boolean;
  procedure SelectNode(Tree: TORTreeView; GotoNodeID: string; var EmptyCount: integer);
  procedure ExpandTree(Tree: TORTreeView; ExpandString: string; var EmptyCount: integer;
                       AllowInactive: boolean = FALSE);
  function InDialog(Node: TTreeNode): boolean;
  property InEditor: boolean read FInEditor write FInEditor;
  property OnTemplateLock: TNotifyEvent read FOnTemplateLock write FOnTemplateLock;
  property TIUObjects: TStringList read FTIUObjects;
  property RefreshObject: boolean read FRefreshObject write FRefreshObject;
  procedure FindRichEditText(AFindDialog: TFindDialog; ARichEdit: TRichEdit);
  procedure ReplaceRichEditText(AReplaceDialog: TReplaceDialog; ARichEdit: TRichEdit);
end;

DFM Objects


dmodShared : TdmodShared
 ├imgTemplates : TImageList
 ├imgReminders : TImageList
 ├imgNotes : TImageList
 ├imgImages : TImageList
 ├imgReminders2 : TImageList
 ├imgConsults : TImageList
 ├imgSurgery : TImageList
 ├imgLblReminders : TVA508ImageListLabeler
 ├imgLblHealthFactorLabels : TVA508ImageListLabeler
 ├imgLblNotes : TVA508ImageListLabeler
 ├imgLblImages : TVA508ImageListLabeler
 ├imgLblConsults : TVA508ImageListLabeler
 ├imgLblSurgery : TVA508ImageListLabeler
 └imgLblReminders2 : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
FDrawerTrees TList Private -
FInEditor Boolean Private -
FOnTemplateLock TNotifyEvent Private -
FRefreshObject Boolean Private -
FTagIndex LongInt Private -
FTIUObjects TStringList Private -
imgConsults Simple (unknown) Public/Published -
imgImages Simple (unknown) Public/Published -
imgLblConsults Simple (unknown) Public/Published -
imgLblHealthFactorLabels Simple (unknown) Public/Published -
imgLblImages Simple (unknown) Public/Published -
imgLblNotes Simple (unknown) Public/Published -
imgLblReminders Simple (unknown) Public/Published -
imgLblReminders2 Simple (unknown) Public/Published -
imgLblSurgery Simple (unknown) Public/Published -
imgNotes Simple (unknown) Public/Published -
imgReminders Simple (unknown) Public/Published -
imgReminders2 Simple (unknown) Public/Published -
imgSurgery Simple (unknown) Public/Published -
imgTemplates Simple (unknown) Public/Published -

Properties

Name Type Scope Comments
InEditor Boolean Public -
OnTemplateLock TNotifyEvent Public -
RefreshObject Boolean Public -
TIUObjects TStringList Public -

Methods

Name Declaration Scope Comments
AddDrawerTree procedure AddDrawerTree(DrawerForm: TForm); Public -
AddTemplateNode procedure AddTemplateNode(Tree: TTreeView; var EmptyCount: integer; const tmpl: TTemplate; AllowInactive: boolean = FALSE; const Owner: TTreeNode = nil); Public -
BoilerplateOK function BoilerplateOK(const Txt, CRDelim: string; ObjList: TStringList; var Err: TStringList): boolean; Public -
dmodSharedCreate procedure dmodSharedCreate(Sender: TObject); Public/Published -
dmodSharedDestroy procedure dmodSharedDestroy(Sender: TObject); Public/Published -
EncounterLocationChanged procedure EncounterLocationChanged(Sender: TObject); Protected -
ExpandNode function ExpandNode(Tree: TTreeView; Node: TTreeNode; var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean; Public -
ExpandTree procedure ExpandTree(Tree: TORTreeView; ExpandString: string; var EmptyCount: integer; AllowInactive: boolean = FALSE); Public -
FindRichEditText procedure FindRichEditText(AFindDialog: TFindDialog; ARichEdit: TRichEdit); Public -
ImgIdx function ImgIdx(Node: TTreeNode): integer; Public -
InDialog function InDialog(Node: TTreeNode): boolean; Public -
LoadTIUObjects procedure LoadTIUObjects; Public -
NeedsCollapsing function NeedsCollapsing(Tree: TTreeView): boolean; Public -
Reload procedure Reload; Public -
RemoveDrawerTree procedure RemoveDrawerTree(DrawerForm: TForm); Public -
ReplaceRichEditText procedure ReplaceRichEditText(AReplaceDialog: TReplaceDialog; ARichEdit: TRichEdit); Public -
Resync procedure Resync(SyncNode: TTreeNode; AllowInactive: boolean; var EmptyCount: integer); Public SelNode,
SelectNode procedure SelectNode(Tree: TORTreeView; GotoNodeID: string; var EmptyCount: integer); Public -
TemplateOK function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; Public -

Referenced By (3)

Module (line) Referrer Type
CPRSChart (356) - Read
dShared (66) dmodShared Read
dShared (890) - Read