Class

Module

Last Modified

Scope

Inherits from

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)