Ignore:
Timestamp:
Jul 7, 2010, 4:51:54 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrading to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/fLabTestGroups.dfm

    r456 r830  
    1 object frmLabTestGroups: TfrmLabTestGroups
     1inherited frmLabTestGroups: TfrmLabTestGroups
    22  Left = 337
    33  Top = 202
    4   Width = 465
    5   Height = 461
    64  Caption = 'Select Lab Tests'
    7   Color = clBtnFace
    8   Font.Charset = DEFAULT_CHARSET
    9   Font.Color = clWindowText
    10   Font.Height = -11
    11   Font.Name = 'MS Sans Serif'
    12   Font.Style = []
     5  ClientHeight = 434
     6  ClientWidth = 457
    137  OldCreateOrder = True
    148  Position = poScreenCenter
    159  OnCreate = FormCreate
     10  ExplicitWidth = 465
     11  ExplicitHeight = 461
    1612  PixelsPerInch = 96
    1713  TextHeight = 13
    18   object pnlLabTestGroups: TORAutoPanel
     14  object pnlLabTestGroups: TORAutoPanel [0]
    1915    Left = 0
    2016    Top = 0
    … …  
    7470      WordWrap = True
    7571    end
    76     object lblDefine: TLabel
    77       Left = 356
    78       Top = 4
    79       Width = 92
    80       Height = 13
    81       Caption = 'Define Test Groups'
    82     end
    8372    object lblTestGroup: TLabel
    8473      Left = 181
    … …  
    8978      WordWrap = True
    9079    end
     80    object lblDefine: TVA508StaticText
     81      Name = 'lblDefine'
     82      Left = 352
     83      Top = 8
     84      Width = 94
     85      Height = 15
     86      AutoSize = True
     87      Caption = 'Define Test Groups'
     88      TabOrder = 10
     89      ShowAccelChar = True
     90    end
    9191    object pnlUpButton: TKeyClickPanel
    9292      Left = 235
    9393      Top = 299
    94       Width = 27
    95       Height = 27
     94      Width = 29
     95      Height = 29
    9696      BevelOuter = bvNone
    97       Caption = 'Display selected test earlier'
    98       Constraints.MaxHeight = 27
    99       Constraints.MaxWidth = 27
     97      Constraints.MaxHeight = 29
     98      Constraints.MaxWidth = 29
    10099      TabOrder = 5
    101100      TabStop = True
    … …  
    105104      OnResize = pnlUpButtonResize
    106105      object cmdUp: TSpeedButton
    107         Left = 0
    108         Top = 1
    109         Width = 27
     106        Left = 2
     107        Top = 2
     108        Width = 25
    110109        Height = 25
    111110        Caption = '^'
    … …  
    117116      Left = 235
    118117      Top = 331
    119       Width = 27
    120       Height = 27
     118      Width = 29
     119      Height = 29
    121120      BevelOuter = bvNone
    122       Caption = 'Display selected test later'
    123       Constraints.MaxHeight = 27
    124       Constraints.MaxWidth = 27
     121      Constraints.MaxHeight = 29
     122      Constraints.MaxWidth = 29
    125123      TabOrder = 6
    126124      TabStop = True
    … …  
    130128      OnResize = pnlDownButtonResize
    131129      object cmdDown: TSpeedButton
    132         Left = 0
    133         Top = 1
    134         Width = 27
     130        Left = 2
     131        Top = 2
     132        Width = 25
    135133        Height = 25
    136134        Caption = 'v'
    … …  
    179177    end
    180178    object lstList: TORListBox
    181       Left = 280
    182       Top = 166
     179      Left = 278
     180      Top = 163
    183181      Width = 160
    184182      Height = 211
    … …  
    192190      LongList = False
    193191      Pieces = '2'
     192      OnChange = lstListClick
    194193    end
    195194    object cboTests: TORComboBox
    … …  
    208207      ListItemsOnly = False
    209208      LongList = True
     209      LookupPiece = 0
    210210      MaxLength = 0
    211211      ParentShowHint = False
    … …  
    221221      OnExit = cboTestsExit
    222222      OnNeedData = cboTestsNeedData
     223      CharsNeedMatch = 1
    223224    end
    224225    object cboUsers: TORComboBox
    225226      Left = 164
    226       Top = 26
    227       Width = 160
     227      Top = 23
     228      Width = 165
    228229      Height = 21
    229230      Style = orcsDropDown
    … …  
    237238      ListItemsOnly = False
    238239      LongList = True
     240      LookupPiece = 0
    239241      MaxLength = 0
    240242      Pieces = '2'
    241243      Sorted = False
    242244      SynonymChars = '<>'
    243       TabOrder = 10
     245      TabOrder = 11
    244246      OnClick = cboUsersClick
    245247      OnNeedData = cboUsersNeedData
     248      CharsNeedMatch = 1
    246249    end
    247250    object lstTestGroups: TORListBox
    … …  
    253256      ParentShowHint = False
    254257      ShowHint = True
    255       TabOrder = 11
    256       OnClick = lstTestGroupsClick
     258      TabOrder = 12
    257259      Caption = 'Test Groups'
    258260      ItemTipColor = clWindow
    259261      LongList = False
    260262      Pieces = '2'
     263      OnChange = lstTestGroupsChange
    261264    end
    262265    object cmdReplace: TButton
    … …  
    267270      Caption = 'Replace'
    268271      Enabled = False
    269       TabOrder = 13
     272      TabOrder = 14
    270273      OnClick = cmdReplaceClick
    271274    end
    … …  
    285288      ListItemsOnly = False
    286289      LongList = True
     290      LookupPiece = 0
    287291      MaxLength = 0
    288292      ParentShowHint = False
    … …  
    293297      TabOrder = 1
    294298      OnNeedData = cboSpecimenNeedData
     299      CharsNeedMatch = 1
    295300    end
    296301    object cmdDelete: TButton
    … …  
    301306      Caption = 'Delete'
    302307      Enabled = False
    303       TabOrder = 14
     308      TabOrder = 15
    304309      OnClick = cmdDeleteClick
    305310    end
    … …  
    313318      ParentShowHint = False
    314319      ShowHint = False
    315       TabOrder = 12
     320      TabOrder = 13
    316321      OnClick = cmdAddClick
    317322    end
    … …  
    327332    end
    328333  end
     334  inherited amgrMain: TVA508AccessibilityManager
     335    Data = (
     336      (
     337        'Component = pnlLabTestGroups'
     338        'Status = stsDefault')
     339      (
     340        'Component = pnlUpButton'
     341        'Text = Display selected test earlier'
     342        'Status = stsOK')
     343      (
     344        'Component = pnlDownButton'
     345        'Text = Display selected test later'
     346        'Status = stsOK')
     347      (
     348        'Component = cmdOK'
     349        'Status = stsDefault')
     350      (
     351        'Component = cmdCancel'
     352        'Status = stsDefault')
     353      (
     354        'Component = cmdClear'
     355        'Status = stsDefault')
     356      (
     357        'Component = cmdRemove'
     358        'Status = stsDefault')
     359      (
     360        'Component = lstList'
     361        'Status = stsDefault')
     362      (
     363        'Component = cboTests'
     364        'Status = stsDefault')
     365      (
     366        'Component = cboUsers'
     367        'Label = lblUsers'
     368        'Status = stsOK')
     369      (
     370        'Component = lstTestGroups'
     371        'Label = lblTestGroups'
     372        'Status = stsOK')
     373      (
     374        'Component = cmdReplace'
     375        'Text = Replace Test Group'
     376        'Status = stsOK')
     377      (
     378        'Component = cboSpecimen'
     379        'Status = stsDefault')
     380      (
     381        'Component = cmdDelete'
     382        'Text = Delete Test Group'
     383        'Status = stsOK')
     384      (
     385        'Component = cmdAdd'
     386        'Text = New Test Group'
     387        'Status = stsOK')
     388      (
     389        'Component = cmdAddTest'
     390        'Status = stsDefault')
     391      (
     392        'Component = frmLabTestGroups'
     393        'Status = stsDefault')
     394      (
     395        'Component = lblDefine'
     396        'Status = stsDefault'))
     397  end
    329398end
Note: See TracChangeset for help on using the changeset viewer.