Class

TfrmOptionsCombinations

Module

fOptionsCombinations

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsCombinations = class(TfrmBase508Form)
  radAddByType: TRadioGroup;
  lblInfo: TMemo;
  lblAddby: TLabel;
  lblCombinations: TLabel;
  lstAddBy: TORComboBox;
  btnAdd: TButton;
  btnRemove: TButton;
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  bvlBottom: TBevel;
  lvwCombinations: TCaptionListView;
  procedure radAddByTypeClick(Sender: TObject);
  procedure lstAddByNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure FormCreate(Sender: TObject);
  procedure btnAddClick(Sender: TObject);
  procedure lvwCombinationsColumnClick(Sender: TObject;
    Column: TListColumn);
  procedure lvwCombinationsCompare(Sender: TObject; Item1,
    Item2: TListItem; Data: Integer; var Compare: Integer);
  procedure btnRemoveClick(Sender: TObject);
  procedure lstAddByChange(Sender: TObject);
  procedure lstAddByKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure btnOKClick(Sender: TObject);
  procedure lstAddByEnter(Sender: TObject);
  procedure lstAddByExit(Sender: TObject);
  procedure lvwCombinationsChange(Sender: TObject; Item: TListItem;
    Change: TItemChange);
  procedure FormShow(Sender: TObject);
private
  { Private declarations }
  FsortCol: integer;
  FsortAscending: boolean;
  FDirty: boolean;
  function Duplicate(avalueien, asource: string): boolean;
  procedure LoadCombinations(alist: TStrings);
public
  { Public declarations }
end;

DFM Objects


frmOptionsCombinations : TfrmOptionsCombinations
 ├lblAddby : TLabel
 ├lblCombinations : TLabel
 ├lblInfo : TMemo
 ├radAddByType : TRadioGroup
 ├lstAddBy : TORComboBox
 ├btnAdd : TButton
 ├btnRemove : TButton
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├lvwCombinations : TCaptionListView
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TButton Public/Published -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
btnRemove TButton Public/Published -
bvlBottom TBevel Public/Published -
FDirty Boolean Private -
FsortAscending Boolean Private -
FsortCol Integer Private Private declarations
lblAddby TLabel Public/Published -
lblCombinations TLabel Public/Published -
lblInfo TMemo Public/Published -
lstAddBy TORComboBox Public/Published -
lvwCombinations TCaptionListView Public/Published -
pnlBottom TPanel Public/Published -
radAddByType TRadioGroup Public/Published -

Methods

Name Declaration Scope Comments
btnAddClick procedure btnAddClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnRemoveClick procedure btnRemoveClick(Sender: TObject); Public/Published -
Duplicate function Duplicate(avalueien, asource: string): boolean; Private -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
LoadCombinations procedure LoadCombinations(alist: TStrings); Private -
lstAddByChange procedure lstAddByChange(Sender: TObject); Public/Published -
lstAddByEnter procedure lstAddByEnter(Sender: TObject); Public/Published -
lstAddByExit procedure lstAddByExit(Sender: TObject); Public/Published -
lstAddByKeyUp procedure lstAddByKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstAddByNeedData procedure lstAddByNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
lvwCombinationsChange procedure lvwCombinationsChange(Sender: TObject; Item: TListItem; Change: TItemChange); Public/Published -
lvwCombinationsColumnClick procedure lvwCombinationsColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lvwCombinationsCompare procedure lvwCombinationsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
radAddByTypeClick procedure radAddByTypeClick(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsCombinations (55) frmOptionsCombinations Read
fOptionsCombinations (76) - Read
fOptionsCombinations (78) - Read