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

    r456 r830  
    1 object frmFlags: TfrmFlags
    2   Left = 210
    3   Top = 169
    4   Width = 505
    5   Height = 498
     1inherited frmFlags: TfrmFlags
     2  Left = 380
     3  Top = 122
     4  Width = 504
     5  Height = 532
    66  VertScrollBar.Range = 116
    7   AutoScroll = False
    87  Caption = 'Patient Record Flags'
    9   Color = clBtnFace
    10   Font.Charset = DEFAULT_CHARSET
    11   Font.Color = clWindowText
    12   Font.Height = -11
    13   Font.Name = 'MS Sans Serif'
    14   Font.Style = []
    15   OldCreateOrder = False
    168  Position = poMainFormCenter
    179  OnClose = FormClose
    1810  OnCreate = FormCreate
    1911  OnDestroy = FormDestroy
    20   OnKeyDown = FormKeyDown
    2112  OnShow = FormShow
     13  ExplicitWidth = 504
     14  ExplicitHeight = 532
    2215  PixelsPerInch = 96
    2316  TextHeight = 13
    24   object Splitter1: TSplitter
     17  object Splitter1: TSplitter [0]
    2518    Left = 0
    2619    Top = 80
    2720    Width = 497
    2821    Height = 5
    29     Cursor = crHSplit
    3022    Align = alNone
    3123  end
    32   object Splitter2: TSplitter
    33     Left = 0
    34     Top = 308
    35     Width = 497
     24  object Splitter2: TSplitter [1]
     25    Left = 0
     26    Top = 349
     27    Width = 496
    3628    Height = 4
    3729    Cursor = crVSplit
    … …  
    3931    MinSize = 45
    4032  end
    41   object pnlTop: TORAutoPanel
     33  object pnlTop: TORAutoPanel [2]
    4234    Left = 0
    4335    Top = 0
    44     Width = 497
    45     Height = 80
     36    Width = 496
     37    Height = 113
    4638    Align = alTop
    4739    Constraints.MinHeight = 40
    … …  
    5042    object lblFlags: TLabel
    5143      Left = 1
     44      Top = 54
     45      Width = 494
     46      Height = 13
     47      Align = alTop
     48      Caption = 'Category II Flags'
     49      Layout = tlCenter
     50      ExplicitWidth = 79
     51    end
     52    object lblCat1: TLabel
     53      Left = 1
    5254      Top = 1
    53       Width = 495
     55      Width = 494
    5456      Height = 13
    5557      Align = alTop
    56       Caption = 'Active Flag'
     58      Caption = 'Category I Flags'
     59      Color = clBtnFace
     60      Font.Charset = DEFAULT_CHARSET
     61      Font.Color = clWindowText
     62      Font.Height = -11
     63      Font.Name = 'MS Sans Serif'
     64      Font.Style = [fsBold]
     65      ParentColor = False
     66      ParentFont = False
    5767      Layout = tlCenter
    58     end
    59     object lstFlags: TORListBox
    60       Left = 1
    61       Top = 14
    62       Width = 495
    63       Height = 65
     68      ExplicitWidth = 93
     69    end
     70    object lstFlagsCat2: TORListBox
     71      Left = 1
     72      Top = 67
     73      Width = 494
     74      Height = 45
    6475      Align = alClient
    6576      ItemHeight = 13
    6677      ParentShowHint = False
    6778      ShowHint = True
    68       TabOrder = 0
    69       OnClick = lstFlagsClick
     79      TabOrder = 1
     80      OnClick = lstFlagsCat2Click
    7081      ItemTipColor = clWindow
    7182      LongList = False
    7283      Pieces = '2'
    73       OnChange = lstFlagsClick
    74     end
    75   end
    76   object memFlags: TRichEdit
    77     Left = 0
    78     Top = 80
    79     Width = 497
    80     Height = 228
     84    end
     85    object lstFlagsCat1: TORListBox
     86      Left = 1
     87      Top = 14
     88      Width = 494
     89      Height = 40
     90      Align = alTop
     91      BevelKind = bkTile
     92      BevelOuter = bvRaised
     93      Font.Charset = DEFAULT_CHARSET
     94      Font.Color = clWindowText
     95      Font.Height = -11
     96      Font.Name = 'MS Sans Serif'
     97      Font.Style = [fsBold]
     98      ItemHeight = 13
     99      ParentFont = False
     100      ParentShowHint = False
     101      ShowHint = True
     102      TabOrder = 0
     103      OnClick = lstFlagsCat1Click
     104      ItemTipColor = clWindow
     105      LongList = False
     106      Pieces = '2'
     107    end
     108  end
     109  object memFlags: TRichEdit [3]
     110    Left = 0
     111    Top = 113
     112    Width = 496
     113    Height = 236
    81114    Align = alClient
    82115    Font.Charset = ANSI_CHARSET
    … …  
    95128    WordWrap = False
    96129  end
    97   object pnlNotes: TPanel
    98     Left = 0
    99     Top = 312
    100     Width = 497
     130  object pnlNotes: TPanel [4]
     131    Left = 0
     132    Top = 353
     133    Width = 496
    101134    Height = 152
    102135    Align = alBottom
    … …  
    105138      Left = 1
    106139      Top = 1
    107       Width = 495
     140      Width = 53
    108141      Height = 13
    109142      Align = alTop
    … …  
    113146      Left = 1
    114147      Top = 14
    115       Width = 495
     148      Width = 494
    116149      Height = 106
    117150      Align = alClient
    … …  
    135168      Constraints.MinHeight = 50
    136169      HideSelection = False
    137       Items.Data = {
    138         6C0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
    139         44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
    140         3233115245414C4C59204C4F4E47205354554646115069636B6572696E672C20
    141         4D6F726F6E69FFFFFFFFFFFF}
    142170      ReadOnly = True
    143171      RowSelect = True
    … …  
    150178      Left = 1
    151179      Top = 120
    152       Width = 495
     180      Width = 494
    153181      Height = 31
    154182      Align = alBottom
    155183      TabOrder = 1
    156184      DesignSize = (
    157         495
     185        494
    158186        31)
    159187      object btnClose: TButton
    160         Left = 410
     188        Left = 409
    161189        Top = 5
    162190        Width = 77
    … …  
    170198    end
    171199  end
     200  inherited amgrMain: TVA508AccessibilityManager
     201    Data = (
     202      (
     203        'Component = pnlTop'
     204        'Status = stsDefault')
     205      (
     206        'Component = lstFlagsCat2'
     207        'Status = stsDefault')
     208      (
     209        'Component = lstFlagsCat1'
     210        'Status = stsDefault')
     211      (
     212        'Component = memFlags'
     213        'Status = stsDefault')
     214      (
     215        'Component = pnlNotes'
     216        'Status = stsDefault')
     217      (
     218        'Component = lvPRF'
     219        'Status = stsDefault')
     220      (
     221        'Component = pnlBottom'
     222        'Status = stsDefault')
     223      (
     224        'Component = btnClose'
     225        'Status = stsDefault')
     226      (
     227        'Component = frmFlags'
     228        'Status = stsDefault'))
     229  end
     230  object TimerTextFlash: TTimer
     231    Enabled = False
     232    Interval = 750
     233    OnTimer = TimerTextFlashTimer
     234    Left = 240
     235    Top = 24
     236  end
    172237end
Note: See TracChangeset for help on using the changeset viewer.