Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Orders/fODRad.dfm

    r829 r1679  
    88  Constraints.MinHeight = 404
    99  Constraints.MinWidth = 586
    10   ExplicitLeft = 282
    11   ExplicitTop = 225
    1210  ExplicitWidth = 586
    1311  ExplicitHeight = 404
    … …  
    1917    Width = 490
    2018    Anchors = [akLeft, akRight, akBottom]
    21     TabOrder = 6
     19    TabOrder = 4
    2220    ExplicitLeft = 0
    2321    ExplicitTop = 326
    … …  
    3230    ParentShowHint = False
    3331    ShowHint = True
    34     TabOrder = 7
     32    TabOrder = 3
    3533    Visible = False
    3634    ItemTipColor = clWindow
    … …  
    173171      Height = 18
    174172      Caption = 'Remove'
    175       TabOrder = 4
     173      TabOrder = 5
    176174      OnClick = cmdRemoveClick
    177175    end
    178176  end
    179   inherited cmdAccept: TButton
    180     Left = 497
    181     Top = 326
    182     Anchors = [akRight, akBottom]
    183     TabOrder = 3
    184     ExplicitLeft = 497
    185     ExplicitTop = 326
    186   end
    187   object pnlRightBase: TORAutoPanel [4]
     177  object pnlRightBase: TORAutoPanel [3]
    188178    Left = 215
    189179    Top = 0
    … …  
    233223      object lblSubmit: TLabel
    234224        Left = 154
    235         Top = 42
     225        Top = 45
    236226        Width = 48
    237227        Height = 13
    … …  
    264254        Width = 96
    265255        Height = 21
    266         TabOrder = 8
     256        TabOrder = 9
    267257        OnChange = calPreOpChange
    268258        OnExit = calPreOpExit
    … …  
    280270        ParentShowHint = False
    281271        ShowHint = True
    282         TabOrder = 6
     272        TabOrder = 7
    283273        OnClick = ControlChange
    284274        OnExit = chkIsolationExit
    … …  
    373363        Height = 17
    374364        Caption = 'Pre-Op'
    375         TabOrder = 9
     365        TabOrder = 13
    376366        Visible = False
    377367        OnClick = ControlChange
    … …  
    412402        ParentShowHint = False
    413403        ShowHint = True
    414         TabOrder = 5
     404        TabOrder = 6
    415405        Caption = 'Exams Over the Last 7 Days'
    416406        ItemTipColor = clWindow
    … …  
    424414        Height = 41
    425415        Caption = 'Pregnant'
    426         TabOrder = 7
     416        TabOrder = 8
    427417        object radPregnant: TRadioButton
    428418          Left = 2
    … …  
    453443        end
    454444      end
     445      object Submitlbl508: TVA508StaticText
     446        Name = 'Submitlbl508'
     447        Left = 154
     448        Top = 43
     449        Width = 120
     450        Height = 15
     451        Alignment = taLeftJustify
     452        Caption = 'Submit To (for screen R.)'
     453        Enabled = False
     454        TabOrder = 5
     455        Visible = False
     456        ShowAccelChar = True
     457      end
    455458    end
    456459    object pnlHandR: TPanel
    … …  
    505508    end
    506509  end
     510  inherited cmdAccept: TButton
     511    Left = 497
     512    Top = 326
     513    Anchors = [akRight, akBottom]
     514    TabOrder = 5
     515    ExplicitLeft = 497
     516    ExplicitTop = 326
     517  end
    507518  inherited cmdQuit: TButton
    508519    Left = 498
    509520    Top = 353
    510521    Anchors = [akRight, akBottom]
    511     TabOrder = 4
     522    TabOrder = 6
    512523    ExplicitLeft = 498
    513524    ExplicitTop = 353
    … …  
    519530    Height = 55
    520531    TabOrder = 2
     532    OnMouseUp = pnlMessageMouseUp
    521533    ExplicitLeft = 5
    522534    ExplicitTop = 318
    … …  
    596608      (
    597609        'Component = grpPregnant'
    598         'Status = stsDefault')
     610        'Text = Pregnant group box.  Disabled.  Patient is male.'
     611        'Status = stsOK')
    599612      (
    600613        'Component = radPregnant'
    … …  
    614627      (
    615628        'Component = txtReason'
    616         'Status = stsDefault')
     629       
     630          'Text = Reason for Study REQUIRED text 64 characters maximum leng' +
     631          'th'
     632        'Status = stsOK')
    617633      (
    618634        'Component = memOrder'
    … …  
    632648      (
    633649        'Component = frmODRad'
     650        'Status = stsDefault')
     651      (
     652        'Component = Submitlbl508'
    634653        'Status = stsDefault'))
    635654  end
     655  object VA508ComponentAccessibility1: TVA508ComponentAccessibility
     656    Component = memHistory
     657    OnStateQuery = VA508ComponentAccessibility1StateQuery
     658    Left = 336
     659    Top = 64
     660  end
     661  object VA508ComponentAccessibility2: TVA508ComponentAccessibility
     662    Component = grpPregnant
     663    Left = 536
     664    Top = 224
     665  end
    636666end
Note: See TracChangeset for help on using the changeset viewer.