Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Consults/fODConsult.dfm

    r456 r829  
    1111  Constraints.MinWidth = 606
    1212  Font.Charset = ANSI_CHARSET
     13  ExplicitWidth = 606
     14  ExplicitHeight = 376
    1315  PixelsPerInch = 96
    1416  TextHeight = 13
    … …  
    2022    Caption = 'Consult to Service/Specialty'
    2123  end
    22   object pnlReason: TPanel [1]
     24  object lblProvDiag: TLabel [1]
     25    Left = 309
     26    Top = 81
     27    Width = 100
     28    Height = 13
     29    Anchors = [akTop, akRight]
     30    Caption = 'Provisional Diagnosis'
     31  end
     32  object lblUrgency: TLabel [2]
     33    Left = 309
     34    Top = 2
     35    Width = 40
     36    Height = 13
     37    Anchors = [akTop, akRight]
     38    Caption = 'Urgency'
     39  end
     40  object lblPlace: TLabel [3]
     41    Left = 454
     42    Top = 43
     43    Width = 100
     44    Height = 13
     45    Anchors = [akTop, akRight]
     46    Caption = 'Place of Consultation'
     47  end
     48  object lblAttn: TLabel [4]
     49    Left = 454
     50    Top = 2
     51    Width = 42
     52    Height = 13
     53    Anchors = [akTop, akRight]
     54    Caption = 'Attention'
     55  end
     56  object pnlReason: TPanel [5]
    2357    Left = 3
    24     Top = 154
     58    Top = 128
    2559    Width = 585
    26     Height = 135
     60    Height = 161
    2761    Anchors = [akLeft, akTop, akRight]
    2862    BevelOuter = bvNone
    29     TabOrder = 11
     63    TabOrder = 10
    3064    object lblReason: TLabel
    3165      Left = 0
    … …  
    3569      Align = alTop
    3670      Caption = 'Reason for Request'
     71      ExplicitWidth = 95
    3772    end
    3873    object memReason: TRichEdit
    … …  
    4075      Top = 13
    4176      Width = 585
    42       Height = 122
     77      Height = 148
    4378      Align = alClient
    4479      Font.Charset = ANSI_CHARSET
    … …  
    6095    end
    6196  end
    62   object lblUrgency: TStaticText [2]
    63     Left = 309
    64     Top = 2
    65     Width = 44
    66     Height = 17
    67     Anchors = [akTop, akRight]
    68     Caption = 'Urgency'
    69     TabOrder = 17
    70   end
    71   object lblPlace: TStaticText [3]
    72     Left = 454
    73     Top = 43
    74     Width = 104
    75     Height = 17
    76     Anchors = [akTop, akRight]
    77     Caption = 'Place of Consultation'
    78     TabOrder = 18
    79   end
    80   object lblAttn: TStaticText [4]
    81     Left = 454
    82     Top = 2
    83     Width = 46
    84     Height = 17
    85     Anchors = [akTop, akRight]
    86     Caption = 'Attention'
    87     TabOrder = 19
    88   end
    89   object lblProvDiag: TStaticText [5]
    90     Left = 309
    91     Top = 81
    92     Width = 104
    93     Height = 17
    94     Anchors = [akTop, akRight]
    95     Caption = 'Provisional Diagnosis'
    96     TabOrder = 20
    97   end
    9897  inherited memOrder: TCaptionMemo
    9998    Left = 3
    … …  
    101100    Width = 417
    102101    Height = 41
     102    TabStop = True
     103    Anchors = [akLeft, akBottom]
    103104    Lines.Strings = (
    104105      'The order text...'
    … …  
    106107      '--------------------------------'
    107108      'An order message may be displayed here.')
    108     TabOrder = 1
    109   end
    110   inherited cmdAccept: TButton
    111     Left = 427
    112     Top = 315
    113     TabOrder = 12
    114   end
    115   inherited cmdQuit: TButton
    116     Left = 531
    117     Top = 315
    118     Width = 61
    119     TabOrder = 13
    120   end
    121   inherited pnlMessage: TPanel
    122     Left = 13
    123     Top = 295
    124     Width = 377
    125     Anchors = [akLeft, akRight, akBottom]
    126     TabOrder = 14
    127     inherited memMessage: TRichEdit
    128       Width = 292
    129     end
    130   end
    131   object cboService: TORComboBox
     109    TabOrder = 11
     110    ExplicitLeft = 3
     111    ExplicitTop = 305
     112    ExplicitWidth = 417
     113    ExplicitHeight = 41
     114  end
     115  object cboService: TORComboBox [7]
    132116    Left = 0
    133117    Top = 16
    … …  
    151135    SynonymChars = '<>'
    152136    TabOrder = 0
     137    TabStop = True
    153138    OnChange = ControlChange
    154139    OnClick = cboServiceSelect
    … …  
    158143    CharsNeedMatch = 1
    159144  end
    160   object cboUrgency: TORComboBox
     145  object cboUrgency: TORComboBox [8]
    161146    Left = 309
    162147    Top = 16
    … …  
    166151    Style = orcsDropDown
    167152    AutoSelect = True
    168     Caption = 'Urgency'
    169153    Color = clWindow
    170154    DropDownCount = 8
    … …  
    179163    Sorted = False
    180164    SynonymChars = '<>'
    181     TabOrder = 4
     165    TabOrder = 3
    182166    TabStop = True
    183167    OnChange = ControlChange
    184168    CharsNeedMatch = 1
    185169  end
    186   object cboPlace: TORComboBox
     170  object cboPlace: TORComboBox [9]
    187171    Left = 454
    188172    Top = 56
    … …  
    192176    Style = orcsDropDown
    193177    AutoSelect = True
    194     Caption = 'Place of Consultation'
    195178    Color = clWindow
    196179    DropDownCount = 8
    … …  
    205188    Sorted = False
    206189    SynonymChars = '<>'
    207     TabOrder = 7
     190    TabOrder = 6
    208191    OnChange = ControlChange
    209192    CharsNeedMatch = 1
    210193  end
    211   object txtProvDiag: TCaptionEdit
     194  object txtProvDiag: TCaptionEdit [10]
    212195    Left = 309
    213196    Top = 94
    … …  
    219202    PopupMenu = mnuPopProvDx
    220203    ShowHint = True
    221     TabOrder = 9
     204    TabOrder = 8
    222205    OnChange = txtProvDiagChange
    223     Caption = 'Provisional Diagnosis'
    224   end
    225   object txtAttn: TORComboBox
     206  end
     207  object txtAttn: TORComboBox [11]
    226208    Left = 454
    227209    Top = 16
    … …  
    231213    Style = orcsDropDown
    232214    AutoSelect = True
    233     Caption = 'Attention'
    234215    Color = clWindow
    235216    DropDownCount = 8
    … …  
    244225    Sorted = False
    245226    SynonymChars = '<>'
    246     TabOrder = 5
     227    TabOrder = 4
    247228    OnChange = ControlChange
    248229    OnNeedData = txtAttnNeedData
    249230    CharsNeedMatch = 1
    250231  end
    251   object treService: TORTreeView
     232  object treService: TORTreeView [12]
    252233    Left = 0
    253234    Top = 38
    … …  
    264245    ParentFont = False
    265246    ReadOnly = True
    266     TabOrder = 3
     247    TabOrder = 2
    267248    Visible = False
    268249    OnChange = treServiceChange
    269250    OnCollapsing = treServiceCollapsing
     251    OnEnter = treServiceEnter
    270252    OnExit = treServiceExit
    271253    OnKeyDown = treServiceKeyDown
    272254    OnKeyUp = treServiceKeyUp
    273255    OnMouseDown = treServiceMouseDown
    274     Caption = 'object lblService: TLabel'
    275256    NodePiece = 0
    276257  end
    277   object cboCategory: TORComboBox
     258  object cboCategory: TORComboBox [13]
    278259    Left = 225
    279260    Top = -5
    … …  
    297278    CharsNeedMatch = 1
    298279  end
    299   object pnlServiceTreeButton: TKeyClickPanel
     280  object pnlServiceTreeButton: TKeyClickPanel [14]
    300281    Left = 274
    301282    Top = 14
    … …  
    313294    Font.Style = []
    314295    ParentFont = False
    315     TabOrder = 2
     296    TabOrder = 1
    316297    TabStop = True
    317298    OnClick = btnServiceTreeClick
    … …  
    323304      Width = 22
    324305      Height = 22
     306      Hint = 'View services/specialties hierarchically'
    325307      Glyph.Data = {
    326308        26050000424D26050000000000003604000028000000100000000F0000000100
    … …  
    367349        FFFFFFFFFFFFFFFFFFFF}
    368350      Margin = 0
     351      ParentShowHint = False
     352      ShowHint = True
    369353      OnClick = btnServiceTreeClick
    370354    end
    371355  end
    372   object cmdLexSearch: TButton
     356  object cmdLexSearch: TButton [15]
    373357    Left = 543
    374358    Top = 94
    … …  
    377361    Anchors = [akTop, akRight]
    378362    Caption = 'Lexicon'
    379     TabOrder = 10
     363    TabOrder = 9
    380364    OnClick = cmdLexSearchClick
    381365  end
    382   object gbInptOpt: TGroupBox
     366  object gbInptOpt: TGroupBox [16]
    383367    Left = 309
    384368    Top = 35
    … …  
    387371    Anchors = [akTop, akRight]
    388372    Caption = 'Patient will be seen as an:'
    389     TabOrder = 6
     373    TabOrder = 5
    390374    object radInpatient: TRadioButton
    391375      Left = 3
    … …  
    407391    end
    408392  end
    409   object btnDiagnosis: TButton
     393  object btnDiagnosis: TButton [17]
    410394    Left = 543
    411395    Top = 95
    … …  
    414398    Anchors = [akTop, akRight]
    415399    Caption = 'Diagnosis'
    416     TabOrder = 8
     400    TabOrder = 7
    417401    OnClick = btnDiagnosisClick
     402  end
     403  inherited cmdAccept: TButton
     404    Left = 439
     405    Top = 315
     406    Anchors = [akLeft, akBottom]
     407    TabOrder = 12
     408    ExplicitLeft = 439
     409    ExplicitTop = 315
     410  end
     411  inherited cmdQuit: TButton
     412    Left = 531
     413    Top = 315
     414    Width = 61
     415    Anchors = [akLeft, akBottom]
     416    TabOrder = 13
     417    ExplicitLeft = 531
     418    ExplicitTop = 315
     419    ExplicitWidth = 61
     420  end
     421  inherited pnlMessage: TPanel
     422    Left = 13
     423    Top = 295
     424    Width = 377
     425    Anchors = [akLeft, akRight, akBottom]
     426    TabOrder = 14
     427    ExplicitLeft = 13
     428    ExplicitTop = 295
     429    ExplicitWidth = 377
     430    inherited memMessage: TRichEdit
     431      Width = 292
     432      ExplicitWidth = 292
     433    end
     434  end
     435  inherited amgrMain: TVA508AccessibilityManager
     436    Data = (
     437      (
     438        'Component = pnlReason'
     439        'Status = stsDefault')
     440      (
     441        'Component = memReason'
     442        'Label = lblReason'
     443        'Status = stsOK')
     444      (
     445        'Component = cboService'
     446        'Status = stsDefault')
     447      (
     448        'Component = cboUrgency'
     449        'Label = lblUrgency'
     450        'Status = stsOK')
     451      (
     452        'Component = cboPlace'
     453        'Label = lblPlace'
     454        'Status = stsOK')
     455      (
     456        'Component = txtProvDiag'
     457        'Label = lblProvDiag'
     458        'Status = stsOK')
     459      (
     460        'Component = txtAttn'
     461        'Label = lblAttn'
     462        'Status = stsOK')
     463      (
     464        'Component = treService'
     465        'Status = stsDefault')
     466      (
     467        'Component = cboCategory'
     468        'Status = stsDefault')
     469      (
     470        'Component = pnlServiceTreeButton'
     471        'Status = stsDefault')
     472      (
     473        'Component = cmdLexSearch'
     474        'Status = stsDefault')
     475      (
     476        'Component = gbInptOpt'
     477        'Status = stsDefault')
     478      (
     479        'Component = radInpatient'
     480        'Status = stsDefault')
     481      (
     482        'Component = radOutpatient'
     483        'Status = stsDefault')
     484      (
     485        'Component = btnDiagnosis'
     486        'Status = stsDefault')
     487      (
     488        'Component = memOrder'
     489        'Status = stsDefault')
     490      (
     491        'Component = cmdAccept'
     492        'Status = stsDefault')
     493      (
     494        'Component = cmdQuit'
     495        'Status = stsDefault')
     496      (
     497        'Component = pnlMessage'
     498        'Status = stsDefault')
     499      (
     500        'Component = memMessage'
     501        'Status = stsDefault')
     502      (
     503        'Component = frmODCslt'
     504        'Status = stsDefault'))
    418505  end
    419506  object mnuPopProvDx: TPopupMenu
Note: See TracChangeset for help on using the changeset viewer.