| Class TGrpsTest (unit GrpsTstU) |
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;