Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/fMeds.dfm

    r459 r460  
    11inherited frmMeds: TfrmMeds
    2   Left = 255
    3   Top = 53
    4   Width = 734
    5   Height = 681
     2  Left = 93
     3  Top = 250
     4  Width = 709
     5  Height = 686
    66  HelpContext = 3000
     7  VertScrollBar.Visible = False
    78  Caption = 'Medications Page'
    89  HelpFile = 'qnoback'
    910  Menu = mnuMeds
     11  Visible = True
    1012  OnDestroy = FormDestroy
     13  OnMouseUp = FormMouseUp
    1114  OnResize = FormResize
    1215  OnShow = FormShow
    … …  
    2124  object splitTop: TSplitter
    2225    Left = 0
    23     Top = 213
    24     Width = 726
     26    Top = 421
     27    Width = 701
    2528    Height = 4
    2629    Cursor = crVSplit
    … …  
    3639  object pnlBottom: TORAutoPanel
    3740    Left = 0
    38     Top = 217
    39     Width = 726
    40     Height = 418
     41    Top = 425
     42    Width = 701
     43    Height = 207
    4144    Align = alBottom
    42     Caption = 'pnlBottom'
    4345    Constraints.MinHeight = 40
    4446    Ctl3D = False
    … …  
    4749    object splitBottom: TSplitter
    4850      Left = 1
    49       Top = 204
    50       Width = 724
     51      Top = 102
     52      Width = 699
    5153      Height = 4
    5254      Cursor = crVSplit
    … …  
    5658      Constraints.MaxHeight = 4
    5759      Constraints.MinHeight = 4
    58       MinSize = 60
     60      MinSize = 100
    5961      ParentColor = False
    6062      OnMoved = splitBottomMoved
    … …  
    6264    object pnlMedIn: TPanel
    6365      Left = 1
    64       Top = 208
    65       Width = 724
    66       Height = 209
     66      Top = 106
     67      Width = 699
     68      Height = 100
    6769      Align = alBottom
    68       Caption = 'pnlMedIn'
    69       Constraints.MinHeight = 40
     70      Constraints.MinHeight = 100
    7071      TabOrder = 0
    7172      object lstMedsIn: TCaptionListBox
    … …  
    7374        Left = 1
    7475        Top = 17
    75         Width = 722
    76         Height = 191
     76        Width = 697
     77        Height = 82
    7778        Style = lbOwnerDrawVariable
    7879        Align = alClient
    7980        Color = clCream
     81        Constraints.MinHeight = 65
    8082        Ctl3D = False
    8183        ItemHeight = 13
    … …  
    9496        Left = 1
    9597        Top = 1
    96         Width = 722
     98        Width = 697
    9799        Height = 16
    98100        BiDiMode = bdLeftToRight
    99101        DragReorder = False
    100         Constraints.MaxHeight = 16
    101102        Constraints.MinHeight = 16
    102103        Sections = <
    … …  
    111112            MinWidth = 20
    112113            Text = 'Inpatient Medications'
    113             Width = 440
     114            Width = 100
    114115          end
    115116          item
    … …  
    127128          item
    128129            ImageIndex = -1
     130            MinWidth = 16
    129131            Text = 'Location'
    130             Width = 60
     132            Width = 20
    131133          end>
     134        OnSectionClick = hdrMedsInSectionClick
    132135        OnSectionResize = hdrMedsInSectionResize
    133136        ParentBiDiMode = False
     137        OnMouseDown = hdrMedsInMouseDown
     138        OnMouseUp = hdrMedsInMouseUp
    134139        OnResize = hdrMedsInResize
    135140      end
    … …  
    138143      Left = 1
    139144      Top = 1
    140       Width = 724
    141       Height = 203
     145      Width = 699
     146      Height = 101
    142147      Align = alClient
    143148      Caption = 'pnlNonVA'
    … …  
    148153        Left = 1
    149154        Top = 17
    150         Width = 722
    151         Height = 185
     155        Width = 697
     156        Height = 83
    152157        Style = lbOwnerDrawVariable
    153158        Align = alClient
    … …  
    170175        Left = 1
    171176        Top = 1
    172         Width = 722
     177        Width = 697
    173178        Height = 16
    174179        BiDiMode = bdLeftToRight
    175180        DragReorder = False
    176         Constraints.MaxHeight = 16
    177181        Constraints.MinHeight = 16
    178182        Sections = <
    … …  
    187191            MinWidth = 20
    188192            Text = 'Non-VA Medications'
    189             Width = 516
     193            Width = 100
    190194          end
    191195          item
    … …  
    201205            Width = 62
    202206          end>
    203         OnSectionResize = hdrMedsInSectionResize
     207        OnSectionClick = hdrMedsNonVASectionClick
     208        OnSectionResize = hdrMedsNonVASectionResize
    204209        ParentBiDiMode = False
     210        OnMouseDown = hdrMedsNonVAMouseDown
     211        OnMouseUp = hdrMedsNonVAMouseUp
    205212        OnResize = hdrMedsNonVAResize
    206213      end
    … …  
    210217    Left = 0
    211218    Top = 0
    212     Width = 726
    213     Height = 213
     219    Width = 701
     220    Height = 421
    214221    Align = alClient
    215     Caption = 'pnlTop'
    216222    Ctl3D = True
    217223    ParentCtl3D = False
    … …  
    221227      Left = 1
    222228      Top = 17
    223       Width = 724
    224       Height = 195
     229      Width = 699
     230      Height = 403
    225231      Style = lbOwnerDrawVariable
    226232      Align = alClient
    227233      Color = clCream
     234      Constraints.MinHeight = 40
    228235      Ctl3D = False
    229236      ItemHeight = 13
    … …  
    242249      Left = 1
    243250      Top = 1
    244       Width = 724
     251      Width = 699
    245252      Height = 16
     253      BiDiMode = bdLeftToRight
    246254      DragReorder = False
    247       Constraints.MaxHeight = 100
    248255      Constraints.MinHeight = 16
    249256      Sections = <
    … …  
    258265          MinWidth = 20
    259266          Text = 'Outpatient Medications'
    260           Width = 400
     267          Width = 100
    261268        end
    262269        item
    … …  
    284291          Width = 78
    285292        end>
     293      OnSectionClick = hdrMedsOutSectionClick
    286294      OnSectionResize = hdrMedsOutSectionResize
     295      ParentBiDiMode = False
     296      OnMouseDown = hdrMedsOutMouseDown
     297      OnMouseUp = hdrMedsOutMouseUp
    287298      OnResize = hdrMedsOutResize
    288299    end
    … …  
    358369        end
    359370      end
     371      object mnuViewInformation: TMenuItem
     372        Caption = 'Information'
     373        OnClick = mnuViewInformationClick
     374        object mnuViewDemo: TMenuItem
     375          Tag = 1
     376          Caption = 'De&mographics...'
     377          OnClick = ViewInfo
     378        end
     379        object mnuViewVisits: TMenuItem
     380          Tag = 2
     381          Caption = 'Visits/Pr&ovider...'
     382          OnClick = ViewInfo
     383        end
     384        object mnuViewPrimaryCare: TMenuItem
     385          Tag = 3
     386          Caption = 'Primary &Care...'
     387          OnClick = ViewInfo
     388        end
     389        object mnuViewMyHealtheVet: TMenuItem
     390          Tag = 4
     391          Caption = 'MyHealthe&Vet...'
     392          OnClick = ViewInfo
     393        end
     394        object mnuInsurance: TMenuItem
     395          Tag = 5
     396          Caption = '&Insurance...'
     397          OnClick = ViewInfo
     398        end
     399        object mnuViewFlags: TMenuItem
     400          Tag = 6
     401          Caption = '&Flags...'
     402          OnClick = ViewInfo
     403        end
     404        object mnuViewRemoteData: TMenuItem
     405          Tag = 7
     406          Caption = 'Remote &Data...'
     407          OnClick = ViewInfo
     408        end
     409        object mnuViewReminders: TMenuItem
     410          Tag = 8
     411          Caption = '&Reminders...'
     412          Enabled = False
     413          OnClick = ViewInfo
     414        end
     415        object mnuViewPostings: TMenuItem
     416          Tag = 9
     417          Caption = '&Postings...'
     418          OnClick = ViewInfo
     419        end
     420      end
    360421      object Z2: TMenuItem
    361422        Caption = '-'
    … …  
    473534      OnClick = mnuActNewClick
    474535    end
     536    object mnuOptimizeFields: TMenuItem
     537      Caption = 'Adjust Field Size'
     538      Visible = False
     539      OnClick = mnuOptimizeFieldsClick
     540    end
    475541  end
    476542end
Note: See TracChangeset for help on using the changeset viewer.