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

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.dfm

    r456 r829  
    1 object frmBALocalDiagnoses: TfrmBALocalDiagnoses
    2   Left = 192
    3   Top = 61
    4   Width = 620
    5   Height = 544
     1inherited frmBALocalDiagnoses: TfrmBALocalDiagnoses
     2  Left = 272
     3  Top = 142
    64  Caption = 'Assign Diagnoses to Order(s)'
    7   Color = clBtnFace
    8   Font.Charset = DEFAULT_CHARSET
    9   Font.Color = clWindowText
    10   Font.Height = -11
    11   Font.Name = 'MS Sans Serif'
    12   Font.Style = []
    13   KeyPreview = True
     5  ClientHeight = 517
     6  ClientWidth = 612
    147  OldCreateOrder = False
    158  Position = poScreenCenter
    … …  
    1710  OnActivate = FormActivate
    1811  OnCreate = FormCreate
    19   OnDestroy = FormDestroy
     12  OnKeyPress = FormKeyPress
    2013  OnShow = FormShow
     14  ExplicitWidth = 620
     15  ExplicitHeight = 551
    2116  PixelsPerInch = 96
    2217  TextHeight = 13
    23   object pnlTop: TPanel
     18  object pnlTop: TPanel [0]
    2419    Left = 0
    2520    Top = 0
    … …  
    3328      96)
    3429    object lbOrders: TListBox
    35       Left = 7
     30      Left = 8
    3631      Top = 25
    37       Width = 599
     32      Width = 602
    3833      Height = 69
    3934      Anchors = [akLeft, akTop, akRight, akBottom]
    4035      IntegralHeight = True
    4136      ItemHeight = 13
    42       TabOrder = 2
     37      TabOrder = 1
    4338      OnMouseMove = lbOrdersMouseMove
    4439    end
    45     object ORStaticText1: TORStaticText
    46       Left = 216
     40    object lblPatientName: TStaticText
     41      Left = 8
    4742      Top = 8
    48       Width = 169
    49       Height = 14
    50       AutoSize = False
    51       Caption = 'Selected Orders'
    52       TabOrder = 1
    53       TabStop = True
    54       OnEnter = ORStaticText1Enter
    55       OnExit = ORStaticText1Exit
    56     end
    57     object lblPatientName: TStaticText
    58       Left = 11
    59       Top = 9
    6043      Width = 76
    6144      Height = 17
    … …  
    6851      ParentFont = False
    6952      TabOrder = 0
    70       TabStop = True
    71     end
    72   end
    73   object pnlMain: TPanel
     53    end
     54  end
     55  object pnlMain: TPanel [1]
    7456    Left = 0
    7557    Top = 96
    … …  
    7860    Align = alClient
    7961    TabOrder = 1
     62    object lblDiagSect: TLabel
     63      Left = 9
     64      Top = 1
     65      Width = 241
     66      Height = 17
     67      AutoSize = False
     68      Caption = 'Diagnosis Section'
     69    end
     70    object lblDiagCodes: TLabel
     71      Left = 253
     72      Top = 1
     73      Width = 353
     74      Height = 17
     75      AutoSize = False
     76      Caption = 'Diagnosis Codes'
     77    end
    8078    object lbSections: TORListBox
    8179      Left = 9
    82       Top = 16
     80      Top = 14
    8381      Width = 238
    84       Height = 201
    85       Style = lbOwnerDrawVariable
     82      Height = 199
    8683      IntegralHeight = True
    8784      ItemHeight = 13
    … …  
    9592      LongList = False
    9693      Pieces = '3'
    97       CheckEntireLine = True
    9894    end
    9995    object btnOther: TButton
    … …  
    107103    end
    108104    object lbDiagnosis: TORListBox
    109       Left = 248
     105      Left = 253
    110106      Top = 16
    111107      Width = 353
    … …  
    122118      Pieces = '1,2,3'
    123119    end
    124     object ORStaticText2: TORStaticText
    125       Left = 8
    126       Top = 1
    127       Width = 241
    128       Height = 17
    129       AutoSize = False
    130       BevelKind = bkFlat
    131       Caption = 'Diagnosis Section'
    132       TabOrder = 0
    133       TabStop = True
    134       OnEnter = ORStaticText1Enter
    135       OnExit = ORStaticText1Exit
    136     end
    137     object ORStaticText3: TORStaticText
    138       Left = 248
    139       Top = 1
    140       Width = 353
    141       Height = 17
    142       AutoSize = False
    143       BevelKind = bkFlat
    144       Caption = 'Diagnosis Codes'
    145       TabOrder = 3
    146       TabStop = True
    147       OnEnter = ORStaticText1Enter
    148       OnExit = ORStaticText1Exit
    149     end
    150   end
    151   object pnlBottom: TORAutoPanel
     120  end
     121  object pnlBottom: TORAutoPanel [2]
    152122    Left = 0
    153123    Top = 355
    … …  
    159129      612
    160130      162)
    161     object lvDxGrid: TListView
    162       Left = 12
    163       Top = 19
    164       Width = 445
    165       Height = 85
    166       Color = clInfoBk
    167       Columns = <
    168         item
    169           Caption = 'Add To PL/PD'
    170           Width = 85
    171         end
    172         item
    173           Caption = 'Primary'
    174           MinWidth = 65
    175           Width = 65
    176         end
    177         item
    178           Caption = 'Diagnosis for Selected Orders'
    179           MinWidth = 275
    180           Width = 290
    181         end>
    182       Ctl3D = False
    183       HideSelection = False
    184       MultiSelect = True
    185       ReadOnly = True
    186       RowSelect = True
    187       TabOrder = 1
    188       ViewStyle = vsReport
    189       OnClick = lvDxGridClick
    190       OnKeyDown = lvDxGridKeyDown
    191       OnKeyUp = lvDxGridKeyUp
    192     end
    193131    object cbAddToPDList: TCheckBox
    194132      Left = 459
    … …  
    197135      Height = 17
    198136      Caption = 'Add to Personal Dx List'
    199       TabOrder = 3
     137      TabOrder = 2
    200138      OnClick = cbAddToPDListClick
    201139    end
    … …  
    207145      Anchors = [akLeft, akTop, akRight, akBottom]
    208146      Caption = 'Add To Problem List'
    209       TabOrder = 2
     147      TabOrder = 0
    210148      OnClick = cbAddToPLClick
    211149    end
    … …  
    216154      Height = 19
    217155      Caption = '&Primary'
    218       TabOrder = 4
     156      TabOrder = 3
    219157      OnClick = btnPrimaryClick
    220158    end
    … …  
    225163      Height = 19
    226164      Caption = '&Remove'
    227       TabOrder = 5
     165      TabOrder = 4
    228166      OnClick = btnRemoveClick
    229167    end
    … …  
    234172      Height = 18
    235173      Caption = '&Select All'
    236       TabOrder = 6
     174      TabOrder = 5
    237175      OnClick = btnSelectAllClick
    238176    end
    … …  
    243181      Height = 21
    244182      Caption = '&OK'
    245       TabOrder = 7
     183      TabOrder = 6
    246184      OnClick = buOKClick
    247185    end
    … …  
    252190      Height = 21
    253191      Caption = '&Cancel'
    254       TabOrder = 8
     192      TabOrder = 7
    255193      OnClick = buCancelClick
    256194    end
    257     object ORStaticText4: TORStaticText
    258       Left = 14
    259       Top = 3
    260       Width = 219
    261       Height = 14
    262       AutoSize = False
     195    object gbProvDiag: TGroupBox
     196      Left = 8
     197      Top = 0
     198      Width = 449
     199      Height = 105
    263200      Caption = 'Provisional Diagnosis'
    264       TabOrder = 0
    265       TabStop = True
    266       OnEnter = ORStaticText1Enter
    267       OnExit = ORStaticText1Exit
    268     end
     201      TabOrder = 1
     202      object lvDxGrid: TListView
     203        Left = 2
     204        Top = 15
     205        Width = 445
     206        Height = 88
     207        Align = alClient
     208        Color = clInfoBk
     209        Columns = <
     210          item
     211            Caption = 'Add To PL/PD'
     212            Width = 85
     213          end
     214          item
     215            Caption = 'Primary'
     216            MinWidth = 65
     217            Width = 65
     218          end
     219          item
     220            Caption = 'Diagnosis for Selected Orders'
     221            MinWidth = 275
     222            Width = 290
     223          end>
     224        Ctl3D = False
     225        HideSelection = False
     226        MultiSelect = True
     227        ReadOnly = True
     228        RowSelect = True
     229        TabOrder = 0
     230        ViewStyle = vsReport
     231        OnClick = lvDxGridClick
     232        OnKeyDown = lvDxGridKeyDown
     233        OnKeyUp = lvDxGridKeyUp
     234      end
     235    end
     236  end
     237  inherited amgrMain: TVA508AccessibilityManager
     238    Data = (
     239      (
     240        'Component = pnlTop'
     241        'Status = stsDefault')
     242      (
     243        'Component = lbOrders'
     244        'Status = stsDefault')
     245      (
     246        'Component = lblPatientName'
     247        'Status = stsDefault')
     248      (
     249        'Component = pnlMain'
     250        'Status = stsDefault')
     251      (
     252        'Component = lbSections'
     253        'Label = lblDiagSect'
     254        'Status = stsOK')
     255      (
     256        'Component = btnOther'
     257        'Status = stsDefault')
     258      (
     259        'Component = lbDiagnosis'
     260        'Label = lblDiagCodes'
     261        'Status = stsOK')
     262      (
     263        'Component = pnlBottom'
     264        'Status = stsDefault')
     265      (
     266        'Component = cbAddToPDList'
     267        'Status = stsDefault')
     268      (
     269        'Component = cbAddToPL'
     270        'Status = stsDefault')
     271      (
     272        'Component = btnPrimary'
     273        'Status = stsDefault')
     274      (
     275        'Component = btnRemove'
     276        'Status = stsDefault')
     277      (
     278        'Component = btnSelectAll'
     279        'Status = stsDefault')
     280      (
     281        'Component = buOK'
     282        'Status = stsDefault')
     283      (
     284        'Component = buCancel'
     285        'Status = stsDefault')
     286      (
     287        'Component = gbProvDiag'
     288        'Status = stsDefault')
     289      (
     290        'Component = lvDxGrid'
     291        'Status = stsDefault')
     292      (
     293        'Component = frmBALocalDiagnoses'
     294        'Status = stsDefault'))
    269295  end
    270296end
Note: See TracChangeset for help on using the changeset viewer.