Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ORCtrls;
+  StdCtrls, ORCtrls, ExtCtrls, fAutoSz;
 
 type
-  TfrmODMedOIFA = class(TfrmAutoSz)
+  TfrmODMedOIFA = class(TForm)
     Label1: TLabel;
     lstFormAlt: TORListBox;
     Label2: TStaticText;
+    btnPanel: TPanel;
     cmdYes: TButton;
     cmdNo: TButton;
@@ -18 +19 @@
     procedure cmdNoClick(Sender: TObject);
     procedure lstFormAltClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FSelected: string;
@@ -30 +33 @@
 {$R *.DFM}
 
-uses ORFn, rODMeds;
+uses ORFn, rODMeds, rMisc;
 
 procedure CheckFormularyOI(var AnIEN: Integer; var AName: string; ForInpatient: Boolean);
@@ -130 +133 @@
 end;
 
+procedure TfrmODMedOIFA.FormShow(Sender: TObject);
+begin
+  inherited;
+  SetFormPosition(Self);
+end;
+
+procedure TfrmODMedOIFA.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  SaveUserBounds(Self);  
+end;
+
 end.