source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.pas@ 1024

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

Uploading from OR_30_258

File size: 1.1 KB
RevLine 
[459]1unit fOCAccept;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
[460]7 fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls;
[459]8
9type
10 TfrmOCAccept = class(TfrmAutoSz)
11 memChecks: TRichEdit;
[460]12 pnlBottom: TPanel;
[459]13 cmdAccept: TButton;
14 cmdCancel: TButton;
15 private
16 { Private declarations }
17 public
18 { Public declarations }
19 end;
20
21function AcceptOrderWithChecks(OCList: TStringList): Boolean;
22
23implementation
24
25{$R *.DFM}
26
27function AcceptOrderWithChecks(OCList: TStringList): Boolean;
28var
29 i: Integer;
30 frmOCAccept: TfrmOCAccept;
31begin
32 Result := True;
33 if OCList.Count > 0 then
34 begin
35 frmOCAccept := TfrmOCAccept.Create(Application);
36 try
37 ResizeFormToFont(TForm(frmOCAccept));
38 for i := 0 to OCList.Count - 1 do
39 begin
40 frmOCAccept.memChecks.Lines.Add(Piece(OCList[i], U, 4));
41 frmOCAccept.memChecks.Lines.Add('');
42 end;
43 frmOCAccept.memChecks.SelStart := 0;
44 frmOCAccept.memChecks.SelLength := 0;
45 Result := frmOCAccept.ShowModal = mrYes;
46 finally
47 frmOCAccept.Release;
48 end;
49 end;
50end;
51
52end.
Note: See TracBrowser for help on using the repository browser.