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/Orders/fODMedIV.dfm

    r456 r829  
    11inherited frmODMedIV: TfrmODMedIV
    2   Left = 587
    3   Top = 331
    4   Width = 610
    5   Height = 341
     2  Left = 246
     3  Top = 256
     4  Width = 668
     5  Height = 465
    66  Caption = 'Infusion Order'
    7   OnKeyDown = FormKeyDown
     7  Constraints.MinHeight = 350
     8  Constraints.MinWidth = 500
     9  ExplicitWidth = 668
     10  ExplicitHeight = 465
    811  PixelsPerInch = 96
    912  TextHeight = 13
    1013  object lblInfusionRate: TLabel [0]
    11     Left = 6
    12     Top = 196
    13     Width = 96
    14     Height = 13
    15     Caption = 'Infusion Rate (ml/hr)'
     14    Left = 486
     15    Top = 197
     16    Width = 100
     17    Height = 13
     18    Caption = 'Infusion Rate (ml/hr)*'
    1619  end
    1720  object lblPriority: TLabel [1]
    18     Left = 134
    19     Top = 196
    20     Width = 31
    21     Height = 13
    22     Caption = 'Priority'
     21    Left = 8
     22    Top = 238
     23    Width = 35
     24    Height = 13
     25    Caption = 'Priority*'
    2326  end
    2427  object lblComponent: TLabel [2]
    2528    Left = 214
    26     Top = 6
    27     Width = 81
    28     Height = 13
    29     Caption = 'Solution/Additive'
     29    Top = 7
     30    Width = 85
     31    Height = 13
     32    Caption = 'Solution/Additive*'
    3033  end
    3134  object lblAmount: TLabel [3]
    3235    Left = 328
    33     Top = 6
    34     Width = 80
    35     Height = 13
    36     Caption = 'Volume/Strength'
     36    Top = 7
     37    Width = 84
     38    Height = 13
     39    Caption = 'Volume/Strength*'
    3740    WordWrap = True
    3841  end
    3942  object lblComments: TLabel [4]
    4043    Left = 214
    41     Top = 106
     44    Top = 107
    4245    Width = 49
    4346    Height = 13
    … …  
    4548  end
    4649  object lblLimit: TLabel [5]
    47     Left = 230
    48     Top = 196
    49     Width = 117
    50     Height = 13
    51     Caption = 'Duration or Total Volume'
    52   end
    53   object txtRate: TCaptionEdit [6]
    54     Left = 6
    55     Top = 210
     50    Left = 185
     51    Top = 238
     52    Width = 165
     53    Height = 13
     54    Caption = 'Duration or Total Volume (Optional)'
     55  end
     56  object Label1: TLabel [6]
     57    Left = 8
     58    Top = 344
     59    Width = 133
     60    Height = 13
     61    Caption = ' * Indicates a Required Field'
     62  end
     63  object lblRoute: TLabel [7]
     64    Left = 8
     65    Top = 197
     66    Width = 33
     67    Height = 13
     68    Caption = 'Route*'
     69  end
     70  object lblSchedule: TLabel [8]
     71    Left = 304
     72    Top = 197
     73    Width = 52
     74    Height = 13
     75    Caption = 'Schedule *'
     76  end
     77  object lblType: TLabel [9]
     78    Left = 184
     79    Top = 197
     80    Width = 28
     81    Height = 13
     82    Caption = 'Type*'
     83    ParentShowHint = False
     84    ShowHint = True
     85  end
     86  object txtNSS: TLabel [10]
     87    Left = 361
     88    Top = 197
     89    Width = 69
     90    Height = 13
     91    Caption = '(Day-of-Week)'
     92    Color = clBtnFace
     93    Font.Charset = DEFAULT_CHARSET
     94    Font.Color = clBlue
     95    Font.Height = -11
     96    Font.Name = 'MS Sans Serif'
     97    Font.Style = []
     98    ParentColor = False
     99    ParentFont = False
     100    OnClick = txtNSSClick
     101  end
     102  object txtAllIVRoutes: TLabel [11]
     103    Left = 47
     104    Top = 197
     105    Width = 129
     106    Height = 13
     107    Caption = '(Expanded Med Route List)'
     108    Font.Charset = DEFAULT_CHARSET
     109    Font.Color = clBlue
     110    Font.Height = -11
     111    Font.Name = 'MS Sans Serif'
     112    Font.Style = []
     113    ParentFont = False
     114    Visible = False
     115    OnClick = txtAllIVRoutesClick
     116  end
     117  object lblTypeHelp: TLabel [12]
     118    Left = 219
     119    Top = 197
     120    Width = 68
     121    Height = 13
     122    Caption = '(IV Type Help)'
     123    Font.Charset = DEFAULT_CHARSET
     124    Font.Color = clBlue
     125    Font.Height = -11
     126    Font.Name = 'MS Sans Serif'
     127    Font.Style = []
     128    ParentFont = False
     129    ParentShowHint = False
     130    ShowHint = False
     131    OnClick = lblTypeHelpClick
     132  end
     133  object txtRate: TCaptionEdit [13]
     134    Left = 486
     135    Top = 211
    56136    Width = 91
    57137    Height = 21
    58138    AutoSelect = False
    59     TabOrder = 5
    60     OnChange = ControlChange
    61     OnExit = txtRateExit
     139    TabOrder = 8
     140    OnChange = txtRateChange
    62141    Caption = 'Infusion Rate'
    63142  end
    64   object cboPriority: TORComboBox [7]
    65     Left = 134
    66     Top = 210
     143  object cboPriority: TORComboBox [14]
     144    Left = 8
     145    Top = 252
    67146    Width = 72
    68147    Height = 21
    … …  
    82161    Sorted = False
    83162    SynonymChars = '<>'
    84     TabOrder = 6
    85     OnChange = ControlChange
     163    TabOrder = 10
     164    OnChange = cboPriorityChange
     165    OnExit = cboPriorityExit
    86166    CharsNeedMatch = 1
    87167  end
    88   object grdSelected: TCaptionStringGrid [8]
     168  object grdSelected: TCaptionStringGrid [15]
    89169    Left = 214
    90     Top = 20
    91     Width = 384
     170    Top = 21
     171    Width = 437
    92172    Height = 76
    93173    ColCount = 3
    … …  
    99179    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    100180    ScrollBars = ssVertical
    101     TabOrder = 2
     181    TabOrder = 1
    102182    OnDrawCell = grdSelectedDrawCell
    103183    OnKeyPress = grdSelectedKeyPress
    … …  
    105185    Caption = 'Selected Solution and Additives'
    106186  end
    107   object cmdRemove: TButton [9]
     187  object cmdRemove: TButton [16]
    108188    Left = 443
    109     Top = 99
     189    Top = 100
    110190    Width = 72
    111191    Height = 18
    112192    Caption = 'Remove'
    113     TabOrder = 3
     193    TabOrder = 2
    114194    OnClick = cmdRemoveClick
    115195  end
    116   object memComments: TCaptionMemo [10]
     196  object memComments: TCaptionMemo [17]
    117197    Left = 214
    118     Top = 120
    119     Width = 384
     198    Top = 121
     199    Width = 437
    120200    Height = 66
    121201    Lines.Strings = (
    122202      'memComments')
    123203    ScrollBars = ssVertical
    124     TabOrder = 4
     204    TabOrder = 13
    125205    OnChange = ControlChange
    126206    Caption = 'Comments'
    127207  end
    128   object txtSelected: TCaptionEdit [11]
     208  object txtSelected: TCaptionEdit [18]
    129209    Tag = -1
    130210    Left = 416
    131     Top = 44
     211    Top = 45
    132212    Width = 45
    133213    Height = 19
    … …  
    141221    Caption = 'Volume'
    142222  end
    143   object cboSelected: TCaptionComboBox [12]
     223  object cboSelected: TCaptionComboBox [19]
    144224    Tag = -1
    145225    Left = 460
    146     Top = 44
     226    Top = 45
    147227    Width = 53
    148228    Height = 21
    … …  
    151231    ItemHeight = 13
    152232    ParentCtl3D = False
    153     TabOrder = 1
     233    TabOrder = 4
    154234    Visible = False
    155235    OnChange = cboSelectedChange
    … …  
    158238  end
    159239  inherited memOrder: TCaptionMemo
    160     Top = 255
     240    Top = 359
    161241    Width = 475
    162     TabOrder = 10
    163   end
    164   inherited cmdAccept: TButton
    165     Left = 495
    166     Top = 255
    167     TabOrder = 8
    168   end
    169   inherited cmdQuit: TButton
    170     Left = 495
    171     Top = 282
    172     TabOrder = 9
    173   end
    174   inherited pnlMessage: TPanel
    175     Top = 237
     242    TabStop = True
     243    TabOrder = 16
     244    ExplicitTop = 359
     245    ExplicitWidth = 475
     246  end
     247  object pnlXDuration: TPanel [21]
     248    Left = 184
     249    Top = 252
     250    Width = 150
     251    Height = 21
     252    BevelOuter = bvNone
    176253    TabOrder = 11
    177   end
    178   object pnlXDuration: TPanel
    179     Left = 229
    180     Top = 210
    181     Width = 121
    182     Height = 21
    183     BevelOuter = bvNone
    184     TabOrder = 7
    185254    OnEnter = pnlXDurationEnter
    186     DesignSize = (
    187       121
    188       21)
    189     object btnXDuration: TBitBtn
    190       Left = 69
    191       Top = 1
    192       Width = 50
    193       Height = 20
    194       Anchors = [akLeft, akTop, akRight, akBottom]
    195       Caption = 'days'
    196       TabOrder = 1
    197       OnClick = btnXDurationClick
    198       Glyph.Data = {
    199         AE000000424DAE0000000000000076000000280000000E000000070000000100
    200         0400000000003800000000000000000000001000000000000000000000000000
    201         8000008000000080800080000000800080008080000080808000C0C0C0000000
    202         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    203         330033333333333333003330333333733300330003333F87330030000033FFFF
    204         F30033333333333333003333333333333300}
    205       Layout = blGlyphRight
    206       NumGlyphs = 2
    207       Spacing = 0
    208     end
    209255    object txtXDuration: TCaptionEdit
    210256      Left = 0
    … …  
    217263      Caption = 'Duration'
    218264    end
    219   end
    220   object pnlCombo: TPanel
    221     Left = 8
    222     Top = 1
     265    object cboDuration: TComboBox
     266      Left = 70
     267      Top = 0
     268      Width = 75
     269      Height = 21
     270      ItemHeight = 13
     271      TabOrder = 2
     272      OnChange = cboDurationChange
     273      OnEnter = cboDurationEnter
     274    end
     275  end
     276  object pnlCombo: TPanel [22]
     277    Left = 8
     278    Top = 2
    223279    Width = 200
    224280    Height = 185
    225281    BevelOuter = bvNone
    226     TabOrder = 17
     282    TabOrder = 25
    227283    object cboAdditive: TORComboBox
    228284      Left = 0
    … …  
    260316      Align = alTop
    261317      TabHeight = 15
    262       TabOrder = 1
     318      TabOrder = 2
    263319      Tabs.Strings = (
    264320        '   Solutions   '
    … …  
    290346      SynonymChars = '<>'
    291347      TabPositions = '20'
    292       TabOrder = 2
     348      TabOrder = 1
    293349      OnExit = cboSolutionExit
    294350      OnMouseClick = cboSolutionMouseClick
    … …  
    297353    end
    298354  end
    299   object popDuration: TPopupMenu
    300     AutoHotkeys = maManual
    301     Left = 387
    302     Top = 91
    303     object popL: TMenuItem
    304       Tag = 1
    305       Caption = 'L'
    306       OnClick = popDurationClick
    307     end
    308     object popML: TMenuItem
    309       Tag = 2
    310       Caption = 'ml'
    311       OnClick = popDurationClick
    312     end
    313     object popDays: TMenuItem
    314       Tag = 3
    315       Caption = 'days'
    316       OnClick = popDurationClick
    317     end
    318     object popHours: TMenuItem
    319       Tag = 4
    320       Caption = 'hours'
    321       OnClick = popDurationClick
    322     end
     355  object cboRoute: TORComboBox [23]
     356    Left = 8
     357    Top = 211
     358    Width = 168
     359    Height = 21
     360    Style = orcsDropDown
     361    AutoSelect = True
     362    Color = clWindow
     363    DropDownCount = 8
     364    ItemHeight = 13
     365    ItemTipColor = clWindow
     366    ItemTipEnable = True
     367    ListItemsOnly = False
     368    LongList = False
     369    LookupPiece = 0
     370    MaxLength = 0
     371    Pieces = '2'
     372    Sorted = False
     373    SynonymChars = '<>'
     374    TabOrder = 3
     375    OnChange = cboRouteChange
     376    OnClick = cboRouteClick
     377    OnExit = cboRouteExit
     378    CharsNeedMatch = 1
     379    UniqueAutoComplete = True
     380  end
     381  object cboSchedule: TORComboBox [24]
     382    Left = 304
     383    Top = 211
     384    Width = 129
     385    Height = 21
     386    Style = orcsDropDown
     387    AutoSelect = True
     388    Color = clWindow
     389    DropDownCount = 8
     390    ItemHeight = 13
     391    ItemTipColor = clWindow
     392    ItemTipEnable = True
     393    ListItemsOnly = False
     394    LongList = False
     395    LookupPiece = 1
     396    MaxLength = 0
     397    Pieces = '1'
     398    Sorted = True
     399    SynonymChars = '<>'
     400    TabOrder = 6
     401    OnChange = cboScheduleChange
     402    OnClick = cboScheduleClick
     403    OnExit = cboScheduleExit
     404    CharsNeedMatch = 1
     405    UniqueAutoComplete = True
     406  end
     407  object cboType: TComboBox [25]
     408    Left = 184
     409    Top = 211
     410    Width = 114
     411    Height = 21
     412    ItemHeight = 13
     413    ParentShowHint = False
     414    ShowHint = True
     415    TabOrder = 5
     416    OnChange = cboTypeChange
     417  end
     418  object chkPRN: TCheckBox [26]
     419    Left = 436
     420    Top = 213
     421    Width = 45
     422    Height = 21
     423    Caption = 'PRN'
     424    TabOrder = 7
     425    OnClick = chkPRNClick
     426  end
     427  object chkDoseNow: TCheckBox [27]
     428    Left = 8
     429    Top = 279
     430    Width = 147
     431    Height = 17
     432    Anchors = [akLeft]
     433    Caption = 'Give Additional Dose Now'
     434    Constraints.MinWidth = 147
     435    TabOrder = 12
     436    OnClick = chkDoseNowClick
     437  end
     438  object cboInfusionTime: TComboBox [28]
     439    Left = 576
     440    Top = 211
     441    Width = 74
     442    Height = 21
     443    ItemHeight = 13
     444    TabOrder = 9
     445    OnChange = cboInfusionTimeChange
     446    OnEnter = cboInfusionTimeEnter
     447  end
     448  object lblAdminTime: TVA508StaticText [29]
     449    Name = 'lblAdminTime'
     450    Left = 8
     451    Top = 308
     452    Width = 4
     453    Height = 4
     454    Alignment = taLeftJustify
     455    ParentShowHint = False
     456    ShowHint = True
     457    TabOrder = 14
     458    TabStop = True
     459    Visible = False
     460    ShowAccelChar = True
     461  end
     462  object lblFirstDose: TVA508StaticText [30]
     463    Name = 'lblFirstDose'
     464    Left = 8
     465    Top = 323
     466    Width = 4
     467    Height = 4
     468    Alignment = taLeftJustify
     469    TabOrder = 15
     470    TabStop = True
     471    Visible = False
     472    ShowAccelChar = True
     473  end
     474  inherited cmdAccept: TButton
     475    Left = 495
     476    Top = 359
     477    TabOrder = 17
     478    ExplicitLeft = 495
     479    ExplicitTop = 359
     480  end
     481  inherited cmdQuit: TButton
     482    Left = 495
     483    Top = 386
     484    TabOrder = 18
     485    ExplicitLeft = 495
     486    ExplicitTop = 386
     487  end
     488  inherited pnlMessage: TPanel
     489    Left = 56
     490    Top = 349
     491    TabOrder = 19
     492    ExplicitLeft = 56
     493    ExplicitTop = 349
     494  end
     495  inherited amgrMain: TVA508AccessibilityManager
     496    Data = (
     497      (
     498        'Component = txtRate'
     499        'Status = stsDefault')
     500      (
     501        'Component = cboPriority'
     502        'Status = stsDefault')
     503      (
     504        'Component = grdSelected'
     505        'Status = stsDefault')
     506      (
     507        'Component = cmdRemove'
     508        'Status = stsDefault')
     509      (
     510        'Component = memComments'
     511        'Status = stsDefault')
     512      (
     513        'Component = txtSelected'
     514        'Status = stsDefault')
     515      (
     516        'Component = cboSelected'
     517        'Status = stsDefault')
     518      (
     519        'Component = pnlXDuration'
     520        'Status = stsDefault')
     521      (
     522        'Component = txtXDuration'
     523        'Status = stsDefault')
     524      (
     525        'Component = pnlCombo'
     526        'Status = stsDefault')
     527      (
     528        'Component = cboAdditive'
     529        'Status = stsDefault')
     530      (
     531        'Component = tabFluid'
     532        'Status = stsDefault')
     533      (
     534        'Component = cboSolution'
     535        'Status = stsDefault')
     536      (
     537        'Component = cboRoute'
     538        'Status = stsDefault')
     539      (
     540        'Component = cboSchedule'
     541        'Status = stsDefault')
     542      (
     543        'Component = cboType'
     544        'Status = stsDefault')
     545      (
     546        'Component = chkPRN'
     547        'Status = stsDefault')
     548      (
     549        'Component = chkDoseNow'
     550        'Status = stsDefault')
     551      (
     552        'Component = memOrder'
     553        'Status = stsDefault')
     554      (
     555        'Component = cmdAccept'
     556        'Status = stsDefault')
     557      (
     558        'Component = cmdQuit'
     559        'Status = stsDefault')
     560      (
     561        'Component = pnlMessage'
     562        'Status = stsDefault')
     563      (
     564        'Component = memMessage'
     565        'Status = stsDefault')
     566      (
     567        'Component = frmODMedIV'
     568        'Status = stsDefault')
     569      (
     570        'Component = cboInfusionTime'
     571        'Status = stsDefault')
     572      (
     573        'Component = cboDuration'
     574        'Status = stsDefault')
     575      (
     576        'Component = lblAdminTime'
     577        'Status = stsDefault')
     578      (
     579        'Component = lblFirstDose'
     580        'Status = stsDefault'))
    323581  end
    324582end
Note: See TracChangeset for help on using the changeset viewer.