source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOCAccept.pas@ 1400

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

Initial upload of TMG-CPRS 1.0.26.69

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