| Last change
 on this file since 1521 was             459, checked in by Kevin Toppenberg, 17 years ago | 
        
          | 
Adding foia-cprs branch
 | 
        
          | File size:
            1.3 KB | 
      
      
| Rev | Line |  | 
|---|
| [459] | 1 | inherited frmEffectDate: TfrmEffectDate | 
|---|
|  | 2 | Left = 335 | 
|---|
|  | 3 | Top = 133 | 
|---|
|  | 4 | BorderIcons = [] | 
|---|
|  | 5 | BorderStyle = bsDialog | 
|---|
|  | 6 | Caption = 'Discharge Date' | 
|---|
|  | 7 | ClientHeight = 127 | 
|---|
|  | 8 | ClientWidth = 254 | 
|---|
|  | 9 | Position = poScreenCenter | 
|---|
|  | 10 | OnCreate = FormCreate | 
|---|
|  | 11 | PixelsPerInch = 96 | 
|---|
|  | 12 | TextHeight = 13 | 
|---|
|  | 13 | object Label2: TLabel | 
|---|
|  | 14 | Left = 68 | 
|---|
|  | 15 | Top = 48 | 
|---|
|  | 16 | Width = 68 | 
|---|
|  | 17 | Height = 13 | 
|---|
|  | 18 | Caption = 'Effective Date' | 
|---|
|  | 19 | end | 
|---|
|  | 20 | object Label3: TStaticText | 
|---|
|  | 21 | Left = 8 | 
|---|
|  | 22 | Top = 8 | 
|---|
|  | 23 | Width = 244 | 
|---|
|  | 24 | Height = 17 | 
|---|
|  | 25 | Caption = 'Enter the date this discharge will become effective.' | 
|---|
|  | 26 | TabOrder = 3 | 
|---|
|  | 27 | end | 
|---|
|  | 28 | object Label4: TStaticText | 
|---|
|  | 29 | Left = 8 | 
|---|
|  | 30 | Top = 22 | 
|---|
|  | 31 | Width = 224 | 
|---|
|  | 32 | Height = 17 | 
|---|
|  | 33 | Caption = '(This aids pharmacy in preparing prescriptions.)' | 
|---|
|  | 34 | TabOrder = 4 | 
|---|
|  | 35 | end | 
|---|
|  | 36 | object calEffective: TORDateBox | 
|---|
|  | 37 | Left = 68 | 
|---|
|  | 38 | Top = 62 | 
|---|
|  | 39 | Width = 120 | 
|---|
|  | 40 | Height = 21 | 
|---|
|  | 41 | TabOrder = 0 | 
|---|
|  | 42 | Text = 'Today' | 
|---|
|  | 43 | DateOnly = True | 
|---|
|  | 44 | RequireTime = False | 
|---|
|  | 45 | Caption = 'Effective Date' | 
|---|
|  | 46 | end | 
|---|
|  | 47 | object cmdOK: TButton | 
|---|
|  | 48 | Left = 51 | 
|---|
|  | 49 | Top = 95 | 
|---|
|  | 50 | Width = 72 | 
|---|
|  | 51 | Height = 21 | 
|---|
|  | 52 | Caption = 'OK' | 
|---|
|  | 53 | Default = True | 
|---|
|  | 54 | TabOrder = 1 | 
|---|
|  | 55 | OnClick = cmdOKClick | 
|---|
|  | 56 | end | 
|---|
|  | 57 | object cmdCancel: TButton | 
|---|
|  | 58 | Left = 133 | 
|---|
|  | 59 | Top = 95 | 
|---|
|  | 60 | Width = 72 | 
|---|
|  | 61 | Height = 21 | 
|---|
|  | 62 | Cancel = True | 
|---|
|  | 63 | Caption = 'Cancel' | 
|---|
|  | 64 | TabOrder = 2 | 
|---|
|  | 65 | OnClick = cmdCancelClick | 
|---|
|  | 66 | end | 
|---|
|  | 67 | end | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.