Class TGrpsTest (unit GrpsTstU)

Inherits from

TForm

This unit is not very interesting: its only purpose is to demonstrate the use of PMGrpFile and PMDdeGrp Freeware, P.J. Veger, Best, The Netherlands

Constructors



Functions

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure LBGroupsClick(Sender: TObject);


procedure LBItemsClick(Sender: TObject);


procedure ShowFirstItem (G: GroupIndexSet);


procedure ShowItem(I: ItemIndexSet);


Properties

Events

Variables

EdCmdShow : TEdit;


EdFileName : TEdit;


EdIGCmdLine : TEdit;


EdIGDfltDir : TEdit;


EdIGIBHeight : TEdit;


EdIGIBWidth : TEdit;


EdIGIIndex : TEdit;


EdIGIPath : TEdit;


EdIGIPLeft : TEdit;


EdIGIPLower : TEdit;


EdIGRunMin : TEdit;


EdIGShortCut : TEdit;


EdIILPX : TEdit;


EdIILPY : TEdit;


EdIIP : TEdit;


EdIPCmdLine : TEdit;


EdIPDfltDir : TEdit;


EdIPIIndex : TEdit;


EdIPIPath : TEdit;


EdIPIPLeft : TEdit;


EdIPIPTop : TEdit;


EdIPRunMin : TEdit;


EdIPShortCut : TEdit;


EDMPLeft : TEdit;


EdMPTop : TEdit;


EdNRBottom : TEdit;


EdNRLeft : TEdit;


EdNRRight : TEdit;


EdNRTop : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


GroupBox8 : TGroupBox;


GroupBox9 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label3 : TLabel;


Label30 : TLabel;


Label31 : TLabel;


Label32 : TLabel;


Label33 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LBGroups : TListBox;


LBItems : TListBox;


LGroup : TLabel;


LItem : TLabel;


TabbedNotebook1 : TTabbedNotebook;


GI : GroupIndexSet;


GrpGroup : TPMGFGroup;


GrpItem : TPMGFItem;


II : ItemIndexSet;


PMGroup : TPMDdeGroup;


PMGroups : TPMDdeGroups;


PMItem : TPMDdeItem;



Constructors


Functions


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure LBGroupsClick(Sender: TObject);


procedure LBItemsClick(Sender: TObject);


procedure ShowFirstItem (G: GroupIndexSet);


procedure ShowItem(I: ItemIndexSet);


Properties


Events


Variables


EdCmdShow : TEdit;


EdFileName : TEdit;


EdIGCmdLine : TEdit;


EdIGDfltDir : TEdit;


EdIGIBHeight : TEdit;


EdIGIBWidth : TEdit;


EdIGIIndex : TEdit;


EdIGIPath : TEdit;


EdIGIPLeft : TEdit;


EdIGIPLower : TEdit;


EdIGRunMin : TEdit;


EdIGShortCut : TEdit;


EdIILPX : TEdit;


EdIILPY : TEdit;


EdIIP : TEdit;


EdIPCmdLine : TEdit;


EdIPDfltDir : TEdit;


EdIPIIndex : TEdit;


EdIPIPath : TEdit;


EdIPIPLeft : TEdit;


EdIPIPTop : TEdit;


EdIPRunMin : TEdit;


EdIPShortCut : TEdit;


EDMPLeft : TEdit;


EdMPTop : TEdit;


EdNRBottom : TEdit;


EdNRLeft : TEdit;


EdNRRight : TEdit;


EdNRTop : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


GroupBox8 : TGroupBox;


GroupBox9 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label3 : TLabel;


Label30 : TLabel;


Label31 : TLabel;


Label32 : TLabel;


Label33 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LBGroups : TListBox;


LBItems : TListBox;


LGroup : TLabel;


LItem : TLabel;


TabbedNotebook1 : TTabbedNotebook;


GI : GroupIndexSet;


GrpGroup : TPMGFGroup;


GrpItem : TPMGFItem;


II : ItemIndexSet;


PMGroup : TPMDdeGroup;


PMGroups : TPMDdeGroups;


PMItem : TPMDdeItem;