Class

TfrmOptionsTitles

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsTitles = class(TfrmBase508Form)
  lblDocumentClass: TLabel;
  lblDocumentTitles: TLabel;
  lblYourTitles: TLabel;
  lblDefaultTitle: TStaticText;
  lblDefault: TStaticText;
  cboDocumentClass: TORComboBox;
  lstYourTitles: TORListBox;
  btnAdd: TButton;
  btnRemove: TButton;
  btnDefault: TButton;
  btnSaveChanges: TButton;
  pnlBottom: TPanel;
  bvlBottom: TBevel;
  btnOK: TButton;
  btnCancel: TButton;
  cboDocumentTitles: TORComboBox;
  lblDocumentPreference: TStaticText;
  btnUp: TButton;
  btnDown: TButton;
  procedure FormShow(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure cboDocumentClassClick(Sender: TObject);
  procedure cboDocumentTitlesNeedData(Sender: TObject;
    const StartFrom: String; Direction, InsertAt: Integer);
  procedure btnSaveChangesClick(Sender: TObject);
  procedure btnDefaultClick(Sender: TObject);
  procedure btnAddClick(Sender: TObject);
  procedure lstYourTitlesChange(Sender: TObject);
  procedure btnRemoveClick(Sender: TObject);
  procedure cboDocumentTitlesChange(Sender: TObject);
  procedure btnUpClick(Sender: TObject);
  procedure btnDownClick(Sender: TObject);
  function GetFirstSelection(aList: TORListBox): integer;
  procedure SetItem(aList: TORListBox; index: integer);
  procedure RemoveSelected;
  procedure lstYourTitlesClick(Sender: TObject);
private
  { Private declarations }
  FLastClass: integer;
  procedure AddIfUnique(entry: string; aList: TORListBox);
  function MemberNotOnList(alist: TStrings; listnum: string): boolean;
  procedure CheckEnable;
public
  { Public declarations }
end;

DFM Objects


frmOptionsTitles : TfrmOptionsTitles
 ├lblDocumentClass : TLabel
 ├lblDocumentTitles : TLabel
 ├lblYourTitles : TLabel
 ├lblDefaultTitle : TStaticText
 ├lblDefault : TStaticText
 ├lblDocumentPreference : TStaticText
 ├cboDocumentClass : TORComboBox
 ├lstYourTitles : TORListBox
 ├btnAdd : TButton
 ├btnRemove : TButton
 ├btnDefault : TButton
 ├btnSaveChanges : TButton
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├cboDocumentTitles : TORComboBox
 ├btnUp : TButton
 ├btnDown : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TButton Public/Published -
btnCancel TButton Public/Published -
btnDefault TButton Public/Published -
btnDown TButton Public/Published -
btnOK TButton Public/Published -
btnRemove TButton Public/Published -
btnSaveChanges TButton Public/Published -
btnUp TButton Public/Published -
bvlBottom TBevel Public/Published -
cboDocumentClass TORComboBox Public/Published -
cboDocumentTitles TORComboBox Public/Published -
FLastClass Integer Private Private declarations
lblDefault TStaticText Public/Published -
lblDefaultTitle TStaticText Public/Published -
lblDocumentClass TLabel Public/Published -
lblDocumentPreference TStaticText Public/Published -
lblDocumentTitles TLabel Public/Published -
lblYourTitles TLabel Public/Published -
lstYourTitles TORListBox Public/Published -
pnlBottom TPanel Public/Published -

Methods

Name Declaration Scope Comments
AddIfUnique procedure AddIfUnique(entry: string; aList: TORListBox); Private -
btnAddClick procedure btnAddClick(Sender: TObject); Public/Published -
btnDefaultClick procedure btnDefaultClick(Sender: TObject); Public/Published -
btnDownClick procedure btnDownClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
btnSaveChangesClick procedure btnSaveChangesClick(Sender: TObject); Public/Published -
btnUpClick procedure btnUpClick(Sender: TObject); Public/Published -
cboDocumentClassClick procedure cboDocumentClassClick(Sender: TObject); Public/Published -
cboDocumentTitlesChange procedure cboDocumentTitlesChange(Sender: TObject); Public/Published -
cboDocumentTitlesNeedData procedure cboDocumentTitlesNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
CheckEnable procedure CheckEnable; Private Allow buttons to be enabled or not depending on selections
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetFirstSelection function GetFirstSelection(aList: TORListBox): integer; Public/Published -
lstYourTitlesChange procedure lstYourTitlesChange(Sender: TObject); Public/Published -
lstYourTitlesClick procedure lstYourTitlesClick(Sender: TObject); Public/Published -
MemberNotOnList function MemberNotOnList(alist: TStrings; listnum: string): boolean; Private -
RemoveSelected procedure RemoveSelected; Public/Published -
SetItem procedure SetItem(aList: TORListBox; index: integer); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsTitles (58) frmOptionsTitles Read
fOptionsTitles (72) - Read
fOptionsTitles (74) - Read