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

    r456 r829  
    1 object frmCopyOrders: TfrmCopyOrders
     1inherited frmCopyOrders: TfrmCopyOrders
    22  Left = 319
    33  Top = 139
    4   AutoScroll = False
    54  Caption = 'Copy Orders'
    65  ClientHeight = 419
    76  ClientWidth = 441
    8   Color = clBtnFace
    97  Constraints.MinHeight = 100
    108  Constraints.MinWidth = 330
    11   Font.Charset = DEFAULT_CHARSET
    12   Font.Color = clWindowText
    13   Font.Height = -11
    14   Font.Name = 'MS Sans Serif'
    15   Font.Style = []
    169  OldCreateOrder = True
    1710  OnCreate = FormCreate
    18   OnKeyDown = FormKeyDown
     11  ExplicitWidth = 449
     12  ExplicitHeight = 446
    1913  PixelsPerInch = 96
    2014  TextHeight = 13
    21   object pnlInfo: TPanel
     15  object pnlRadio: TPanel [0]
    2216    Left = 0
    23     Top = 41
     17    Top = 80
    2418    Width = 441
    25     Height = 50
     19    Height = 65
    2620    Align = alTop
    2721    TabOrder = 1
    28     object Image1: TImage
    29       Left = 1
    30       Top = 1
    31       Width = 24
    32       Height = 22
    33       AutoSize = True
    34       Enabled = False
    35       Picture.Data = {
    36         07544269746D61707E010000424D7E0100000000000076000000280000001800
    37         000016000000010004000000000008010000C40E0000C40E0000100000000000
    38         0000000000000000800000800000008080008000000080008000808000008080
    39         8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
    40         FF008000000000000000000000080777777777777777777777700F7777777777
    41         7777777777700F88888888888888888887700F88888888888888888887700F88
    42         888808888888888887700F88888800888888888887700F8888880B0888888888
    43         87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
    44         CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
    45         0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
    46         87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
    47         8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
    48         00000000000000000008}
    49       Transparent = True
    50     end
    51     object Label2: TStaticText
    52       Left = 31
    53       Top = 30
    54       Width = 365
    55       Height = 17
    56       Caption =
    57         'Use Transfer: if inpatient will move from one ward or treating t' +
    58         'eam to another.'
    59       TabOrder = 1
    60       TabStop = True
    61     end
    62     object Label1: TStaticText
    63       Left = 31
    64       Top = 4
    65       Width = 331
    66       Height = 17
    67       Caption =
    68         'Use Admit: if patient is newly admitted to the hospital or nursi' +
    69         'ng home.'
    70       TabOrder = 0
    71       TabStop = True
    72     end
    73   end
    74   inline fraEvntDelayList: TfraEvntDelayList
    75     Left = 0
    76     Top = 154
    77     Width = 441
    78     Height = 265
    79     Align = alClient
    80     TabOrder = 3
    81     Visible = False
    82     inherited pnlDate: TPanel
    83       Left = 336
    84       Height = 265
    85       inherited lblEffective: TLabel
    86         Left = 451
    87       end
    88       inherited orDateBox: TORDateBox
    89         Left = 451
    90       end
    91     end
    92     inherited pnlList: TPanel
    93       Width = 336
    94       Height = 265
    95       inherited lblEvntDelayList: TLabel
    96         Width = 334
    97       end
    98       inherited mlstEvents: TORListBox
    99         Width = 334
    100         Height = 229
    101         OnDblClick = cmdOKClick
    102         OnChange = fraEvntDelayListmlstEventsChange
    103       end
    104       inherited edtSearch: TCaptionEdit
    105         Width = 334
    106       end
    107     end
    108   end
    109   object pnlRadio: TPanel
    110     Left = 0
    111     Top = 91
    112     Width = 441
    113     Height = 63
    114     Align = alTop
    115     TabOrder = 2
    11622    object GroupBox1: TGroupBox
    11723      Left = 1
    11824      Top = 1
    11925      Width = 439
    120       Height = 61
     26      Height = 63
    12127      Align = alClient
    12228      Constraints.MinHeight = 50
    … …  
    14349        OnClick = radEvtDelayClick
    14450      end
    145     end
    146   end
    147   object pnlTop: TPanel
     51      object cmdOK: TButton
     52        Left = 345
     53        Top = 14
     54        Width = 72
     55        Height = 19
     56        Caption = 'OK'
     57        Constraints.MaxWidth = 73
     58        Default = True
     59        TabOrder = 2
     60        OnClick = cmdOKClick
     61      end
     62      object cmdCancel: TButton
     63        Left = 345
     64        Top = 38
     65        Width = 72
     66        Height = 18
     67        Cancel = True
     68        Caption = 'Cancel'
     69        Constraints.MaxWidth = 73
     70        TabOrder = 3
     71        OnClick = cmdCancelClick
     72      end
     73    end
     74  end
     75  object pnlTop: TPanel [1]
    14876    Left = 0
    14977    Top = 0
    15078    Width = 441
    151     Height = 41
     79    Height = 80
    15280    Align = alTop
    15381    BevelOuter = bvNone
    15482    TabOrder = 0
    155     object lblPtInfo: TStaticText
     83    object lblPtInfo: TVA508StaticText
     84      Name = 'lblPtInfo'
    15685      Left = 0
    157       Top = 0
     86      Top = 5
     87      Width = 400
     88      Height = 35
     89      Alignment = taLeftJustify
     90      AutoSize = True
     91      Caption = ' '
     92      Constraints.MinHeight = 15
     93      TabOrder = 0
     94      ShowAccelChar = True
     95    end
     96    object pnlInfo: TPanel
     97      Left = 0
     98      Top = 46
    15899      Width = 441
    159       Height = 41
    160       Align = alTop
    161       Anchors = [akLeft, akTop, akRight, akBottom]
    162       AutoSize = False
    163       Constraints.MinHeight = 40
     100      Height = 34
     101      Align = alBottom
     102      TabOrder = 1
     103      object Image1: TImage
     104        Left = 1
     105        Top = 1
     106        Width = 24
     107        Height = 22
     108        AutoSize = True
     109        Enabled = False
     110        Picture.Data = {
     111          07544269746D61707E010000424D7E0100000000000076000000280000001800
     112          000016000000010004000000000008010000C40E0000C40E0000100000000000
     113          0000000000000000800000800000008080008000000080008000808000008080
     114          8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
     115          FF008000000000000000000000080777777777777777777777700F7777777777
     116          7777777777700F88888888888888888887700F88888888888888888887700F88
     117          888808888888888887700F88888800888888888887700F8888880B0888888888
     118          87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
     119          CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
     120          0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
     121          87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
     122          8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
     123          00000000000000000008}
     124        Transparent = True
     125      end
     126      object lblInstruction2: TVA508StaticText
     127        Name = 'lblInstruction2'
     128        Left = 31
     129        Top = 17
     130        Width = 363
     131        Height = 15
     132        Alignment = taLeftJustify
     133        Caption =
     134          'Use Transfer: if inpatient will move from one ward or treating t' +
     135          'eam to another.'
     136        TabOrder = 1
     137        ShowAccelChar = True
     138      end
     139      object lblInstruction: TVA508StaticText
     140        Name = 'lblInstruction'
     141        Left = 31
     142        Top = 1
     143        Width = 329
     144        Height = 15
     145        Alignment = taLeftJustify
     146        Caption =
     147          'Use Admit: if patient is newly admitted to the hospital or nursi' +
     148          'ng home.'
     149        TabOrder = 0
     150        ShowAccelChar = True
     151      end
     152    end
     153  end
     154  object pnlBottom: TPanel [2]
     155    Left = 0
     156    Top = 145
     157    Width = 441
     158    Height = 274
     159    Align = alClient
     160    TabOrder = 2
     161    ExplicitLeft = 8
     162    ExplicitTop = 165
     163    ExplicitWidth = 425
     164    ExplicitHeight = 236
     165    inline fraEvntDelayList: TfraEvntDelayList
     166      Left = 1
     167      Top = 1
     168      Width = 439
     169      Height = 272
     170      Align = alBottom
     171      AutoScroll = True
    164172      TabOrder = 0
    165173      TabStop = True
    166     end
    167   end
    168   object pnlBtns: TPanel
    169     Left = 334
    170     Top = 91
    171     Width = 107
    172     Height = 63
    173     Align = alCustom
    174     Anchors = [akTop, akRight]
    175     TabOrder = 4
    176     object gbBtns: TGroupBox
    177       Left = 1
    178       Top = 1
    179       Width = 105
    180       Height = 61
    181       Align = alClient
    182       TabOrder = 0
    183       DesignSize = (
    184         105
    185         61)
    186       object cmdOK: TButton
    187         Left = 17
    188         Top = 13
    189         Width = 72
    190         Height = 19
    191         Anchors = [akTop, akRight]
    192         Caption = 'OK'
    193         Constraints.MaxWidth = 73
    194         Default = True
    195         TabOrder = 0
    196         OnClick = cmdOKClick
    197       end
    198       object cmdCancel: TButton
    199         Left = 17
    200         Top = 34
    201         Width = 72
    202         Height = 18
    203         Anchors = [akRight, akBottom]
    204         Cancel = True
    205         Caption = 'Cancel'
    206         Constraints.MaxWidth = 73
    207         TabOrder = 1
    208         OnClick = cmdCancelClick
    209       end
    210     end
     174      Visible = False
     175      ExplicitTop = 145
     176      ExplicitWidth = 441
     177      ExplicitHeight = 274
     178      inherited pnlDate: TPanel
     179        Left = 334
     180        Height = 272
     181        ExplicitLeft = 336
     182        ExplicitHeight = 274
     183        inherited lblEffective: TLabel
     184          Left = 451
     185          Width = 71
     186          ExplicitLeft = 451
     187          ExplicitWidth = 71
     188        end
     189        inherited orDateBox: TORDateBox
     190          Left = 451
     191          ExplicitLeft = 451
     192        end
     193      end
     194      inherited pnlList: TPanel
     195        Width = 334
     196        Height = 272
     197        ExplicitWidth = 336
     198        ExplicitHeight = 274
     199        inherited lblEvntDelayList: TLabel
     200          Width = 332
     201          ExplicitWidth = 80
     202        end
     203        inherited mlstEvents: TORListBox
     204          Width = 332
     205          Height = 236
     206          OnDblClick = cmdOKClick
     207          OnChange = fraEvntDelayListmlstEventsChange
     208          ExplicitWidth = 334
     209          ExplicitHeight = 238
     210        end
     211        inherited edtSearch: TCaptionEdit
     212          Width = 332
     213          ExplicitWidth = 334
     214        end
     215      end
     216    end
     217  end
     218  inherited amgrMain: TVA508AccessibilityManager
     219    Data = (
     220      (
     221        'Component = pnlInfo'
     222        'Status = stsDefault')
     223      (
     224        'Component = lblInstruction2'
     225        'Status = stsDefault')
     226      (
     227        'Component = lblInstruction'
     228        'Status = stsDefault')
     229      (
     230        'Component = fraEvntDelayList'
     231        'Status = stsDefault')
     232      (
     233        'Component = fraEvntDelayList.pnlDate'
     234        'Status = stsDefault')
     235      (
     236        'Component = fraEvntDelayList.orDateBox'
     237        'Status = stsDefault')
     238      (
     239        'Component = fraEvntDelayList.pnlList'
     240        'Status = stsDefault')
     241      (
     242        'Component = fraEvntDelayList.mlstEvents'
     243        'Status = stsDefault')
     244      (
     245        'Component = fraEvntDelayList.edtSearch'
     246        'Status = stsDefault')
     247      (
     248        'Component = pnlRadio'
     249        'Status = stsDefault')
     250      (
     251        'Component = GroupBox1'
     252        'Status = stsDefault')
     253      (
     254        'Component = radRelease'
     255        'Status = stsDefault')
     256      (
     257        'Component = radEvtDelay'
     258        'Status = stsDefault')
     259      (
     260        'Component = pnlTop'
     261        'Status = stsDefault')
     262      (
     263        'Component = lblPtInfo'
     264        'Status = stsDefault')
     265      (
     266        'Component = frmCopyOrders'
     267        'Status = stsDefault')
     268      (
     269        'Component = cmdOK'
     270        'Status = stsDefault')
     271      (
     272        'Component = cmdCancel'
     273        'Status = stsDefault')
     274      (
     275        'Component = pnlBottom'
     276        'Status = stsDefault'))
    211277  end
    212278end
Note: See TracChangeset for help on using the changeset viewer.