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

    r830 r1679  
    22  Left = 380
    33  Top = 122
    4   Width = 504
    5   Height = 532
     4  Width = 589
     5  Height = 607
    66  VertScrollBar.Range = 116
    77  Caption = 'Patient Record Flags'
    … …  
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   ExplicitWidth = 504
    14   ExplicitHeight = 532
     13  ExplicitWidth = 589
     14  ExplicitHeight = 607
    1515  PixelsPerInch = 96
    1616  TextHeight = 13
    17   object Splitter1: TSplitter [0]
    18     Left = 0
    19     Top = 80
    20     Width = 497
    21     Height = 5
    22     Align = alNone
    23   end
    24   object Splitter2: TSplitter [1]
    25     Left = 0
    26     Top = 349
    27     Width = 496
    28     Height = 4
    29     Cursor = crVSplit
    30     Align = alBottom
    31     MinSize = 45
    32   end
    33   object pnlTop: TORAutoPanel [2]
     17  object Panel1: TPanel [0]
    3418    Left = 0
    3519    Top = 0
    36     Width = 496
    37     Height = 113
    38     Align = alTop
    39     Constraints.MinHeight = 40
    40     Constraints.MinWidth = 300
     20    Width = 581
     21    Height = 573
     22    Align = alClient
    4123    TabOrder = 0
     24    object Splitter3: TSplitter
     25      Left = 1
     26      Top = 73
     27      Width = 579
     28      Height = 4
     29      Cursor = crVSplit
     30      Align = alTop
     31      ExplicitLeft = 0
     32      ExplicitTop = 38
     33      ExplicitWidth = 494
     34    end
    4235    object lblFlags: TLabel
    4336      Left = 1
    44       Top = 54
    45       Width = 494
     37      Top = 77
     38      Width = 579
    4639      Height = 13
    4740      Align = alTop
    … …  
    5043      ExplicitWidth = 79
    5144    end
     45    object Splitter1: TSplitter
     46      Left = 1
     47      Top = 153
     48      Width = 579
     49      Height = 4
     50      Cursor = crVSplit
     51      Align = alTop
     52      ExplicitTop = 31
     53      ExplicitWidth = 494
     54    end
    5255    object lblCat1: TLabel
    5356      Left = 1
    5457      Top = 1
    55       Width = 494
     58      Width = 579
    5659      Height = 13
    5760      Align = alTop
    … …  
    6871      ExplicitWidth = 93
    6972    end
     73    object Splitter2: TSplitter
     74      Left = 1
     75      Top = 416
     76      Width = 579
     77      Height = 4
     78      Cursor = crVSplit
     79      Align = alBottom
     80      MinSize = 45
     81      ExplicitTop = 157
     82    end
     83    object memFlags: TRichEdit
     84      Left = 1
     85      Top = 157
     86      Width = 579
     87      Height = 259
     88      Align = alClient
     89      Font.Charset = ANSI_CHARSET
     90      Font.Color = clWindowText
     91      Font.Height = -11
     92      Font.Name = 'Courier New'
     93      Font.Style = []
     94      HideScrollBars = False
     95      Constraints.MinHeight = 30
     96      Lines.Strings = (
     97        '')
     98      ParentFont = False
     99      ReadOnly = True
     100      ScrollBars = ssBoth
     101      TabOrder = 0
     102      WantReturns = False
     103      WordWrap = False
     104    end
    70105    object lstFlagsCat2: TORListBox
    71106      Left = 1
    72       Top = 67
    73       Width = 494
    74       Height = 45
    75       Align = alClient
     107      Top = 90
     108      Width = 579
     109      Height = 63
     110      Align = alTop
     111      Constraints.MinHeight = 30
    76112      ItemHeight = 13
    77113      ParentShowHint = False
    78114      ShowHint = True
    79       TabOrder = 1
     115      TabOrder = 3
    80116      OnClick = lstFlagsCat2Click
    81117      ItemTipColor = clWindow
    … …  
    86122      Left = 1
    87123      Top = 14
    88       Width = 494
    89       Height = 40
     124      Width = 579
     125      Height = 59
    90126      Align = alTop
    91127      BevelKind = bkTile
    92128      BevelOuter = bvRaised
     129      Constraints.MinHeight = 30
    93130      Font.Charset = DEFAULT_CHARSET
    94131      Font.Color = clWindowText
    … …  
    100137      ParentShowHint = False
    101138      ShowHint = True
    102       TabOrder = 0
     139      TabOrder = 2
    103140      OnClick = lstFlagsCat1Click
    104141      ItemTipColor = clWindow
    … …  
    106143      Pieces = '2'
    107144    end
    108   end
    109   object memFlags: TRichEdit [3]
    110     Left = 0
    111     Top = 113
    112     Width = 496
    113     Height = 236
    114     Align = alClient
    115     Font.Charset = ANSI_CHARSET
    116     Font.Color = clWindowText
    117     Font.Height = -11
    118     Font.Name = 'Courier New'
    119     Font.Style = []
    120     HideScrollBars = False
    121     Lines.Strings = (
    122       '')
    123     ParentFont = False
    124     ReadOnly = True
    125     ScrollBars = ssBoth
    126     TabOrder = 1
    127     WantReturns = False
    128     WordWrap = False
    129   end
    130   object pnlNotes: TPanel [4]
    131     Left = 0
    132     Top = 353
    133     Width = 496
    134     Height = 152
    135     Align = alBottom
    136     TabOrder = 2
    137     object lblNoteTitle: TLabel
    138       Left = 1
    139       Top = 1
    140       Width = 53
    141       Height = 13
    142       Align = alTop
    143       Caption = 'lblNoteTitle'
    144     end
    145     object lvPRF: TCaptionListView
    146       Left = 1
    147       Top = 14
    148       Width = 494
    149       Height = 106
    150       Align = alClient
    151       Columns = <
    152         item
    153           Caption = 'Used For Screen Readers'
    154           Width = 1
    155         end
    156         item
    157           AutoSize = True
    158           Caption = 'Date'
    159         end
    160         item
    161           AutoSize = True
    162           Caption = 'Action'
    163         end
    164         item
    165           AutoSize = True
    166           Caption = 'Author'
    167         end>
    168       Constraints.MinHeight = 50
    169       HideSelection = False
    170       ReadOnly = True
    171       RowSelect = True
    172       TabOrder = 0
    173       ViewStyle = vsReport
    174       OnClick = lvPRFClick
    175       OnKeyDown = lvPRFKeyDown
    176     end
    177     object pnlBottom: TORAutoPanel
    178       Left = 1
    179       Top = 120
    180       Width = 494
    181       Height = 31
     145    object pnlNotes: TPanel
     146      Left = 1
     147      Top = 420
     148      Width = 579
     149      Height = 152
    182150      Align = alBottom
    183151      TabOrder = 1
    184       DesignSize = (
    185         494
    186         31)
    187       object btnClose: TButton
    188         Left = 409
    189         Top = 5
    190         Width = 77
    191         Height = 21
    192         Anchors = [akRight, akBottom]
    193         Cancel = True
    194         Caption = 'Close'
    195         ModalResult = 2
     152      object lblNoteTitle: TLabel
     153        Left = 1
     154        Top = 1
     155        Width = 577
     156        Height = 13
     157        Align = alTop
     158        Caption = 'lblNoteTitle'
     159        ExplicitWidth = 53
     160      end
     161      object lvPRF: TCaptionListView
     162        Left = 1
     163        Top = 14
     164        Width = 577
     165        Height = 106
     166        Align = alClient
     167        Columns = <
     168          item
     169            Caption = 'Used For Screen Readers'
     170            Width = 1
     171          end
     172          item
     173            AutoSize = True
     174            Caption = 'Date'
     175          end
     176          item
     177            AutoSize = True
     178            Caption = 'Action'
     179          end
     180          item
     181            AutoSize = True
     182            Caption = 'Author'
     183          end>
     184        Constraints.MinHeight = 50
     185        HideSelection = False
     186        ReadOnly = True
     187        RowSelect = True
    196188        TabOrder = 0
     189        ViewStyle = vsReport
     190        OnClick = lvPRFClick
     191        OnKeyDown = lvPRFKeyDown
     192      end
     193      object pnlBottom: TORAutoPanel
     194        Left = 1
     195        Top = 120
     196        Width = 577
     197        Height = 31
     198        Align = alBottom
     199        TabOrder = 1
     200        DesignSize = (
     201          577
     202          31)
     203        object btnClose: TButton
     204          Left = 494
     205          Top = 5
     206          Width = 77
     207          Height = 21
     208          Anchors = [akRight, akBottom]
     209          Cancel = True
     210          Caption = 'Close'
     211          Default = True
     212          ModalResult = 2
     213          TabOrder = 0
     214        end
    197215      end
    198216    end
    … …  
    201219    Data = (
    202220      (
    203         'Component = pnlTop'
    204         'Status = stsDefault')
     221        'Component = frmFlags'
     222        'Status = stsDefault')
     223      (
     224        'Component = Panel1'
     225        'Status = stsDefault')
     226      (
     227        'Component = memFlags'
     228        'Text = Selected Flag'#39's Information'
     229        'Status = stsOK')
    205230      (
    206231        'Component = lstFlagsCat2'
    … …  
    208233      (
    209234        'Component = lstFlagsCat1'
    210         'Status = stsDefault')
    211       (
    212         'Component = memFlags'
    213         'Status = stsDefault')
     235        'Text = Category One Flags'
     236        'Status = stsOK')
    214237      (
    215238        'Component = pnlNotes'
    … …  
    217240      (
    218241        'Component = lvPRF'
    219         'Status = stsDefault')
     242        'Label = lblNoteTitle'
     243        'Status = stsOK')
    220244      (
    221245        'Component = pnlBottom'
    … …  
    223247      (
    224248        'Component = btnClose'
    225         'Status = stsDefault')
    226       (
    227         'Component = frmFlags'
    228249        'Status = stsDefault'))
    229250  end
    … …  
    232253    Interval = 750
    233254    OnTimer = TimerTextFlashTimer
    234     Left = 240
    235     Top = 24
     255    Left = 376
     256    Top = 464
    236257  end
    237258end
Note: See TracChangeset for help on using the changeset viewer.