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

    r829 r1679  
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    11   ExplicitLeft = 84
    12   ExplicitTop = 77
    1311  ExplicitWidth = 464
    1412  ExplicitHeight = 385
    … …  
    1715  object pnlMiddle: TPanel [0]
    1816    Left = 0
    19     Top = 78
     17    Top = 60
    2018    Width = 456
    2119    Height = 56
    2220    Align = alTop
    2321    Constraints.MinHeight = 45
    24     TabOrder = 0
     22    TabOrder = 1
    2523    object grpChoice: TGroupBox
    2624      Left = 1
    … …  
    8179    Top = 0
    8280    Width = 456
    83     Height = 78
     81    Height = 60
    8482    Align = alTop
    8583    Anchors = [akLeft, akTop, akRight, akBottom]
    8684    AutoSize = True
    8785    BorderStyle = bsSingle
    88     TabOrder = 1
    89     object lblPtInfo: TLabel
     86    TabOrder = 0
     87    object lblPtInfo: TVA508StaticText
     88      Name = 'lblPtInfo'
    9089      Left = 1
    9190      Top = 1
    92       Width = 3
     91      Width = 450
    9392      Height = 34
    9493      Align = alTop
    95       Color = clBtnFace
     94      Alignment = taLeftJustify
    9695      Constraints.MinHeight = 34
    97       ParentColor = False
    98       Layout = tlCenter
     96      TabOrder = 0
     97      ShowAccelChar = True
    9998    end
    10099    object pnldif: TPanel
    … …  
    102101      Top = 35
    103102      Width = 450
    104       Height = 38
     103      Height = 20
    105104      Align = alTop
    106105      Anchors = [akLeft, akTop, akRight, akBottom]
    107       TabOrder = 0
     106      TabOrder = 1
    108107      object Image1: TImage
    109108        Left = 1
    110109        Top = 1
    111110        Width = 24
    112         Height = 22
     111        Height = 18
    113112        Align = alLeft
    114113        AutoSize = True
    … …  
    131130        ExplicitHeight = 36
    132131      end
    133       object Label1: TLabel
     132      object lblUseAdmit: TVA508StaticText
     133        Name = 'lblUseAdmit'
    134134        Left = 34
    135135        Top = 4
    136         Width = 327
    137         Height = 13
     136        Width = 329
     137        Height = 15
     138        Alignment = taLeftJustify
    138139        Caption =
    139140          'Use Admit: if patient is newly admitted to the hospital or nursi' +
    140141          'ng home.'
    141       end
    142       object Label2: TLabel
     142        TabOrder = 0
     143        ShowAccelChar = True
     144      end
     145      object lblUseTransfer: TVA508StaticText
     146        Name = 'lblUseTransfer'
    143147        Left = 34
    144148        Top = 21
    145         Width = 361
    146         Height = 13
     149        Width = 363
     150        Height = 15
     151        Alignment = taLeftJustify
    147152        Caption =
    148153          'Use Transfer: if inpatient will move from one ward or treating t' +
    149154          'eam to another.'
    150       end
    151     end
    152   end
    153   object Panel1: TPanel [2]
     155        TabOrder = 1
     156        Visible = False
     157        ShowAccelChar = True
     158      end
     159    end
     160  end
     161  object pnlBottom: TPanel [2]
    154162    Left = 0
    155     Top = 134
     163    Top = 116
    156164    Width = 456
    157     Height = 217
     165    Height = 235
    158166    Align = alClient
    159167    TabOrder = 2
     168    ExplicitTop = 112
     169    ExplicitHeight = 239
    160170    inline fraEvntDelayList: TfraEvntDelayList
    161171      Left = 1
    162172      Top = 1
    163173      Width = 454
    164       Height = 215
     174      Height = 233
    165175      Align = alClient
    166176      AutoScroll = True
    167177      TabOrder = 0
    168       TabStop = True
    169178      Visible = False
    170179      ExplicitLeft = 1
    171180      ExplicitTop = 1
    172181      ExplicitWidth = 454
    173       ExplicitHeight = 215
     182      ExplicitHeight = 237
    174183      inherited pnlDate: TPanel
    175184        Left = 349
    176         Height = 215
     185        Height = 233
    177186        ExplicitLeft = 349
    178         ExplicitHeight = 215
     187        ExplicitHeight = 237
    179188        inherited lblEffective: TLabel
    180189          Left = 453
    … …  
    190199      inherited pnlList: TPanel
    191200        Width = 349
    192         Height = 215
     201        Height = 233
    193202        ExplicitWidth = 349
    194         ExplicitHeight = 215
     203        ExplicitHeight = 237
    195204        inherited lblEvntDelayList: TLabel
    196205          Width = 347
    … …  
    199208        inherited mlstEvents: TORListBox
    200209          Width = 347
    201           Height = 179
     210          Height = 197
    202211          OnDblClick = cmdOKClick
     212          OnChange = fraEvntDelayListmlstEventsChange
    203213          ExplicitWidth = 347
    204           ExplicitHeight = 179
     214          ExplicitHeight = 201
    205215        end
    206216        inherited edtSearch: TCaptionEdit
    … …  
    238248        'Status = stsDefault')
    239249      (
    240         'Component = Panel1'
     250        'Component = pnlBottom'
    241251        'Status = stsDefault')
    242252      (
    … …  
    260270      (
    261271        'Component = frmOrdersTS'
     272        'Status = stsDefault')
     273      (
     274        'Component = lblUseTransfer'
     275        'Status = stsDefault')
     276      (
     277        'Component = lblPtInfo'
     278        'Status = stsDefault')
     279      (
     280        'Component = lblUseAdmit'
    262281        'Status = stsDefault'))
    263282  end
Note: See TracChangeset for help on using the changeset viewer.