Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fRenewOutMed.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/fRenewOutMed.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fRenewOutMed.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls;
+  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls, ExtCtrls;
 
 type
-  TfrmRenewOutMed = class(TfrmAutoSz)
-    lblRefills: TLabel;
-    lblComments: TLabel;
+  TfrmRenewOutMed = class(TForm)
+    memOrder: TCaptionMemo;
+    pnlButtons: TPanel;
     cmdOK: TButton;
     cmdCancel: TButton;
-    memOrder: TCaptionMemo;
-    memComments: TCaptionMemo;
+    pnlMiddle: TPanel;
+    cboPickup: TORComboBox;
+    lblPickup: TLabel;
     txtRefills: TCaptionEdit;
-    lblPickup: TLabel;
-    cboPickup: TORComboBox;
+    lblRefills: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
@@ -45 +45 @@
   try
     ResizeFormToFont(TForm(frmRenewOutMed));
-    frmRenewOutMed.memComments.SetTextBuf(PChar(Comments));
     frmRenewOutMed.memOrder.SetTextBuf(PChar(AnOrder.Text));
     frmRenewOutMed.txtRefills.Text := IntToStr(Refills);
@@ -54 +53 @@
       Result := True;
       Refills := StrToIntDef(frmRenewOutMed.txtRefills.Text, Refills);
-      Comments := frmRenewOutMed.memComments.Text;
       Pickup := frmRenewOutMed.cboPickup.ItemID;
     end;