source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMProgress.pas@ 1542

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

Adding foia-cprs branch

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