source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOMProgress.pas@ 973

Last change on this file since 973 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.1 KB
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit fOMProgress;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 fAutoSz, StdCtrls, ORCtrls, CheckLst, ORFn, DKLang;
9
10type
11 TfrmOMProgress = class(TfrmAutoSz)
12 lstItems: TCheckListBox;
13 cmdStop: TORAlignButton;
14 procedure FormCreate(Sender: TObject);
15 private
16 { Private declarations }
17 public
18 { Public declarations }
19 end;
20
21var
22 frmOMProgress: TfrmOMProgress;
23
24procedure OrderSetStart(AnItemList: TStringList);
25procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm);
26procedure OrderSetItemDone(AnItem: Integer);
27procedure OrderSetDone;
28
29implementation
30
31{$R *.DFM}
32
33procedure OrderSetStart(AnItemList: TStringList);
34begin
35end;
36
37procedure OrderSetItemStart(AnItem: Integer; ADialog: TForm);
38begin
39end;
40
41procedure OrderSetItemDone(AnItem: Integer);
42begin
43end;
44
45procedure OrderSetDone;
46begin
47end;
48
49procedure TfrmOMProgress.FormCreate(Sender: TObject);
50begin
51 inherited;
52 lstItems.Color := ReadOnlyColor;
53end;
54
55end.
Note: See TracBrowser for help on using the repository browser.