Module

fOMProgress

Path

C:\CPRS\CPRS30\Orders\fOMProgress.pas

Last Modified

7/15/2014 3:26:42 PM

Units Used in Interface

Name Comments
fAutoSz -

Classes

Name Comments
TfrmOMProgress -

Procedures

Name Owner Declaration Scope Comments
OrderSetDone - procedure OrderSetDone; Interfaced -
OrderSetItemDone - procedure OrderSetItemDone(AnItem: Integer); Interfaced -
OrderSetItemStart - procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm); Interfaced -
OrderSetStart - procedure OrderSetStart(AnItemList: TStringList); Interfaced -

Global Variables

Name Type Declaration Comments
frmOMProgress TfrmOMProgress frmOMProgress: TfrmOMProgress; -


Module Source

1     unit fOMProgress;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       fAutoSz, StdCtrls, ORCtrls, CheckLst, ORFn, VA508AccessibilityManager;
8     
9     type
10      TfrmOMProgress = class(TfrmAutoSz)
11        lstItems: TCheckListBox;
12        cmdStop: TORAlignButton;
13      private
14        { Private declarations }
15      public
16        { Public declarations }
17      end;
18    
19    var
20      frmOMProgress: TfrmOMProgress;
21    
22    procedure OrderSetStart(AnItemList: TStringList);
23    procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm);
24    procedure OrderSetItemDone(AnItem: Integer);
25    procedure OrderSetDone;
26    
27    implementation
28    
29    {$R *.DFM}
30    
31    procedure OrderSetStart(AnItemList: TStringList);
32    begin
33    end;
34    
35    procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm);
36    begin
37    end;
38    
39    procedure OrderSetItemDone(AnItem: Integer);
40    begin
41    end;
42    
43    procedure OrderSetDone;
44    begin
45    end;
46    
47    end.

Module Calls (2 levels)


fOMProgress
 └fAutoSz
   └fBase508Form

Module Called-By (2 levels)

-