Class

TfrmRemCoverSheet

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmRemCoverSheet = class(TfrmBase508Form)
  pnlBottom: TORAutoPanel;
  pnlUser: TPanel;
  cbxUserLoc: TORComboBox;
  lblRemLoc: TLabel;
  pnlMiddle: TPanel;
  pnlRight: TPanel;
  pnlCAC: TORAutoPanel;
  imgMain: TImageList;
  sbUp: TBitBtn;
  sbDown: TBitBtn;
  btnAdd: TBitBtn;
  btnRemove: TBitBtn;
  btnLock: TBitBtn;
  pnlBtns: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  edtSeq: TCaptionEdit;
  udSeq: TUpDown;
  lblSeq: TLabel;
  btnApply: TButton;
  cbSystem: TORCheckBox;
  cbDivision: TORCheckBox;
  cbService: TORCheckBox;
  cbxService: TORComboBox;
  cbxDivision: TORComboBox;
  cbLocation: TORCheckBox;
  cbUserClass: TORCheckBox;
  cbUser: TORCheckBox;
  cbxUser: TORComboBox;
  cbxClass: TORComboBox;
  cbxLocation: TORComboBox;
  lblEdit: TLabel;
  pnlInfo: TPanel;
  pnlTree: TPanel;
  tvAll: TORTreeView;
  lblTree: TLabel;
  pnlCover: TPanel;
  lvCover: TCaptionListView;
  pblMoveBtns: TPanel;
  sbCopyRight: TBitBtn;
  sbCopyLeft: TBitBtn;
  splMain: TSplitter;
  btnView: TButton;
  lblLegend: TLabel;
  imgLblRemCoverSheet: TVA508ImageListLabeler;
  compAccessCopyRight: TVA508ComponentAccessibility;
  compAccessCopyLeft: TVA508ComponentAccessibility;
  pnlTopLeft: TPanel;
  lvView: TCaptionListView;
  lblView: TLabel;
  lblCAC: TVA508StaticText;
  VA508ImageListLabeler1: TVA508ImageListLabeler;
  lblCategory: TLabel;
  imgCategory: TImage;
  lblReminder: TLabel;
  imgReminder: TImage;
  lblAdd: TLabel;
  imgAdd: TImage;
  lblRemove: TLabel;
  imgRemove: TImage;
  lblLock: TLabel;
  imgLock: TImage;
  procedure cbxLocationNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cbxServiceNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cbxUserNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cbxClassNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure FormDestroy(Sender: TObject);
  procedure cbxDivisionChange(Sender: TObject);
  procedure cbxServiceChange(Sender: TObject);
  procedure cbxLocationChange(Sender: TObject);
  procedure cbxClassChange(Sender: TObject);
  procedure cbxUserChange(Sender: TObject);
  procedure cbxDropDownClose(Sender: TObject);
  procedure cbEditLevelClick(Sender: TObject);
  procedure tvAllExpanding(Sender: TObject; Node: TTreeNode;
    var AllowExpansion: Boolean);
  procedure edtSeqChange(Sender: TObject);
  procedure tvAllExpanded(Sender: TObject; Node: TTreeNode);
  procedure tvAllChange(Sender: TObject; Node: TTreeNode);
  procedure lvCoverChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure btnAddClick(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure btnLockClick(Sender: TObject);
  procedure lvViewColumnClick(Sender: TObject; Column: TListColumn);
  procedure lvCoverColumnClick(Sender: TObject; Column: TListColumn);
  procedure lvViewCompare(Sender: TObject; Item1, Item2: TListItem;
    Data: Integer; var Compare: Integer);
  procedure lvCoverCompare(Sender: TObject; Item1, Item2: TListItem;
    Data: Integer; var Compare: Integer);
  procedure sbUpClick(Sender: TObject);
  procedure sbDownClick(Sender: TObject);
  procedure sbCopyRightClick(Sender: TObject);
  procedure udSeqChangingEx(Sender: TObject; var AllowChange: Boolean;
    NewValue: Smallint; Direction: TUpDownDirection);
  procedure sbCopyLeftClick(Sender: TObject);
  procedure tvAllDblClick(Sender: TObject);
  procedure btnApplyClick(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure lvCoverDblClick(Sender: TObject);
  procedure btnViewClick(Sender: TObject);
  procedure lvCoverKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure edtSeqKeyPress(Sender: TObject; var Key: Char);
  procedure cbxDivisionKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormCreate(Sender: TObject);
  procedure compAccessCopyRightCaptionQuery(Sender: TObject;
    var Text: string);
  procedure compAccessCopyLeftCaptionQuery(Sender: TObject; var Text: string);
  procedure lvViewChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure lvViewSelectItem(Sender: TObject; Item: TListItem;
    Selected: Boolean);
  procedure lvViewExit(Sender: TObject);
  procedure btnViewExit(Sender: TObject);
  procedure lblCACExit(Sender: TObject);
  procedure cbxUserLocExit(Sender: TObject);
  procedure cbSystemExit(Sender: TObject);
  procedure sbCopyRightExit(Sender: TObject);
  procedure btnOKExit(Sender: TObject);
private
  FData: TORStringList;     // DataCode IEN ^ Modified Flag  Object=TStringList
  FUserInfo: TORStringList; // C^User Class, D^Division
  FUser: Int64;
  FUserMode: boolean;
  FInitialized: boolean;
  FCurDiv: Integer;
  FCurSer:Integer;
  FCurLoc: Integer;
  FCurClass: Integer;
  FCurUser: Int64;
  FDivisions: TORStringList;
  FServices: TORStringList;
  FLocations: TORStringList;
  FClasses: TORStringList;
  FUsers: TORStringList;
  FMasterList: TORStringList;
  FUpdatePending: TORCheckBox;
  FCatInfo: TORStringList;
  FEditingLevel: TRemCoverDataLevel;
  FEditingIEN: Int64;
  FUpdating: boolean;
  FTopSortTag: integer;
  FTopSortUp: boolean;
  FBottomSortTag: integer;
  FBottomSortUp: boolean;
  FDataSaved: boolean;
  FUpdatingView: boolean;
  FInternalExpansion: boolean;
  FSavePause: integer;
  FSelection: boolean;
  fOldFocusChanged: TNotifyEvent;
  procedure ActiveControlChanged(Sender: TObject);
  procedure SetButtonHints;
  procedure GetUserInfo(AUser: Int64);
  function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean;
                      Add: boolean = FALSE): TORStringList;
  procedure UpdateView;
  procedure SetupItem(Item: TListItem; const Data: string); overload;
  procedure SetupItem(Item: TListItem; const Data: string;
                      Level: TRemCoverDataLevel; IEN: Int64); overload;
  function GetExternalName(Level: TRemCoverDataLevel; IEN: Int64): string;
  procedure UpdateMasterListView;
  procedure UpdateButtons;
  function GetCatInfo(CatIEN: string): TORStringList;
  procedure MarkListAsChanged;
  function GetIndex(List: TORStringList; Item: TListItem): integer;
  procedure ChangeStatus(Code: string);
  procedure SetSeq(Item: TListItem; const Value: string);
  function ListHasData(Seq: string; SubIdx: integer): boolean;
  procedure SaveData(FromApply: boolean);
  function RPad(Str: String): String;
  function GetCoverSheetLvlData(ALevel, AClass: string): TStrings;
  procedure LockButtonUpdate(data, FNAME, hint: string);
public
   procedure Init(AsUser: boolean);
end;

DFM Objects


frmRemCoverSheet : TfrmRemCoverSheet
 ├pnlBottom : TORAutoPanel
 │ ├lblSeq : TLabel
 │ ├lblEdit : TLabel
 │ ├sbUp : TBitBtn
 │ ├sbDown : TBitBtn
 │ ├btnAdd : TBitBtn
 │ ├btnRemove : TBitBtn
 │ ├btnLock : TBitBtn
 │ ├edtSeq : TCaptionEdit
 │ ├udSeq : TUpDown
 │ └pnlInfo : TPanel
 │   ├splMain : TSplitter
 │   ├pnlTree : TPanel
 │   │ ├lblTree : TLabel
 │   │ └tvAll : TORTreeView
 │   └pnlCover : TPanel
 │     ├lvCover : TCaptionListView
 │     └pblMoveBtns : TPanel
 │       ├sbCopyRight : TBitBtn
 │       └sbCopyLeft : TBitBtn
 ├pnlUser : TPanel
 │ ├lblRemLoc : TLabel
 │ └cbxUserLoc : TORComboBox
 ├pnlMiddle : TPanel
 │ ├pnlRight : TPanel
 │ │ ├lblLegend : TLabel
 │ │ ├lblCategory : TLabel
 │ │ ├imgCategory : TImage
 │ │ ├lblReminder : TLabel
 │ │ ├imgReminder : TImage
 │ │ ├lblAdd : TLabel
 │ │ ├imgAdd : TImage
 │ │ ├lblRemove : TLabel
 │ │ ├imgRemove : TImage
 │ │ ├lblLock : TLabel
 │ │ ├imgLock : TImage
 │ │ └btnView : TButton
 │ └pnlTopLeft : TPanel
 │   ├lblView : TLabel
 │   ├lvView : TCaptionListView
 │   └lblCAC : TVA508StaticText
 ├pnlCAC : TORAutoPanel
 │ ├cbSystem : TORCheckBox
 │ ├cbDivision : TORCheckBox
 │ ├cbService : TORCheckBox
 │ ├cbxService : TORComboBox
 │ ├cbxDivision : TORComboBox
 │ ├cbLocation : TORCheckBox
 │ ├cbUserClass : TORCheckBox
 │ ├cbUser : TORCheckBox
 │ ├cbxUser : TORComboBox
 │ ├cbxClass : TORComboBox
 │ └cbxLocation : TORComboBox
 ├pnlBtns : TPanel
 │ ├btnOK : TButton
 │ ├btnCancel : TButton
 │ └btnApply : TButton
 ├amgrMain : TVA508AccessibilityManager
 ├imgMain : TImageList
 ├imgLblRemCoverSheet : TVA508ImageListLabeler
 ├compAccessCopyRight : TVA508ComponentAccessibility
 ├compAccessCopyLeft : TVA508ComponentAccessibility
 └VA508ImageListLabeler1 : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TBitBtn Public/Published -
btnApply TButton Public/Published -
btnCancel TButton Public/Published -
btnLock TBitBtn Public/Published -
btnOK TButton Public/Published -
btnRemove TBitBtn Public/Published -
btnView TButton Public/Published -
cbDivision TORCheckBox Public/Published -
cbLocation TORCheckBox Public/Published -
cbService TORCheckBox Public/Published -
cbSystem TORCheckBox Public/Published -
cbUser TORCheckBox Public/Published -
cbUserClass TORCheckBox Public/Published -
cbxClass TORComboBox Public/Published -
cbxDivision TORComboBox Public/Published -
cbxLocation TORComboBox Public/Published -
cbxService TORComboBox Public/Published -
cbxUser TORComboBox Public/Published -
cbxUserLoc TORComboBox Public/Published -
compAccessCopyLeft TVA508ComponentAccessibility Public/Published -
compAccessCopyRight TVA508ComponentAccessibility Public/Published -
edtSeq TCaptionEdit Public/Published -
FBottomSortTag Integer Private -
FBottomSortUp Boolean Private -
FCatInfo TORStringList Private -
FClasses TORStringList Private -
FCurClass Integer Private -
FCurDiv Integer Private -
FCurLoc Integer Private -
FCurSer Integer Private -
FCurUser Int64 Private -
FData TORStringList Private DataCode IEN ^ Modified Flag Object=TStringList
FDataSaved Boolean Private -
FDivisions TORStringList Private -
FEditingIEN Int64 Private -
FEditingLevel Private -
FInitialized Boolean Private -
FInternalExpansion Boolean Private -
FLocations TORStringList Private -
FMasterList TORStringList Private -
fOldFocusChanged TNotifyEvent Private -
FSavePause Integer Private -
FSelection Boolean Private -
FServices TORStringList Private -
FTopSortTag Integer Private -
FTopSortUp Boolean Private -
FUpdatePending TORCheckBox Private -
FUpdating Boolean Private -
FUpdatingView Boolean Private -
FUser Int64 Private -
FUserInfo TORStringList Private C^User Class, D^Division
FUserMode Boolean Private -
FUsers TORStringList Private -
imgAdd TImage Public/Published -
imgCategory TImage Public/Published -
imgLblRemCoverSheet Simple (unknown) Public/Published -
imgLock TImage Public/Published -
imgMain Simple (unknown) Public/Published -
imgReminder TImage Public/Published -
imgRemove TImage Public/Published -
lblAdd TLabel Public/Published -
lblCAC TVA508StaticText Public/Published -
lblCategory TLabel Public/Published -
lblEdit TLabel Public/Published -
lblLegend TLabel Public/Published -
lblLock TLabel Public/Published -
lblReminder TLabel Public/Published -
lblRemLoc TLabel Public/Published -
lblRemove TLabel Public/Published -
lblSeq TLabel Public/Published -
lblTree TLabel Public/Published -
lblView TLabel Public/Published -
lvCover TCaptionListView Public/Published -
lvView TCaptionListView Public/Published -
pblMoveBtns TPanel Public/Published -
pnlBottom TORAutoPanel Public/Published -
pnlBtns TPanel Public/Published -
pnlCAC TORAutoPanel Public/Published -
pnlCover TPanel Public/Published -
pnlInfo TPanel Public/Published -
pnlMiddle TPanel Public/Published -
pnlRight TPanel Public/Published -
pnlTopLeft TPanel Public/Published -
pnlTree TPanel Public/Published -
pnlUser TPanel Public/Published -
sbCopyLeft TBitBtn Public/Published -
sbCopyRight TBitBtn Public/Published -
sbDown TBitBtn Public/Published -
sbUp TBitBtn Public/Published -
splMain TSplitter Public/Published -
tvAll TORTreeView Public/Published -
udSeq TUpDown Public/Published -
VA508ImageListLabeler1 Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
ActiveControlChanged procedure ActiveControlChanged(Sender: TObject); Private -
btnAddClick procedure btnAddClick(Sender: TObject); Public/Published -
btnApplyClick procedure btnApplyClick(Sender: TObject); Public/Published -
btnLockClick procedure btnLockClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnOKExit procedure btnOKExit(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnViewClick procedure btnViewClick(Sender: TObject); Public/Published -
btnViewExit procedure btnViewExit(Sender: TObject); Public/Published -
cbEditLevelClick procedure cbEditLevelClick(Sender: TObject); Public/Published -
cbSystemExit procedure cbSystemExit(Sender: TObject); Public/Published -
cbxClassChange procedure cbxClassChange(Sender: TObject); Public/Published -
cbxClassNeedData procedure cbxClassNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbxDivisionChange procedure cbxDivisionChange(Sender: TObject); Public/Published -
cbxDivisionKeyDown procedure cbxDivisionKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cbxDropDownClose procedure cbxDropDownClose(Sender: TObject); Public/Published -
cbxLocationChange procedure cbxLocationChange(Sender: TObject); Public/Published -
cbxLocationNeedData procedure cbxLocationNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbxServiceChange procedure cbxServiceChange(Sender: TObject); Public/Published -
cbxServiceNeedData procedure cbxServiceNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbxUserChange procedure cbxUserChange(Sender: TObject); Public/Published -
cbxUserLocExit procedure cbxUserLocExit(Sender: TObject); Public/Published -
cbxUserNeedData procedure cbxUserNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ChangeStatus procedure ChangeStatus(Code: string); Private -
compAccessCopyLeftCaptionQuery procedure compAccessCopyLeftCaptionQuery(Sender: TObject; var Text: string); Public/Published -
compAccessCopyRightCaptionQuery procedure compAccessCopyRightCaptionQuery(Sender: TObject; var Text: string); Public/Published -
edtSeqChange procedure edtSeqChange(Sender: TObject); Public/Published -
edtSeqKeyPress procedure edtSeqKeyPress(Sender: TObject; var Key: Char); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
GetCatInfo function GetCatInfo(CatIEN: string): TORStringList; Private -
GetCoverSheetLvlData function GetCoverSheetLvlData(ALevel, AClass: string): TStrings; Private -
GetCurrent function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean; Add: boolean = FALSE): TORStringList; Private -
GetExternalName function GetExternalName(Level: TRemCoverDataLevel; IEN: Int64): string; Private -
GetIndex function GetIndex(List: TORStringList; Item: TListItem): integer; Private -
GetUserInfo procedure GetUserInfo(AUser: Int64); Private -
Init procedure Init(AsUser: boolean); Public TfrmRemCoverSheet
lblCACExit procedure lblCACExit(Sender: TObject); Public/Published -
ListHasData function ListHasData(Seq: string; SubIdx: integer): boolean; Private -
LockButtonUpdate procedure LockButtonUpdate(data, FNAME, hint: string); Private -
lvCoverChange procedure lvCoverChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published -
lvCoverColumnClick procedure lvCoverColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvCoverCompare procedure lvCoverCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lvCoverDblClick procedure lvCoverDblClick(Sender: TObject); Public/Published -
lvCoverKeyDown procedure lvCoverKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lvViewChange procedure lvViewChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published -
lvViewColumnClick procedure lvViewColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvViewCompare procedure lvViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lvViewExit procedure lvViewExit(Sender: TObject); Public/Published -
lvViewSelectItem procedure lvViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); Public/Published -
MarkListAsChanged procedure MarkListAsChanged; Private -
RPad function RPad(Str: String): String; Private -
SaveData procedure SaveData(FromApply: boolean); Private -
sbCopyLeftClick procedure sbCopyLeftClick(Sender: TObject); Public/Published -
sbCopyRightClick procedure sbCopyRightClick(Sender: TObject); Public/Published -
sbCopyRightExit procedure sbCopyRightExit(Sender: TObject); Public/Published -
sbDownClick procedure sbDownClick(Sender: TObject); Public/Published -
sbUpClick procedure sbUpClick(Sender: TObject); Public/Published -
SetButtonHints procedure SetButtonHints; Private
This procedure sets the Lock, Add, and Remove button hints based on the
 selected parameter level
SetSeq procedure SetSeq(Item: TListItem; const Value: string); Private -
SetupItem procedure SetupItem(Item: TListItem; const Data: string; Level: TRemCoverDataLevel; IEN: Int64); overload; Private -
SetupItem procedure SetupItem(Item: TListItem; const Data: string); overload; Private -
tvAllChange procedure tvAllChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvAllDblClick procedure tvAllDblClick(Sender: TObject); Public/Published -
tvAllExpanded procedure tvAllExpanded(Sender: TObject; Node: TTreeNode); Public/Published -
tvAllExpanding procedure tvAllExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); Public/Published -
udSeqChangingEx procedure udSeqChangingEx(Sender: TObject; var AllowChange: Boolean; NewValue: Smallint; Direction: TUpDownDirection); Public/Published -
UpdateButtons procedure UpdateButtons; Private -
UpdateMasterListView procedure UpdateMasterListView; Private -
UpdateView procedure UpdateView; Private -

Referenced By (2)

Module (line) Referrer Type
fRemCoverSheet (269) - Read
fRemCoverSheet (272) - Read