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

    r459 r460  
    11object frmFrame: TfrmFrame
    2   Left = 145
    3   Top = 191
     2  Left = 77
     3  Top = 123
    44  Width = 684
    5   Height = 487
    6   Caption = 'CPRS Frame'
     5  Height = 384
     6  Caption = 'p'
    77  Color = clBtnFace
    88  Font.Charset = DEFAULT_CHARSET
    … …  
    3030    Top = 0
    3131    Width = 676
    32     Height = 441
     32    Height = 330
    3333    Align = alClient
    3434    Caption = 'No patient is currently selected'
    … …  
    4646    Top = 0
    4747    Width = 676
    48     Height = 441
     48    Height = 330
    4949    Align = alClient
    5050    TabOrder = 0
    … …  
    7575        Left = 0
    7676        Top = 1
    77         Width = 24
     77        Width = 39
    7878        Height = 39
    7979        Align = alLeft
    … …  
    8181        ParentShowHint = False
    8282        ShowHint = True
    83         TabOrder = 7
     83        TabOrder = 8
    8484        object imgCCOW: TImage
    8585          Left = 2
    8686          Top = 2
    87           Width = 20
     87          Width = 35
    8888          Height = 35
    89           Align = alLeft
     89          Align = alClient
    9090          Center = True
    9191          Picture.Data = {
    … …  
    120120      end
    121121      object pnlPatient: TKeyClickPanel
    122         Left = 24
     122        Left = 39
    123123        Top = 1
    124124        Width = 187
    … …  
    202202      end
    203203      object pnlVisit: TKeyClickPanel
    204         Left = 211
     204        Left = 226
    205205        Top = 1
    206206        Width = 168
    … …  
    263263      end
    264264      object pnlPrimaryCare: TKeyClickPanel
    265         Left = 379
     265        Left = 394
    266266        Top = 1
    267         Width = 104
     267        Width = 31
    268268        Height = 39
    269269        Hint = 'Primary Care Team / Primary Care Provider'
    … …  
    323323      end
    324324      object pnlCIRN: TKeyClickPanel
    325         Left = 518
     325        Left = 520
    326326        Top = 1
    327327        Width = 49
    … …  
    338338        ParentShowHint = False
    339339        ShowHint = True
    340         TabOrder = 4
     340        TabOrder = 5
    341341        OnClick = pnlCIRNClick
    342342        OnEnter = pnlPrimaryCareEnter
    343343        OnExit = pnlPrimaryCareExit
     344        OnMouseDown = pnlCIRNMouseDown
     345        OnMouseUp = pnlCIRNMouseUp
    344346        object lblCIRN: TLabel
    345           Left = 3
    346           Top = 4
    347           Width = 37
     347          Left = 2
     348          Top = 2
     349          Width = 45
    348350          Height = 13
     351          Align = alTop
     352          Alignment = taCenter
    349353          Caption = 'Remote'
    350354          Enabled = False
     355          Font.Charset = DEFAULT_CHARSET
     356          Font.Color = clBtnFace
     357          Font.Height = -8
     358          Font.Name = 'MS Sans Serif'
     359          Font.Style = []
     360          ParentFont = False
    351361          OnClick = pnlCIRNClick
    352362        end
    353363        object lblCIRNData: TLabel
    354           Left = 11
    355           Top = 22
    356           Width = 23
     364          Left = 2
     365          Top = 15
     366          Width = 45
    357367          Height = 13
     368          Align = alTop
     369          Alignment = taCenter
    358370          Caption = 'Data'
    359371          Enabled = False
     372          Font.Charset = DEFAULT_CHARSET
     373          Font.Color = clBtnFace
     374          Font.Height = -8
     375          Font.Name = 'MS Sans Serif'
     376          Font.Style = []
     377          ParentFont = False
    360378          OnClick = pnlCIRNClick
    361379        end
     380        object lblCIRNAvail: TLabel
     381          Left = 2
     382          Top = 28
     383          Width = 45
     384          Height = 9
     385          Align = alClient
     386          Alignment = taCenter
     387          Font.Charset = DEFAULT_CHARSET
     388          Font.Color = clBtnFace
     389          Font.Height = -8
     390          Font.Name = 'MS Sans Serif'
     391          Font.Style = []
     392          ParentFont = False
     393          OnClick = pnlCIRNClick
     394        end
    362395      end
    363396      object pnlReminders: TKeyClickPanel
    364         Left = 567
     397        Left = 569
    365398        Top = 1
    366399        Width = 35
    … …  
    377410        ParentShowHint = False
    378411        ShowHint = True
    379         TabOrder = 5
     412        TabOrder = 6
    380413        TabStop = True
    381414        OnClick = pnlRemindersClick
    … …  
    405438      end
    406439      object pnlFlag: TKeyClickPanel
    407         Left = 483
     440        Left = 485
    408441        Top = 1
    409442        Width = 35
    … …  
    415448        ParentShowHint = False
    416449        ShowHint = True
    417         TabOrder = 3
     450        TabOrder = 4
    418451        TabStop = True
    419452        OnClick = pnlFlagClick
    … …  
    445478      end
    446479      object pnlPostings: TKeyClickPanel
    447         Left = 602
     480        Left = 604
    448481        Top = 1
    449         Width = 72
     482        Width = 70
    450483        Height = 39
    451484        Hint = 'Click to display patient postings.'
    … …  
    460493        ParentShowHint = False
    461494        ShowHint = True
    462         TabOrder = 6
     495        TabOrder = 7
    463496        TabStop = True
    464497        OnClick = pnlPostingsClick
    … …  
    468501        OnMouseUp = pnlPostingsMouseUp
    469502        object lblPtPostings: TStaticText
    470           Left = 6
     503          Left = 5
    471504          Top = 4
    472505          Width = 57
    … …  
    509542        end
    510543      end
     544      object paVAA: TKeyClickPanel
     545        Left = 425
     546        Top = 1
     547        Width = 60
     548        Height = 39
     549        Align = alRight
     550        BevelOuter = bvNone
     551        Font.Charset = DEFAULT_CHARSET
     552        Font.Color = clBtnFace
     553        Font.Height = -11
     554        Font.Name = 'MS Sans Serif'
     555        Font.Style = []
     556        ParentFont = False
     557        ParentShowHint = False
     558        ShowHint = False
     559        TabOrder = 3
     560        Visible = False
     561        DesignSize = (
     562          60
     563          39)
     564        object laVAA2: TButton
     565          Left = 0
     566          Top = 19
     567          Width = 59
     568          Height = 20
     569          Hint = 'Click to display patient insurance data'
     570          Anchors = [akLeft, akTop, akRight, akBottom]
     571          Caption = 'laVAA2'
     572          ParentShowHint = False
     573          ShowHint = True
     574          TabOrder = 1
     575          OnClick = laVAA2Click
     576        end
     577        object laMHV: TButton
     578          Left = 0
     579          Top = 1
     580          Width = 59
     581          Height = 18
     582          Hint = 'Click to display MHV data'
     583          Anchors = [akLeft, akTop, akRight, akBottom]
     584          Caption = 'laMHV'
     585          ParentShowHint = False
     586          ShowHint = True
     587          TabOrder = 0
     588          OnClick = laMHVClick
     589        end
     590      end
    511591    end
    512592    object stsArea: TStatusBar
    513593      Left = 1
    514       Top = 419
     594      Top = 308
    515595      Width = 674
    516596      Height = 21
    … …  
    544624    object tabPage: TTabControl
    545625      Left = 1
    546       Top = 397
     626      Top = 286
    547627      Width = 674
    548628      Height = 22
    … …  
    563643      Top = 42
    564644      Width = 674
    565       Height = 355
     645      Height = 244
    566646      Align = alClient
    567647      BevelOuter = bvNone
    … …  
    607687  end
    608688  object mnuFrame: TMainMenu
    609     Left = 68
    610     Top = 120
     689    Left = 180
     690    Top = 128
    611691    object mnuFile: TMenuItem
    612692      Caption = '&File'
    … …  
    715795            Tag = 8
    716796            Caption = '8 pt'
     797            RadioItem = True
    717798            OnClick = mnuFontSizeClick
    718799          end
    … …  
    720801            Tag = 10
    721802            Caption = '10 pt'
     803            RadioItem = True
    722804            OnClick = mnuFontSizeClick
    723805          end
    … …  
    725807            Tag = 12
    726808            Caption = '12 pt'
     809            RadioItem = True
    727810            OnClick = mnuFontSizeClick
    728811          end
    … …  
    730813            Tag = 14
    731814            Caption = '14 pt'
     815            RadioItem = True
    732816            OnClick = mnuFontSizeClick
    733817          end
    … …  
    735819            Tag = 18
    736820            Caption = '18 pt'
     821            RadioItem = True
    737822            OnClick = mnuFontSizeClick
    738823          end
    … …  
    740825            Tag = 24
    741826            Caption = '24 pt'
     827            RadioItem = True
    742828            OnClick = mnuFontSizeClick
    743829          end
    … …  
    811897        end
    812898      end
    813       object mnuViewDemo: TMenuItem
    814         Caption = 'De&mographics'
    815         OnClick = mnuViewDemoClick
    816       end
    817       object mnuViewPostings: TMenuItem
    818         Caption = '&Postings'
    819         OnClick = mnuViewPostingsClick
    820       end
    821       object mnuViewReminders: TMenuItem
    822         Caption = '&Reminders'
    823         Enabled = False
    824         OnClick = mnuViewRemindersClick
     899      object mnuViewInformation: TMenuItem
     900        Caption = 'Information'
     901        OnClick = mnuViewInformationClick
     902        object mnuViewDemo: TMenuItem
     903          Tag = 1
     904          Caption = 'De&mographics...'
     905          OnClick = ViewInfo
     906        end
     907        object mnuViewVisits: TMenuItem
     908          Tag = 2
     909          Caption = 'Visits/Pr&ovider...'
     910          OnClick = ViewInfo
     911        end
     912        object mnuViewPrimaryCare: TMenuItem
     913          Tag = 3
     914          Caption = 'Primary &Care...'
     915          OnClick = ViewInfo
     916        end
     917        object mnuViewMyHealtheVet: TMenuItem
     918          Tag = 4
     919          Caption = 'MyHealthe&Vet...'
     920          OnClick = ViewInfo
     921        end
     922        object mnuInsurance: TMenuItem
     923          Tag = 5
     924          Caption = '&Insurance...'
     925          OnClick = ViewInfo
     926        end
     927        object mnuViewFlags: TMenuItem
     928          Tag = 6
     929          Caption = '&Flags...'
     930          OnClick = ViewInfo
     931        end
     932        object mnuViewRemoteData: TMenuItem
     933          Tag = 7
     934          Caption = 'Remote &Data...'
     935          OnClick = ViewInfo
     936        end
     937        object mnuViewReminders: TMenuItem
     938          Tag = 8
     939          Caption = '&Reminders...'
     940          OnClick = ViewInfo
     941        end
     942        object mnuViewPostings: TMenuItem
     943          Tag = 9
     944          Caption = '&Postings...'
     945          OnClick = ViewInfo
     946        end
    825947      end
    826948    end
    … …  
    832954        Caption = '-'
    833955      end
     956      object mnuToolsGraphing: TMenuItem
     957        Caption = '&Graphing...'
     958        ShortCut = 16455
     959        OnClick = mnuToolsGraphingClick
     960      end
    834961      object LabInfo1: TMenuItem
    835962        Caption = '&Lab Test Information...'
    … …  
    837964      end
    838965      object mnuToolsOptions: TMenuItem
    839         Caption = 'Options...'
     966        Caption = '&Options...'
    840967        OnClick = mnuToolsOptionsClick
    841968      end
    … …  
    8961023  object OROpenDlg: TOpenDialog
    8971024    Filter = 'Exe file (*.exe)|*.exe'
    898     Left = 460
    899     Top = 369
     1025    Left = 260
     1026    Top = 257
    9001027  end
    9011028  object popAlerts: TPopupMenu
    9021029    AutoPopup = False
    903     Left = 440
    904     Top = 416
     1030    Left = 320
     1031    Top = 200
    9051032    object mnuAlertContinue: TMenuItem
    9061033      Caption = 'Continue'
    … …  
    9181045  object AppEvents: TApplicationEvents
    9191046    OnActivate = AppEventsActivate
    920     Left = 496
    921     Top = 368
     1047    OnShortCut = AppEventsShortCut
     1048    Left = 336
     1049    Top = 256
    9221050  end
    9231051end
Note: See TracChangeset for help on using the changeset viewer.