Class

TfrmGraphProfiles

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmGraphProfiles = class(TfrmBase508Form)
  btnAdd: TButton;
  btnAddAll: TButton;
  btnClear: TButton;
  btnClose: TButton;
  btnDelete: TButton;
  btnRemoveAll: TButton;
  btnRemoveOne: TButton;
  btnRename: TButton;
  btnSave: TButton;
  btnSavePublic: TButton;
  bvlBase: TBevel;
  cboAllItems: TORComboBox;
  lblApply: TLabel;
  lblDisplay: TLabel;
  lblEditInfo: TLabel;
  lblEditInfo1: TLabel;
  lblSelectandDefine: TLabel;
  lblSelection: TLabel;
  lblSelectionInfo: TLabel;
  lstActualItems: TORListBox;
  lstDrugClass: TListBox;
  lstItemsDisplayed: TORListBox;
  lstItemsSelection: TORListBox;
  lstScratch: TListBox;
  lstTests: TListBox;
  pnlApply: TPanel;
  pnlSource: TPanel;
  pnlTempData: TPanel;
  radSourceAll: TRadioButton;
  radSourcePat: TRadioButton;
  radTop: TRadioButton;
  radBottom: TRadioButton;
  radBoth: TRadioButton;
  radNeither: TRadioButton;
  lblSave: TLabel;
  lblClose: TLabel;
  lblUser: TLabel;
  pnlAllSources: TPanel;
  pnlSources: TPanel;
  lblSource: TLabel;
  lstSources: TORListBox;
  pnlOtherSources: TPanel;
  pnlOtherSourcesUser: TPanel;
  lblOtherPersons: TLabel;
  cboUser: TORComboBox;
  pnlOtherSourcesBottom: TPanel;
  lstOtherSources: TORListBox;
  btnViews: TButton;
  btnDefinitions: TButton;
  pnlOtherViews: TPanel;
  lblOtherViews: TLabel;
  lblSelectOthers: TLabel;
  splViews: TSplitter;
  procedure FormCreate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  procedure btnClearClick(Sender: TObject);
  procedure btnCloseClick(Sender: TObject);
  procedure btnDefinitionsClick(Sender: TObject);
  procedure btnRemoveAllClick(Sender: TObject);
  procedure btnRemoveOneClick(Sender: TObject);
  procedure btnViewsClick(Sender: TObject);
  procedure cboAllItemsClick(Sender: TObject);
  procedure cboAllItemsChange(Sender: TObject);
  procedure cboAllItemsNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboUserClick(Sender: TObject);
  procedure cboUserNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure lstItemsDisplayedChange(Sender: TObject);
  procedure lstItemsDisplayedDblClick(Sender: TObject);
  procedure lstSourcesChange(Sender: TObject);
  procedure lstSourcesDblClick(Sender: TObject);
  procedure lstSourcesEnter(Sender: TObject);
  procedure lstSourcesExit(Sender: TObject);
  procedure lstOtherSourcesEnter(Sender: TObject);
  procedure lstOtherSourcesExit(Sender: TObject);
  procedure radSourceAllClick(Sender: TObject);

  procedure btnDeleteClick(Sender: TObject);
  procedure btnRenameClick(Sender: TObject);
  procedure btnSaveClick(Sender: TObject);

  procedure AddToList(aItem: string; aListBox: TORListBox);
  procedure ArrangeList(aCheckFile, aCheckItem, aItem: string;
    aListBox: TORListBox; var addtolist: boolean);
  procedure AssignHints;
  procedure AssignProfile(aList: TStrings; aProfile: string; UserNum: int64; allitems: boolean);
  procedure AssignProfilePre(aList: TStrings; var aProfile: string; UserNum: int64);
  procedure AssignProfilePost(aList: TStrings; var aProfile, typedata: string);
  procedure CheckPublic;
  procedure FillSource(aList: TORListBox);
  function ProfileExists(aName, aType: string): boolean;
  procedure lstOtherSourcesChange(Sender: TObject);
private
  FHintPauseTime: integer;
  FPublicEditor: boolean;
  procedure CheckToClear;
  procedure QualifierDelete(line: string);
  procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
public
  procedure AllItemsAfter(var filetype, typedata: string);
  procedure AllItemsBefore(var typedata: string);
  procedure IDProfile(var profilename, proftype: string);
  procedure ListBoxSetup(Sender: TObject);
  procedure ComboBoxSetup(Sender: TObject);
  procedure Report(aListBox: TORListBox);
  function GetProfileName(infotitle, info: string; var newprofilename: string): boolean;
end;

DFM Objects


frmGraphProfiles : TfrmGraphProfiles
 ├lblSelection : TLabel
 ├lblDisplay : TLabel
 ├bvlBase : TBevel
 ├lblEditInfo : TLabel
 ├lblSelectionInfo : TLabel
 ├lblSelectandDefine : TLabel
 ├lblEditInfo1 : TLabel
 ├lblUser : TLabel
 ├btnClear : TButton
 ├btnSave : TButton
 ├btnDelete : TButton
 ├btnRemoveOne : TButton
 ├btnRemoveAll : TButton
 ├lstItemsDisplayed : TORListBox
 ├pnlSource : TPanel
 │ ├radSourcePat : TRadioButton
 │ └radSourceAll : TRadioButton
 ├lstItemsSelection : TORListBox
 ├pnlApply : TPanel
 │ ├lblApply : TLabel
 │ ├radTop : TRadioButton
 │ ├radBottom : TRadioButton
 │ ├radBoth : TRadioButton
 │ └radNeither : TRadioButton
 ├btnAdd : TButton
 ├btnAddAll : TButton
 ├btnRename : TButton
 ├btnSavePublic : TButton
 ├cboAllItems : TORComboBox
 ├btnClose : TButton
 ├pnlAllSources : TPanel
 │ ├splViews : TSplitter
 │ ├pnlSources : TPanel
 │ │ ├lblSource : TLabel
 │ │ └lstSources : TORListBox
 │ └pnlOtherSources : TPanel
 │   ├pnlOtherSourcesUser : TPanel
 │   │ ├lblOtherPersons : TLabel
 │   │ └cboUser : TORComboBox
 │   └pnlOtherSourcesBottom : TPanel
 │     ├lstOtherSources : TORListBox
 │     └pnlOtherViews : TPanel
 │       ├lblOtherViews : TLabel
 │       └lblSelectOthers : TLabel
 ├btnViews : TButton
 ├pnlTempData : TPanel
 │ ├lblSave : TLabel
 │ ├lblClose : TLabel
 │ ├lstActualItems : TORListBox
 │ ├lstDrugClass : TListBox
 │ ├lstScratch : TListBox
 │ └lstTests : TListBox
 ├btnDefinitions : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TButton Public/Published -
btnAddAll TButton Public/Published -
btnClear TButton Public/Published -
btnClose TButton Public/Published -
btnDefinitions TButton Public/Published -
btnDelete TButton Public/Published -
btnRemoveAll TButton Public/Published -
btnRemoveOne TButton Public/Published -
btnRename TButton Public/Published -
btnSave TButton Public/Published -
btnSavePublic TButton Public/Published -
btnViews TButton Public/Published -
bvlBase TBevel Public/Published -
cboAllItems TORComboBox Public/Published -
cboUser TORComboBox Public/Published -
FHintPauseTime Integer Private -
FPublicEditor Boolean Private -
lblApply TLabel Public/Published -
lblClose TLabel Public/Published -
lblDisplay TLabel Public/Published -
lblEditInfo TLabel Public/Published -
lblEditInfo1 TLabel Public/Published -
lblOtherPersons TLabel Public/Published -
lblOtherViews TLabel Public/Published -
lblSave TLabel Public/Published -
lblSelectandDefine TLabel Public/Published -
lblSelection TLabel Public/Published -
lblSelectionInfo TLabel Public/Published -
lblSelectOthers TLabel Public/Published -
lblSource TLabel Public/Published -
lblUser TLabel Public/Published -
lstActualItems TORListBox Public/Published -
lstDrugClass TListBox Public/Published -
lstItemsDisplayed TORListBox Public/Published -
lstItemsSelection TORListBox Public/Published -
lstOtherSources TORListBox Public/Published -
lstScratch TListBox Public/Published -
lstSources TORListBox Public/Published -
lstTests TListBox Public/Published -
pnlAllSources TPanel Public/Published -
pnlApply TPanel Public/Published -
pnlOtherSources TPanel Public/Published -
pnlOtherSourcesBottom TPanel Public/Published -
pnlOtherSourcesUser TPanel Public/Published -
pnlOtherViews TPanel Public/Published -
pnlSource TPanel Public/Published -
pnlSources TPanel Public/Published -
pnlTempData TPanel Public/Published -
radBoth TRadioButton Public/Published -
radBottom TRadioButton Public/Published -
radNeither TRadioButton Public/Published -
radSourceAll TRadioButton Public/Published -
radSourcePat TRadioButton Public/Published -
radTop TRadioButton Public/Published -
splViews TSplitter Public/Published -

Methods

Name Declaration Scope Comments
AddToList procedure AddToList(aItem: string; aListBox: TORListBox); Public/Published -
AllItemsAfter procedure AllItemsAfter(var filetype, typedata: string); Public -
AllItemsBefore procedure AllItemsBefore(var typedata: string); Public -
ArrangeList procedure ArrangeList(aCheckFile, aCheckItem, aItem: string; aListBox: TORListBox; var addtolist: boolean); Public/Published -
AssignHints procedure AssignHints; Public/Published -
AssignProfile procedure AssignProfile(aList: TStrings; aProfile: string; UserNum: int64; allitems: boolean); Public/Published CQ #15852 - Changed UserNum to Int64 for a long DUZ - JCS
AssignProfilePost procedure AssignProfilePost(aList: TStrings; var aProfile, typedata: string); Public/Published -
AssignProfilePre procedure AssignProfilePre(aList: TStrings; var aProfile: string; UserNum: int64); Public/Published CQ #15852 - Changed UserNum to Int64 for a long DUZ - JCS
btnClearClick procedure btnClearClick(Sender: TObject); Public/Published -
btnCloseClick procedure btnCloseClick(Sender: TObject); Public/Published -
btnDefinitionsClick procedure btnDefinitionsClick(Sender: TObject); Public/Published -
btnDeleteClick procedure btnDeleteClick(Sender: TObject); Public/Published -
btnRemoveAllClick procedure btnRemoveAllClick(Sender: TObject); Public/Published -
btnRemoveOneClick procedure btnRemoveOneClick(Sender: TObject); Public/Published -
btnRenameClick procedure btnRenameClick(Sender: TObject); Public/Published -
btnSaveClick procedure btnSaveClick(Sender: TObject); Public/Published -
btnViewsClick procedure btnViewsClick(Sender: TObject); Public/Published -
cboAllItemsChange procedure cboAllItemsChange(Sender: TObject); Public/Published -
cboAllItemsClick procedure cboAllItemsClick(Sender: TObject); Public/Published -
cboAllItemsNeedData procedure cboAllItemsNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboUserClick procedure cboUserClick(Sender: TObject); Public/Published -
cboUserNeedData procedure cboUserNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
CheckPublic procedure CheckPublic; Public/Published -
CheckToClear procedure CheckToClear; Private -
ComboBoxSetup procedure ComboBoxSetup(Sender: TObject); Public -
FillSource procedure FillSource(aList: TORListBox); Public/Published CQ #15852 - Changed UserNum to Int64 for a long DUZ - JCS
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetProfileName function GetProfileName(infotitle, info: string; var newprofilename: string): boolean; Public -
IDProfile procedure IDProfile(var profilename, proftype: string); Public -
ListBoxSetup procedure ListBoxSetup(Sender: TObject); Public -
lstItemsDisplayedChange procedure lstItemsDisplayedChange(Sender: TObject); Public/Published -
lstItemsDisplayedDblClick procedure lstItemsDisplayedDblClick(Sender: TObject); Public/Published -
lstOtherSourcesChange procedure lstOtherSourcesChange(Sender: TObject); Public/Published CQ #15852 - Changed UserNum to Int64 for a long DUZ - JCS
lstOtherSourcesEnter procedure lstOtherSourcesEnter(Sender: TObject); Public/Published -
lstOtherSourcesExit procedure lstOtherSourcesExit(Sender: TObject); Public/Published -
lstSourcesChange procedure lstSourcesChange(Sender: TObject); Public/Published CQ #15852 - Changed UserNum to Int64 for a long DUZ - JCS
lstSourcesDblClick procedure lstSourcesDblClick(Sender: TObject); Public/Published -
lstSourcesEnter procedure lstSourcesEnter(Sender: TObject); Public/Published -
lstSourcesExit procedure lstSourcesExit(Sender: TObject); Public/Published -
ProfileExists function ProfileExists(aName, aType: string): boolean; Public/Published -
QualifierDelete procedure QualifierDelete(line: string); Private -
radSourceAllClick procedure radSourceAllClick(Sender: TObject); Public/Published -
Report procedure Report(aListBox: TORListBox); Public -
wmNCLButtonDown procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN; Private -

Referenced By (3)

Module (line) Referrer Type
fGraphProfiles (124) frmGraphProfiles Read
fGraphProfiles (174) - Read
fGraphProfiles (176) - Read