source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOMAction.pas@ 1117

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.2 KB
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit fOMAction;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 fAutoSz, rOrders, DKLang;
9
10
11type
12 TCallOnExit = procedure;
13
14 TfrmOMAction = class(TfrmAutoSz)
15 procedure FormDestroy(Sender: TObject);
16 private
17 FCallOnExit: TCallOnExit;
18 FOrderDialog: Integer;
19 FRefNum: Integer;
20 FAbortAction: boolean;
21 protected
22 procedure InitDialog; virtual;
23 public
24 property CallOnExit: TCallOnExit read FCallOnExit write FCallOnExit;
25 property OrderDialog: Integer read FOrderDialog write FOrderDialog;
26 property RefNum: Integer read FRefNum write FRefNum;
27 property AbortAction: boolean read FAbortAction write FAbortAction;
28 end;
29
30
31var
32 frmOMAction: TfrmOMAction;
33
34implementation
35
36{$R *.DFM}
37
38uses
39 uConst;
40
41procedure TfrmOMAction.FormDestroy(Sender: TObject);
42begin
43 if Assigned(FCallOnExit) then FCallOnExit;
44 if (Owner <> nil) and (Owner is TWinControl)
45 then SendMessage(TWinControl(Owner).Handle, UM_DESTROY, FRefNum, 0);
46 inherited;
47end;
48
49procedure TfrmOMAction.InitDialog;
50begin
51 FAbortAction := False;
52end;
53
54end.
Note: See TracBrowser for help on using the repository browser.