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/Encounter/fVisitType.dfm

    r456 r829  
    11inherited frmVisitType: TfrmVisitType
    2   Left = 255
    3   Top = 186
     2  Left = 260
    43  Caption = 'Encounter VisitType'
    5   ClientWidth = 620
     4  ClientHeight = 438
     5  ClientWidth = 592
     6  Constraints.MinHeight = 465
     7  Constraints.MinWidth = 600
    68  OnCloseQuery = FormCloseQuery
    7   OnResize = FormResize
     9  ExplicitLeft = 260
     10  ExplicitWidth = 600
     11  ExplicitHeight = 472
    812  PixelsPerInch = 96
    913  TextHeight = 13
    10   object lblVType: TLabel [0]
    11     Left = 150
    12     Top = 6
    13     Width = 67
    14     Height = 13
    15     Caption = 'Section Name'
     14  inherited btnOK: TBitBtn
     15    Left = 436
     16    Top = 414
     17    TabOrder = 3
     18    ExplicitLeft = 474
     19    ExplicitTop = 459
    1620  end
    17   object lblSCDisplay: TLabel [1]
    18     Left = 6
    19     Top = 123
    20     Width = 186
    21     Height = 13
    22     Caption = 'Service Connection && Rated Disabilities'
    23   end
    24   object lblVTypeSection: TLabel [2]
    25     Left = 6
    26     Top = 6
    27     Width = 58
    28     Height = 13
    29     Caption = 'Type of Visit'
    30   end
    31   object lblCurrentProv: TLabel [3]
    32     Left = 277
    33     Top = 249
    34     Width = 165
    35     Height = 13
    36     Caption = 'Current providers for this encounter'
    37   end
    38   object lblProvider: TLabel [4]
    39     Left = 6
    40     Top = 249
    41     Width = 89
    42     Height = 13
    43     Caption = 'Available providers'
    44   end
    45   object lblMod: TLabel [5]
    46     Left = 358
    47     Top = 6
    48     Width = 42
    49     Height = 13
    50     Hint = 'Modifiers'
    51     Caption = 'Modifiers'
    52     ParentShowHint = False
    53     ShowHint = True
    54   end
    55   inherited btnOK: TBitBtn
    56     Left = 463
    57     Top = 377
    58     TabOrder = 8
    59   end
    60   inherited btnCancel: TBitBtn
    61     Left = 543
    62     Top = 377
    63     TabOrder = 9
    64   end
    65   object pnlMain: TPanel
    66     Left = 2
    67     Top = 19
    68     Width = 615
    69     Height = 92
     21  object pnlTop: TPanel [1]
     22    Left = 0
     23    Top = 0
     24    Width = 592
     25    Height = 105
     26    Align = alTop
    7027    BevelOuter = bvNone
    7128    TabOrder = 0
     29    ExplicitWidth = 630
    7230    object splLeft: TSplitter
    7331      Left = 145
    7432      Top = 0
    75       Width = 3
    76       Height = 92
    77       Cursor = crHSplit
    78       OnMoved = splLeftMoved
     33      Height = 105
     34      ExplicitLeft = 154
     35      ExplicitTop = 7
     36      ExplicitHeight = 145
    7937    end
    8038    object splRight: TSplitter
    81       Left = 352
    82       Top = 0
    83       Width = 3
    84       Height = 92
    85       Cursor = crHSplit
    86       Align = alRight
    87       OnMoved = splRightMoved
     39      Left = 361
     40      Top = 0
     41      Height = 105
     42      ExplicitLeft = 634
    8843    end
    8944    object pnlLeft: TPanel
    … …  
    9146      Top = 0
    9247      Width = 145
    93       Height = 92
     48      Height = 105
    9449      Align = alLeft
    9550      BevelOuter = bvNone
    9651      TabOrder = 0
     52      ExplicitHeight = 145
     53      object lblVTypeSection: TLabel
     54        Left = 0
     55        Top = 0
     56        Width = 145
     57        Height = 13
     58        Align = alTop
     59        Caption = 'Type of Visit'
     60        ExplicitWidth = 58
     61      end
    9762      object lstVTypeSection: TORListBox
    9863        Tag = 10
    9964        Left = 0
    100         Top = 0
     65        Top = 13
    10166        Width = 145
    10267        Height = 92
    103         Align = alTop
     68        Align = alClient
    10469        ItemHeight = 13
    10570        ParentShowHint = False
    … …  
    11479      end
    11580    end
    116     object lbxVisits: TORListBox
    117       Tag = 10
     81    object pnlModifiers: TPanel
     82      Left = 364
     83      Top = 0
     84      Width = 228
     85      Height = 105
     86      Align = alClient
     87      BevelOuter = bvNone
     88      TabOrder = 2
     89      ExplicitLeft = 431
     90      ExplicitWidth = 199
     91      ExplicitHeight = 145
     92      object lblMod: TLabel
     93        Left = 0
     94        Top = 0
     95        Width = 228
     96        Height = 13
     97        Hint = 'Modifiers'
     98        Align = alTop
     99        Caption = 'Modifiers'
     100        ParentShowHint = False
     101        ShowHint = True
     102        ExplicitWidth = 42
     103      end
     104      object lbMods: TORListBox
     105        Left = 0
     106        Top = 13
     107        Width = 228
     108        Height = 92
     109        Style = lbOwnerDrawFixed
     110        Align = alClient
     111        Font.Charset = DEFAULT_CHARSET
     112        Font.Color = clWindowText
     113        Font.Height = -11
     114        Font.Name = 'MS Sans Serif'
     115        Font.Style = []
     116        ItemHeight = 14
     117        ParentFont = False
     118        ParentShowHint = False
     119        ShowHint = True
     120        TabOrder = 0
     121        Caption = 'Modifiers'
     122        ItemTipColor = clWindow
     123        LongList = False
     124        Pieces = '2,3'
     125        TabPosInPixels = True
     126        CheckBoxes = True
     127        CheckEntireLine = True
     128        OnClickCheck = lbModsClickCheck
     129        ExplicitWidth = 199
     130        ExplicitHeight = 132
     131      end
     132    end
     133    object pnlSection: TPanel
    118134      Left = 148
    119135      Top = 0
    120       Width = 204
    121       Height = 92
    122       Style = lbOwnerDrawFixed
     136      Width = 213
     137      Height = 105
     138      Align = alLeft
     139      BevelOuter = bvNone
     140      Caption = 'pnlSection'
     141      TabOrder = 1
     142      object lblVType: TLabel
     143        Left = 0
     144        Top = 0
     145        Width = 213
     146        Height = 13
     147        Align = alTop
     148        Caption = 'Section Name'
     149        ExplicitWidth = 67
     150      end
     151      object lbxVisits: TORListBox
     152        Tag = 10
     153        Left = 0
     154        Top = 13
     155        Width = 213
     156        Height = 92
     157        Style = lbOwnerDrawFixed
     158        Align = alClient
     159        ItemHeight = 16
     160        ParentShowHint = False
     161        ShowHint = True
     162        TabOrder = 0
     163        OnClick = lbxVisitsClick
     164        Caption = 'Section Name'
     165        ItemTipColor = clWindow
     166        LongList = False
     167        Pieces = '3,4,5'
     168        TabPosInPixels = True
     169        CheckBoxes = True
     170        CheckEntireLine = True
     171        OnClickCheck = lbxVisitsClickCheck
     172        ExplicitLeft = -3
     173        ExplicitTop = 7
     174        ExplicitWidth = 281
     175      end
     176    end
     177  end
     178  object pnlMiddle: TPanel [2]
     179    Left = 0
     180    Top = 105
     181    Width = 592
     182    Height = 164
     183    Align = alTop
     184    BevelOuter = bvNone
     185    TabOrder = 1
     186    ExplicitTop = 145
     187    ExplicitWidth = 630
     188    inline fraVisitRelated: TfraVisitRelated
     189      Left = 384
     190      Top = 0
     191      Width = 208
     192      Height = 164
     193      Align = alRight
     194      TabOrder = 1
     195      ExplicitLeft = 384
     196      ExplicitWidth = 208
     197      ExplicitHeight = 164
     198      inherited gbVisitRelatedTo: TGroupBox
     199        Width = 208
     200        Height = 164
     201        ExplicitWidth = 208
     202        ExplicitHeight = 164
     203        inherited chkMSTYes: TCheckBox
     204          Top = 127
     205          ExplicitTop = 127
     206        end
     207        inherited chkMSTNo: TCheckBox
     208          Top = 127
     209          ExplicitTop = 127
     210        end
     211        inherited chkHNCYes: TCheckBox
     212          Top = 143
     213          ExplicitTop = 143
     214        end
     215        inherited chkHNCNo: TCheckBox
     216          Top = 142
     217          Width = 150
     218          Height = 18
     219          Caption = 'Head and/or Neck Cancer     No'
     220          ExplicitTop = 142
     221          ExplicitWidth = 150
     222          ExplicitHeight = 18
     223        end
     224      end
     225    end
     226    object pnlSC: TPanel
     227      Left = 0
     228      Top = 0
     229      Width = 384
     230      Height = 164
    123231      Align = alClient
    124       ItemHeight = 16
    125       ParentShowHint = False
    126       ShowHint = True
     232      BevelOuter = bvNone
     233      TabOrder = 0
     234      ExplicitWidth = 422
     235      object lblSCDisplay: TLabel
     236        Left = 0
     237        Top = 0
     238        Width = 384
     239        Height = 13
     240        Align = alTop
     241        Caption = 'Service Connection && Rated Disabilities'
     242        ExplicitWidth = 186
     243      end
     244      object memSCDisplay: TCaptionMemo
     245        Left = 0
     246        Top = 13
     247        Width = 384
     248        Height = 151
     249        Align = alClient
     250        Color = clBtnFace
     251        Lines.Strings = (
     252          '')
     253        ReadOnly = True
     254        ScrollBars = ssVertical
     255        TabOrder = 0
     256        OnEnter = memSCDisplayEnter
     257        Caption = 'Service Connection && Rated Disabilities'
     258      end
     259    end
     260  end
     261  object pnlBottom: TPanel [3]
     262    Left = 0
     263    Top = 269
     264    Width = 592
     265    Height = 141
     266    Align = alTop
     267    BevelOuter = bvNone
     268    TabOrder = 2
     269    ExplicitTop = 309
     270    ExplicitWidth = 630
     271    object btnAdd: TButton
     272      Left = 260
     273      Top = 35
     274      Width = 75
     275      Height = 21
     276      Caption = 'Add'
    127277      TabOrder = 1
    128       OnClick = lbxVisitsClick
    129       Caption = 'Section Name'
    130       ItemTipColor = clWindow
    131       LongList = False
    132       Pieces = '3,4,5'
    133       TabPosInPixels = True
    134       CheckBoxes = True
    135       CheckEntireLine = True
    136       OnClickCheck = lbxVisitsClickCheck
    137     end
    138     object lbMods: TORListBox
    139       Left = 355
    140       Top = 0
    141       Width = 260
    142       Height = 92
    143       Style = lbOwnerDrawFixed
     278      OnClick = btnAddClick
     279    end
     280    object btnDelete: TButton
     281      Left = 260
     282      Top = 72
     283      Width = 75
     284      Height = 21
     285      Caption = 'Remove'
     286      TabOrder = 2
     287      OnClick = btnDeleteClick
     288    end
     289    object btnPrimary: TButton
     290      Left = 260
     291      Top = 112
     292      Width = 75
     293      Height = 21
     294      Caption = 'Primary'
     295      TabOrder = 3
     296      OnClick = btnPrimaryClick
     297    end
     298    object pnlBottomLeft: TPanel
     299      Left = 0
     300      Top = 0
     301      Width = 240
     302      Height = 141
     303      Align = alLeft
     304      BevelOuter = bvNone
     305      TabOrder = 0
     306      object lblProvider: TLabel
     307        Left = 0
     308        Top = 0
     309        Width = 240
     310        Height = 13
     311        Align = alTop
     312        Caption = 'Available providers'
     313        ExplicitWidth = 89
     314      end
     315      object cboPtProvider: TORComboBox
     316        Left = 0
     317        Top = 13
     318        Width = 240
     319        Height = 128
     320        Style = orcsSimple
     321        Align = alClient
     322        AutoSelect = True
     323        Caption = 'Available providers'
     324        Color = clWindow
     325        DropDownCount = 8
     326        ItemHeight = 13
     327        ItemTipColor = clWindow
     328        ItemTipEnable = True
     329        ListItemsOnly = True
     330        LongList = True
     331        LookupPiece = 2
     332        MaxLength = 0
     333        Pieces = '2,3'
     334        Sorted = False
     335        SynonymChars = '<>'
     336        TabOrder = 0
     337        CheckEntireLine = True
     338        OnChange = cboPtProviderChange
     339        OnDblClick = cboPtProviderDblClick
     340        OnNeedData = cboPtProviderNeedData
     341        CharsNeedMatch = 1
     342        ExplicitWidth = 260
     343      end
     344    end
     345    object pnlBottomRight: TPanel
     346      Left = 352
     347      Top = 0
     348      Width = 240
     349      Height = 141
    144350      Align = alRight
    145       Font.Charset = DEFAULT_CHARSET
    146       Font.Color = clWindowText
    147       Font.Height = -11
    148       Font.Name = 'MS Sans Serif'
    149       Font.Style = []
    150       ItemHeight = 14
    151       ParentFont = False
    152       ParentShowHint = False
    153       ShowHint = True
    154       TabOrder = 2
    155       Caption = 'Modifiers'
    156       ItemTipColor = clWindow
    157       LongList = False
    158       Pieces = '2,3'
    159       TabPosInPixels = True
    160       CheckBoxes = True
    161       CheckEntireLine = True
    162       OnClickCheck = lbModsClickCheck
     351      BevelOuter = bvNone
     352      TabOrder = 4
     353      object lblCurrentProv: TLabel
     354        Left = 0
     355        Top = 0
     356        Width = 240
     357        Height = 13
     358        Align = alTop
     359        Caption = 'Current providers for this encounter'
     360        ExplicitWidth = 165
     361      end
     362      object lbProviders: TORListBox
     363        Left = 0
     364        Top = 13
     365        Width = 240
     366        Height = 128
     367        Align = alClient
     368        ItemHeight = 13
     369        ParentShowHint = False
     370        ShowHint = True
     371        TabOrder = 0
     372        OnDblClick = lbProvidersDblClick
     373        Caption = 'Current providers for this encounter'
     374        ItemTipColor = clWindow
     375        LongList = False
     376        Pieces = '2'
     377        OnChange = lbProvidersChange
     378        CheckEntireLine = True
     379        ExplicitTop = 11
     380        ExplicitWidth = 220
     381      end
    163382    end
    164383  end
    165   object memSCDisplay: TCaptionMemo
    166     Left = 6
    167     Top = 137
    168     Width = 411
    169     Height = 107
    170     Color = clBtnFace
    171     Lines.Strings = (
    172       '')
    173     ScrollBars = ssVertical
    174     TabOrder = 1
    175     Caption = 'Service Connection && Rated Disabilities'
     384  inherited btnCancel: TBitBtn
     385    Left = 517
     386    Top = 414
     387    TabOrder = 4
     388    ExplicitLeft = 555
     389    ExplicitTop = 459
    176390  end
    177   object lbProviders: TORListBox
    178     Left = 277
    179     Top = 265
    180     Width = 183
    181     Height = 126
    182     ItemHeight = 13
    183     ParentShowHint = False
    184     ShowHint = True
    185     TabOrder = 7
    186     OnDblClick = lbProvidersDblClick
    187     Caption = 'Current providers for this encounter'
    188     ItemTipColor = clWindow
    189     LongList = False
    190     Pieces = '2'
    191     OnChange = lbProvidersChange
    192     CheckEntireLine = True
    193   end
    194   object cboPtProvider: TORComboBox
    195     Left = 6
    196     Top = 265
    197     Width = 183
    198     Height = 126
    199     Style = orcsSimple
    200     AutoSelect = True
    201     Caption = 'Available providers'
    202     Color = clWindow
    203     DropDownCount = 8
    204     ItemHeight = 13
    205     ItemTipColor = clWindow
    206     ItemTipEnable = True
    207     ListItemsOnly = True
    208     LongList = True
    209     LookupPiece = 2
    210     MaxLength = 0
    211     Pieces = '2,3'
    212     Sorted = False
    213     SynonymChars = '<>'
    214     TabOrder = 3
    215     TabStop = True
    216     CheckEntireLine = True
    217     OnChange = cboPtProviderChange
    218     OnDblClick = cboPtProviderDblClick
    219     OnNeedData = cboPtProviderNeedData
    220   end
    221   object btnAdd: TButton
    222     Left = 196
    223     Top = 275
    224     Width = 75
    225     Height = 21
    226     Caption = 'Add'
    227     TabOrder = 4
    228     OnClick = btnAddClick
    229   end
    230   object btnDelete: TButton
    231     Left = 196
    232     Top = 307
    233     Width = 75
    234     Height = 21
    235     Caption = 'Remove'
    236     TabOrder = 5
    237     OnClick = btnDeleteClick
    238   end
    239   object btnPrimary: TButton
    240     Left = 196
    241     Top = 355
    242     Width = 75
    243     Height = 21
    244     Caption = 'Primary'
    245     TabOrder = 6
    246     OnClick = btnPrimaryClick
    247   end
    248   inline fraVisitRelated: TfraVisitRelated
    249     Left = 426
    250     Top = 112
    251     Width = 192
    252     Height = 137
    253     TabOrder = 2
     391  inherited amgrMain: TVA508AccessibilityManager
     392    Left = 8
     393    Top = 24
     394    Data = (
     395      (
     396        'Component = btnOK'
     397        'Status = stsDefault')
     398      (
     399        'Component = btnCancel'
     400        'Status = stsDefault')
     401      (
     402        'Component = frmVisitType'
     403        'Status = stsDefault')
     404      (
     405        'Component = pnlTop'
     406        'Status = stsDefault')
     407      (
     408        'Component = pnlLeft'
     409        'Status = stsDefault')
     410      (
     411        'Component = lstVTypeSection'
     412        'Label = lblVTypeSection'
     413        'Status = stsOK')
     414      (
     415        'Component = pnlMiddle'
     416        'Status = stsDefault')
     417      (
     418        'Component = fraVisitRelated'
     419        'Status = stsDefault')
     420      (
     421        'Component = fraVisitRelated.gbVisitRelatedTo'
     422        'Status = stsDefault')
     423      (
     424        'Component = fraVisitRelated.chkSCYes'
     425        'Status = stsDefault')
     426      (
     427        'Component = fraVisitRelated.chkAOYes'
     428        'Status = stsDefault')
     429      (
     430        'Component = fraVisitRelated.chkIRYes'
     431        'Status = stsDefault')
     432      (
     433        'Component = fraVisitRelated.chkECYes'
     434        'Status = stsDefault')
     435      (
     436        'Component = fraVisitRelated.chkMSTYes'
     437        'Status = stsDefault')
     438      (
     439        'Component = fraVisitRelated.chkMSTNo'
     440        'Status = stsDefault')
     441      (
     442        'Component = fraVisitRelated.chkECNo'
     443        'Status = stsDefault')
     444      (
     445        'Component = fraVisitRelated.chkIRNo'
     446        'Status = stsDefault')
     447      (
     448        'Component = fraVisitRelated.chkAONo'
     449        'Status = stsDefault')
     450      (
     451        'Component = fraVisitRelated.chkSCNo'
     452        'Status = stsDefault')
     453      (
     454        'Component = fraVisitRelated.chkHNCYes'
     455        'Status = stsDefault')
     456      (
     457        'Component = fraVisitRelated.chkHNCNo'
     458        'Status = stsDefault')
     459      (
     460        'Component = fraVisitRelated.chkCVYes'
     461        'Status = stsDefault')
     462      (
     463        'Component = fraVisitRelated.chkCVNo'
     464        'Status = stsDefault')
     465      (
     466        'Component = fraVisitRelated.chkSHDYes'
     467        'Status = stsDefault')
     468      (
     469        'Component = fraVisitRelated.chkSHDNo'
     470        'Status = stsDefault')
     471      (
     472        'Component = fraVisitRelated.lblSCNo'
     473        'Status = stsDefault')
     474      (
     475        'Component = fraVisitRelated.lblSCYes'
     476        'Status = stsDefault')
     477      (
     478        'Component = pnlSC'
     479        'Status = stsDefault')
     480      (
     481        'Component = memSCDisplay'
     482        'Label = lblSCDisplay'
     483        'Status = stsOK')
     484      (
     485        'Component = pnlBottom'
     486        'Status = stsDefault')
     487      (
     488        'Component = btnAdd'
     489        'Status = stsDefault')
     490      (
     491        'Component = btnDelete'
     492        'Status = stsDefault')
     493      (
     494        'Component = btnPrimary'
     495        'Status = stsDefault')
     496      (
     497        'Component = pnlBottomLeft'
     498        'Status = stsDefault')
     499      (
     500        'Component = cboPtProvider'
     501        'Label = lblProvider'
     502        'Status = stsOK')
     503      (
     504        'Component = pnlBottomRight'
     505        'Status = stsDefault')
     506      (
     507        'Component = lbProviders'
     508        'Label = lblCurrentProv'
     509        'Status = stsOK')
     510      (
     511        'Component = pnlModifiers'
     512        'Status = stsDefault')
     513      (
     514        'Component = lbMods'
     515        'Label = lblMod'
     516        'Status = stsOK')
     517      (
     518        'Component = pnlSection'
     519        'Status = stsDefault')
     520      (
     521        'Component = lbxVisits'
     522        'Label = lblVType'
     523        'Status = stsOK'))
    254524  end
    255525end
Note: See TracChangeset for help on using the changeset viewer.