| 
            Last change
 on this file since 920 was             459, checked in by Kevin Toppenberg, 17 years ago           | 
        
        
          | 
             
Adding foia-cprs branch 
 
           | 
        
        
          | 
            File size:
            1.3 KB
           | 
        
      
      
| Line |   | 
|---|
| 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.