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/fOCSession.dfm

    r829 r1679  
    22  Left = 366
    33  Top = 222
     4  Width = 714
     5  Height = 530
     6  HorzScrollBar.Visible = True
     7  VertScrollBar.Visible = True
     8  AutoScroll = True
    49  BorderIcons = []
    510  Caption = 'Order Checks'
    6   ClientWidth = 494
     11  Constraints.MinHeight = 500
     12  Constraints.MinWidth = 500
    713  Position = poScreenCenter
    814  ShowHint = True
    915  OnClose = FormClose
     16  OnCreate = FormCreate
     17  OnMouseWheelDown = FormMouseWheelDown
    1018  OnShow = FormShow
    11   ExplicitWidth = 502
    12   ExplicitHeight = 240
     19  ExplicitWidth = 714
     20  ExplicitHeight = 530
    1321  PixelsPerInch = 96
    1422  TextHeight = 13
    15   object lstChecks: TCaptionListBox [0]
     23  object pnlBottom: TPanel [0]
    1624    Left = 0
    17     Top = 0
    18     Width = 494
    19     Height = 162
    20     Style = lbOwnerDrawVariable
    21     Align = alClient
    22     ItemHeight = 13
    23     MultiSelect = True
    24     ParentShowHint = False
    25     ShowHint = True
    26     TabOrder = 1
    27     OnDrawItem = lstChecksDrawItem
    28     OnMeasureItem = lstChecksMeasureItem
    29     HintOnItem = True
    30   end
    31   object pnlBottom: TPanel [1]
    32     Left = 0
    33     Top = 162
    34     Width = 494
    35     Height = 111
    36     Align = alBottom
     25    Top = 352
     26    Width = 706
     27    Height = 146
     28    Anchors = [akLeft, akTop, akBottom]
    3729    BevelOuter = bvNone
    3830    TabOrder = 0
    3931    DesignSize = (
    40       494
    41       111)
     32      706
     33      146)
    4234    object lblJustify: TLabel
    4335      Left = 9
    44       Top = 34
    45       Width = 248
     36      Top = 58
     37      Width = 234
    4638      Height = 13
    47       Anchors = [akLeft, akTop, akRight]
    48       Caption = 'Enter justification for overriding critical order checks -'
    49     end
    50     object txtJustify: TCaptionEdit
    51       Left = 8
    52       Top = 50
    53       Width = 478
    54       Height = 21
    55       Anchors = [akLeft, akTop, akRight]
    56       MaxLength = 80
    57       TabOrder = 0
    58       OnKeyDown = txtJustifyKeyDown
    59       Caption = 'Enter justification for overriding critical order checks -'
    60     end
    61     object cmdCancelOrder: TButton
    62       Left = 356
    63       Top = 5
    64       Width = 131
    65       Height = 21
    66       Anchors = [akLeft, akTop, akRight]
    67       Caption = 'Cancel Selected Order(s)'
    68       TabOrder = 3
    69       OnClick = cmdCancelOrderClick
    70     end
    71     object cmdContinue: TButton
    72       Left = 157
    73       Top = 82
    74       Width = 70
    75       Height = 21
    76       Caption = 'Continue'
    77       TabOrder = 4
    78       OnClick = cmdContinueClick
    79     end
    80     object btnReturn: TButton
    81       Left = 241
    82       Top = 82
    83       Width = 97
    84       Height = 21
    85       Cancel = True
    86       Caption = 'Return to Orders'
    87       TabOrder = 5
    88       OnClick = btnReturnClick
     39      Anchors = [akLeft]
     40      Caption = 'Enter reason for overriding order checks:'
     41      Font.Charset = DEFAULT_CHARSET
     42      Font.Color = clWindowText
     43      Font.Height = -11
     44      Font.Name = 'MS Sans Serif'
     45      Font.Style = [fsBold]
     46      ParentFont = False
    8947    end
    9048    object memNote: TMemo
    91       Left = 8
    92       Top = 4
    93       Width = 329
    94       Height = 29
     49      Left = 392
     50      Top = 12
     51      Width = 306
     52      Height = 40
    9553      BorderStyle = bsNone
    9654      Color = clBtnFace
    9755      Lines.Strings = (
    98         'NOTE: The override justification is for tracking purposes and '
     56        'NOTE: The override reason is for tracking purposes and '
    9957        'does not change or place new order(s).')
    10058      ReadOnly = True
     59      TabOrder = 0
     60      OnEnter = memNoteEnter
     61    end
     62    object txtJustify: TCaptionEdit
     63      Left = 8
     64      Top = 80
     65      Width = 682
     66      Height = 21
     67      Anchors = [akLeft]
     68      AutoSize = False
     69      MaxLength = 80
     70      TabOrder = 3
     71      OnKeyDown = txtJustifyKeyDown
     72      Caption = 'Enter justification for overriding critical order checks -'
     73    end
     74    object cmdCancelOrder: TButton
     75      Left = 9
     76      Top = 17
     77      Width = 168
     78      Height = 21
     79      Caption = 'Cancel Checked Order(s)'
     80      Font.Charset = DEFAULT_CHARSET
     81      Font.Color = clWindowText
     82      Font.Height = -11
     83      Font.Name = 'MS Sans Serif'
     84      Font.Style = [fsBold]
     85      ParentFont = False
    10186      TabOrder = 1
    102       OnEnter = memNoteEnter
     87      OnClick = cmdCancelOrderClick
     88    end
     89    object cmdContinue: TButton
     90      Left = 219
     91      Top = 112
     92      Width = 127
     93      Height = 23
     94      Anchors = [akLeft, akTop, akRight, akBottom]
     95      Caption = 'Accept Order(s)'
     96      Font.Charset = DEFAULT_CHARSET
     97      Font.Color = clWindowText
     98      Font.Height = -11
     99      Font.Name = 'MS Sans Serif'
     100      Font.Style = [fsBold]
     101      ParentFont = False
     102      TabOrder = 4
     103      OnClick = cmdContinueClick
     104    end
     105    object btnReturn: TButton
     106      Left = 352
     107      Top = 112
     108      Width = 122
     109      Height = 23
     110      Anchors = [akLeft, akTop, akRight, akBottom]
     111      Cancel = True
     112      Caption = 'Return to Orders'
     113      Font.Charset = DEFAULT_CHARSET
     114      Font.Color = clWindowText
     115      Font.Height = -11
     116      Font.Name = 'MS Sans Serif'
     117      Font.Style = [fsBold]
     118      ParentFont = False
     119      TabOrder = 5
     120      OnClick = btnReturnClick
     121    end
     122    object cmdMonograph: TButton
     123      Left = 536
     124      Top = 107
     125      Width = 162
     126      Height = 21
     127      Anchors = [akRight, akBottom]
     128      Caption = 'Drug Interaction Monograph'
     129      TabOrder = 6
     130      OnClick = cmdMonographClick
     131    end
     132  end
     133  object pnlTop: TORAutoPanel [1]
     134    Left = 0
     135    Top = 0
     136    Width = 706
     137    Height = 346
     138    Align = alTop
     139    BevelEdges = []
     140    BevelOuter = bvNone
     141    TabOrder = 1
     142    DesignSize = (
     143      706
     144      346)
     145    object lblHover: TLabel
     146      Left = 16
     147      Top = 32
     148      Width = 445
     149      Height = 13
     150      Caption =
     151        'If the order check description is cut short, hover over the text' +
     152        ' to view the complete description.'
     153    end
     154    object grdchecks: TCaptionStringGrid
     155      Left = 16
     156      Top = 64
     157      Width = 682
     158      Height = 279
     159      Margins.Top = 0
     160      Anchors = [akLeft, akBottom]
     161      ColCount = 3
     162      DefaultDrawing = False
     163      FixedColor = clBtnShadow
     164      FixedCols = 0
     165      RowCount = 2
     166      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowMoving, goTabs]
     167      ScrollBars = ssVertical
     168      TabOrder = 1
     169      OnDrawCell = grdchecksDrawCell
     170      OnEnter = grdchecksEnter
     171      OnKeyDown = grdchecksKeyDown
     172      OnMouseDown = grdchecksMouseDown
     173      OnMouseMove = grdchecksMouseMove
     174      OnMouseWheelDown = grdchecksMouseWheelDown
     175      OnMouseWheelUp = grdchecksMouseWheelUp
     176      OnSelectCell = grdchecksSelectCell
     177      JustToTab = True
     178    end
     179    object lblInstr: TVA508StaticText
     180      Name = 'lblInstr'
     181      Left = 0
     182      Top = 12
     183      Width = 641
     184      Height = 15
     185      Margins.Bottom = 0
     186      Alignment = taLeftJustify
     187      AutoSize = True
     188      Caption =
     189        'To cancel an order select the order by checking the checkbox and' +
     190        ' press the "Cancel Checked Order(s)" button.'
     191      Font.Charset = DEFAULT_CHARSET
     192      Font.Color = clWindowText
     193      Font.Height = -11
     194      Font.Name = 'MS Sans Serif'
     195      Font.Style = [fsBold]
     196      ParentFont = False
     197      TabOrder = 0
     198      TabStop = True
     199      ShowAccelChar = True
    103200    end
    104201  end
    … …  
    106203    Data = (
    107204      (
    108         'Component = lstChecks'
    109         'Status = stsDefault')
    110       (
    111205        'Component = pnlBottom'
    112206        'Status = stsDefault')
    … …  
    128222      (
    129223        'Component = frmOCSession'
     224        'Status = stsDefault')
     225      (
     226        'Component = cmdMonograph'
     227        'Status = stsDefault')
     228      (
     229        'Component = grdchecks'
     230        'Status = stsDefault')
     231      (
     232        'Component = pnlTop'
    130233        'Status = stsDefault'))
    131234  end
Note: See TracChangeset for help on using the changeset viewer.