Class

TfrmPlVuFilt

Module

fProbflt

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPlVuFilt = class(TfrmBase508Form)
  pnlBase: TORAutoPanel;
  SrcLabel: TLabel;
  DstLabel: TLabel;
  lblProvider: TLabel;
  Bevel1: TBevel;
  OROffsetLabel1: TOROffsetLabel;
  cmdAdd: TButton;
  cmdRemove: TButton;
  cmdRemoveAll: TButton;
  cmdOK: TBitBtn;
  cmdCancel: TBitBtn;
  lstDest: TORListBox;
  rgVu: TRadioGroup;
  cboProvider: TORComboBox;
  cmdDefaultView: TBitBtn;
  cboSource: TORComboBox;
  cmdSave: TButton;
  chkComments: TCheckBox;
  cboStatus: TORComboBox;
  procedure cmdAddClick(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure cmdRemoveAllClick(Sender: TObject);
  procedure SetButtons;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure rgVuClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure cmdDefaultViewClick(Sender: TObject);
  procedure cboProviderNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboSourceNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure lstDestClick(Sender: TObject);
  procedure cboSourceChange(Sender: TObject);
  procedure cboSourceEnter(Sender: TObject);
  procedure cboSourceExit(Sender: TObject);
  procedure cmdSaveClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
private
  FContextString: string;
  FFilterString: string;
  FFilterChanged: boolean;
  function CreateContextString: string;
  function CreateFilterString: string;
  procedure GetClinicList;
  procedure GetServiceList;
  procedure GetLocationList;
end;

DFM Objects


frmPlVuFilt : TfrmPlVuFilt
 ├pnlBase : TORAutoPanel
 │ ├SrcLabel : TLabel
 │ ├DstLabel : TLabel
 │ ├lblProvider : TLabel
 │ ├Bevel1 : TBevel
 │ ├OROffsetLabel1 : TOROffsetLabel
 │ ├cmdAdd : TButton
 │ ├cmdRemove : TButton
 │ ├cmdRemoveAll : TButton
 │ ├cmdOK : TBitBtn
 │ ├cmdCancel : TBitBtn
 │ ├lstDest : TORListBox
 │ ├rgVu : TRadioGroup
 │ ├cboProvider : TORComboBox
 │ ├cmdDefaultView : TBitBtn
 │ ├cboSource : TORComboBox
 │ ├cmdSave : TButton
 │ ├chkComments : TCheckBox
 │ └cboStatus : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 Simple (unknown) Public/Published -
cboProvider TORComboBox Public/Published -
cboSource TORComboBox Public/Published -
cboStatus TORComboBox Public/Published -
chkComments TCheckBox Public/Published -
cmdAdd TButton Public/Published -
cmdCancel Simple (unknown) Public/Published -
cmdDefaultView Simple (unknown) Public/Published -
cmdOK Simple (unknown) Public/Published -
cmdRemove TButton Public/Published -
cmdRemoveAll TButton Public/Published -
cmdSave TButton Public/Published -
DstLabel TLabel Public/Published -
FContextString UnicodeString Private -
FFilterChanged Boolean Private -
FFilterString UnicodeString Private -
lblProvider TLabel Public/Published -
lstDest TORListBox Public/Published -
OROffsetLabel1 TOROffsetLabel Public/Published -
pnlBase TORAutoPanel Public/Published -
rgVu Simple (unknown) Public/Published -
SrcLabel TLabel Public/Published -

Methods

Name Declaration Scope Comments
cboProviderNeedData procedure cboProviderNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboSourceChange procedure cboSourceChange(Sender: TObject); Public/Published -
cboSourceEnter procedure cboSourceEnter(Sender: TObject); Public/Published -
cboSourceExit procedure cboSourceExit(Sender: TObject); Public/Published -
cboSourceNeedData procedure cboSourceNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cmdAddClick procedure cmdAddClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdDefaultViewClick procedure cmdDefaultViewClick(Sender: TObject); Public/Published
Var
 Alist:TStringList;
 i: integer;
 tmpProv: Int64;
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdRemoveAllClick procedure cmdRemoveAllClick(Sender: TObject); Public/Published -
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published -
cmdSaveClick procedure cmdSaveClick(Sender: TObject); Public/Published -
CreateContextString function CreateContextString: string; Private -
CreateFilterString function CreateFilterString: string; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetClinicList procedure GetClinicList; Private -
GetLocationList procedure GetLocationList; Private -
GetServiceList procedure GetServiceList; Private -
lstDestClick procedure lstDestClick(Sender: TObject); Public/Published -
rgVuClick procedure rgVuClick(Sender: TObject); Public/Published -
SetButtons procedure SetButtons; Public/Published -

Referenced By (3)

Module (line) Referrer Type
fProbflt (62) frmPlVuFilt Read
fProbflt (74) - Read
fProbflt (77) - Read