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

    r456 r830  
    1 object frmFrame: TfrmFrame
    2   Left = 380
    3   Top = 292
    4   Width = 684
    5   Height = 487
     1inherited frmFrame: TfrmFrame
     2  Left = 196
     3  Top = 119
    64  Caption = 'p'
    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 = 574
     6  ClientWidth = 687
    137  FormStyle = fsMDIForm
    14   KeyPreview = True
    158  Menu = mnuFrame
    169  OldCreateOrder = True
    … …  
    2215  OnDestroy = FormDestroy
    2316  OnHelp = FormHelp
    24   OnKeyDown = FormKeyDown
    2517  OnResize = FormResize
     18  ExplicitLeft = 196
     19  ExplicitTop = 119
     20  ExplicitWidth = 695
     21  ExplicitHeight = 620
    2622  PixelsPerInch = 96
    2723  TextHeight = 13
    28   object pnlNoPatientSelected: TPanel
     24  object pnlNoPatientSelected: TPanel [0]
    2925    Left = 0
    3026    Top = 0
    31     Width = 676
    32     Height = 433
     27    Width = 687
     28    Height = 574
    3329    Align = alClient
    3430    Caption = 'No patient is currently selected'
    … …  
    4238    Visible = False
    4339  end
    44   object pnlPatientSelected: TPanel
     40  object pnlPatientSelected: TPanel [1]
    4541    Left = 0
    4642    Top = 0
    47     Width = 676
    48     Height = 433
     43    Width = 687
     44    Height = 574
    4945    Align = alClient
    5046    TabOrder = 0
    … …  
    5248      Left = 1
    5349      Top = 41
    54       Width = 674
     50      Width = 685
    5551      Height = 1
    5652      Align = alTop
     53      ExplicitWidth = 674
    5754    end
    5855    object pnlToolbar: TPanel
    5956      Left = 1
    6057      Top = 1
    61       Width = 674
     58      Width = 685
    6259      Height = 40
    6360      Align = alTop
    6461      BevelOuter = bvNone
     62      Caption = 'object pnlRemoteData: TKeyClickPanel'
    6563      TabOrder = 0
    6664      object bvlToolTop: TBevel
    6765        Left = 0
    6866        Top = 0
    69         Width = 674
     67        Width = 685
    7068        Height = 1
    7169        Align = alTop
    7270        Style = bsRaised
     71        ExplicitWidth = 674
    7372      end
    7473      object pnlCCOW: TPanel
    … …  
    130129        Font.Charset = DEFAULT_CHARSET
    131130        Font.Color = clInfoBk
    132         Font.Height = -8
     131        Font.Height = -11
    133132        Font.Name = 'MS Sans Serif'
    134133        Font.Style = []
    … …  
    165164          Left = 6
    166165          Top = 19
    167           Width = 64
    168           Height = 17
     166          Width = 4
     167          Height = 4
    169168          Font.Charset = DEFAULT_CHARSET
    170169          Font.Color = clInfoText
    … …  
    181180        end
    182181        object lblPtAge: TStaticText
    183           Left = 176
     182          Left = 175
    184183          Top = 19
    185           Width = 3
    186           Height = 6
     184          Width = 4
     185          Height = 4
    187186          Alignment = taRightJustify
    188187          Font.Charset = DEFAULT_CHARSET
    … …  
    203202        Left = 226
    204203        Top = 1
    205         Width = 168
     204        Width = 119
    206205        Height = 39
    207206        Hint = 'Click to change provider/location.'
    … …  
    221220        OnEnter = pnlPrimaryCareEnter
    222221        OnExit = pnlPrimaryCareExit
    223         OnMouseDown = pnlVisitMouseDown
    224         OnMouseUp = pnlVisitMouseUp
    225222        object lblPtLocation: TStaticText
    226223          Left = 6
    … …  
    239236          TabOrder = 0
    240237          OnClick = pnlVisitClick
    241           OnMouseDown = pnlVisitMouseDown
    242           OnMouseUp = pnlVisitMouseUp
    243238        end
    244239        object lblPtProvider: TStaticText
    … …  
    257252          TabOrder = 1
    258253          OnClick = pnlVisitClick
    259           OnMouseDown = pnlVisitMouseDown
    260           OnMouseUp = pnlVisitMouseUp
    261254        end
    262255      end
    263256      object pnlPrimaryCare: TKeyClickPanel
    264         Left = 394
     257        Left = 345
    265258        Top = 1
    266         Width = 31
     259        Width = 67
    267260        Height = 39
    268261        Hint = 'Primary Care Team / Primary Care Provider'
    … …  
    321314        end
    322315      end
    323       object pnlCIRN: TKeyClickPanel
    324         Left = 520
    325         Top = 1
    326         Width = 49
    327         Height = 39
    328         Align = alRight
    329         BevelWidth = 2
    330         Caption = 'Remote Data'
    331         Font.Charset = DEFAULT_CHARSET
    332         Font.Color = clBtnFace
    333         Font.Height = -11
    334         Font.Name = 'MS Sans Serif'
    335         Font.Style = []
    336         ParentFont = False
    337         ParentShowHint = False
    338         ShowHint = True
    339         TabOrder = 5
    340         OnClick = pnlCIRNClick
    341         OnEnter = pnlPrimaryCareEnter
    342         OnExit = pnlPrimaryCareExit
    343         OnMouseDown = pnlCIRNMouseDown
    344         OnMouseUp = pnlCIRNMouseUp
    345         object lblCIRN: TLabel
    346           Left = 2
    347           Top = 2
    348           Width = 45
    349           Height = 13
    350           Align = alTop
    351           Alignment = taCenter
    352           Caption = 'Remote'
    353           Enabled = False
    354           Font.Charset = DEFAULT_CHARSET
    355           Font.Color = clBtnFace
    356           Font.Height = -8
    357           Font.Name = 'MS Sans Serif'
    358           Font.Style = []
    359           ParentFont = False
    360           OnClick = pnlCIRNClick
    361         end
    362         object lblCIRNData: TLabel
    363           Left = 2
    364           Top = 15
    365           Width = 45
    366           Height = 13
    367           Align = alTop
    368           Alignment = taCenter
    369           Caption = 'Data'
    370           Enabled = False
    371           Font.Charset = DEFAULT_CHARSET
    372           Font.Color = clBtnFace
    373           Font.Height = -8
    374           Font.Name = 'MS Sans Serif'
    375           Font.Style = []
    376           ParentFont = False
    377           OnClick = pnlCIRNClick
    378         end
    379         object lblCIRNAvail: TLabel
    380           Left = 2
    381           Top = 28
    382           Width = 45
    383           Height = 9
    384           Align = alClient
    385           Alignment = taCenter
    386           Font.Charset = DEFAULT_CHARSET
    387           Font.Color = clBtnFace
    388           Font.Height = -8
    389           Font.Name = 'MS Sans Serif'
    390           Font.Style = []
    391           ParentFont = False
    392           OnClick = pnlCIRNClick
    393         end
    394       end
    395316      object pnlReminders: TKeyClickPanel
    396         Left = 569
     317        Left = 580
    397318        Top = 1
    398319        Width = 35
    … …  
    436357      end
    437358      object pnlFlag: TKeyClickPanel
    438         Left = 485
     359        Left = 472
    439360        Top = 1
    440361        Width = 35
    … …  
    473394          OnMouseDown = pnlFlagMouseDown
    474395          OnMouseUp = pnlFlagMouseUp
     396          ExplicitWidth = 25
     397          ExplicitHeight = 13
    475398        end
    476399      end
    477400      object pnlPostings: TKeyClickPanel
    478         Left = 604
     401        Left = 615
    479402        Top = 1
    480403        Width = 70
    … …  
    541464      end
    542465      object paVAA: TKeyClickPanel
    543         Left = 425
     466        Left = 412
    544467        Top = 1
    545468        Width = 60
    … …  
    575498        object laMHV: TButton
    576499          Left = 0
    577           Top = 1
     500          Top = 0
    578501          Width = 59
    579502          Height = 18
    … …  
    587510        end
    588511      end
     512      object pnlRemoteData: TKeyClickPanel
     513        Left = 507
     514        Top = 1
     515        Width = 73
     516        Height = 39
     517        Align = alRight
     518        BevelWidth = 2
     519        Caption = 'Remote Data'
     520        Font.Charset = DEFAULT_CHARSET
     521        Font.Color = clBtnFace
     522        Font.Height = -11
     523        Font.Name = 'MS Sans Serif'
     524        Font.Style = []
     525        ParentFont = False
     526        ParentShowHint = False
     527        ShowHint = True
     528        TabOrder = 5
     529        TabStop = True
     530        OnClick = pnlCIRNClick
     531        OnEnter = pnlPrimaryCareEnter
     532        OnExit = pnlPrimaryCareExit
     533        OnMouseDown = pnlCIRNMouseDown
     534        OnMouseUp = pnlCIRNMouseUp
     535        object pnlVistaWeb: TKeyClickPanel
     536          Left = 2
     537          Top = 2
     538          Width = 69
     539          Height = 18
     540          Hint = 'Click to open VistaWeb'
     541          Align = alTop
     542          BevelWidth = 2
     543          Caption = 'VistaWeb'
     544          Font.Charset = DEFAULT_CHARSET
     545          Font.Color = clBtnFace
     546          Font.Height = -11
     547          Font.Name = 'MS Sans Serif'
     548          Font.Style = []
     549          ParentFont = False
     550          ParentShowHint = False
     551          ShowHint = True
     552          TabOrder = 0
     553          TabStop = True
     554          OnClick = pnlVistaWebClick
     555          OnEnter = pnlPrimaryCareEnter
     556          OnExit = pnlPrimaryCareExit
     557          OnMouseDown = pnlVistaWebMouseDown
     558          OnMouseUp = pnlVistaWebMouseUp
     559          object lblVistaWeb: TLabel
     560            Left = 2
     561            Top = 2
     562            Width = 65
     563            Height = 14
     564            Align = alClient
     565            Alignment = taCenter
     566            Caption = 'VistaWeb'
     567            Font.Charset = DEFAULT_CHARSET
     568            Font.Color = clInfoText
     569            Font.Height = -8
     570            Font.Name = 'MS Sans Serif'
     571            Font.Style = []
     572            ParentFont = False
     573            Layout = tlCenter
     574            OnClick = pnlVistaWebClick
     575            ExplicitWidth = 46
     576            ExplicitHeight = 13
     577          end
     578        end
     579        object pnlCIRN: TKeyClickPanel
     580          Left = 2
     581          Top = 20
     582          Width = 69
     583          Height = 17
     584          Align = alClient
     585          BevelWidth = 2
     586          Caption = 'Remote Data'
     587          Font.Charset = DEFAULT_CHARSET
     588          Font.Color = clBtnFace
     589          Font.Height = -11
     590          Font.Name = 'MS Sans Serif'
     591          Font.Style = []
     592          ParentFont = False
     593          ParentShowHint = False
     594          ShowHint = True
     595          TabOrder = 1
     596          TabStop = True
     597          OnClick = pnlCIRNClick
     598          OnEnter = pnlPrimaryCareEnter
     599          OnExit = pnlPrimaryCareExit
     600          OnMouseDown = pnlCIRNMouseDown
     601          OnMouseUp = pnlCIRNMouseUp
     602          object lblCIRN: TLabel
     603            Left = 2
     604            Top = 2
     605            Width = 65
     606            Height = 13
     607            Align = alClient
     608            Alignment = taCenter
     609            Caption = 'Remote Data'
     610            Enabled = False
     611            Font.Charset = DEFAULT_CHARSET
     612            Font.Color = clBtnFace
     613            Font.Height = -8
     614            Font.Name = 'MS Sans Serif'
     615            Font.Style = []
     616            ParentFont = False
     617            Layout = tlCenter
     618            OnClick = pnlCIRNClick
     619            ExplicitWidth = 63
     620          end
     621        end
     622      end
    589623    end
    590624    object stsArea: TStatusBar
    591625      Left = 1
    592       Top = 411
    593       Width = 674
     626      Top = 552
     627      Width = 685
    594628      Height = 21
    595629      Panels = <
    … …  
    615649      PopupMenu = popAlerts
    616650      SizeGrip = False
    617       OnMouseDown = stsAreaMouseDown
    618       OnMouseUp = stsAreaMouseUp
    619       OnDrawPanel = stsAreaDrawPanel
    620651    end
    621652    object tabPage: TTabControl
    622653      Left = 1
    623       Top = 389
    624       Width = 674
     654      Top = 530
     655      Width = 685
    625656      Height = 22
    626657      Align = alBottom
    … …  
    639670      Left = 1
    640671      Top = 42
    641       Width = 674
    642       Height = 347
     672      Width = 685
     673      Height = 488
    643674      Align = alClient
    644675      BevelOuter = bvNone
    … …  
    683714    end
    684715  end
     716  inherited amgrMain: TVA508AccessibilityManager
     717    Left = 8
     718    Top = 48
     719    Data = (
     720      (
     721        'Component = pnlNoPatientSelected'
     722        'Status = stsDefault')
     723      (
     724        'Component = pnlPatientSelected'
     725        'Status = stsDefault')
     726      (
     727        'Component = pnlToolbar'
     728        'Status = stsDefault')
     729      (
     730        'Component = pnlCCOW'
     731        'Status = stsDefault')
     732      (
     733        'Component = pnlPatient'
     734        'Status = stsDefault')
     735      (
     736        'Component = lblPtName'
     737        'Status = stsDefault')
     738      (
     739        'Component = lblPtSSN'
     740        'Status = stsDefault')
     741      (
     742        'Component = lblPtAge'
     743        'Status = stsDefault')
     744      (
     745        'Component = pnlVisit'
     746        'Status = stsDefault')
     747      (
     748        'Component = lblPtLocation'
     749        'Status = stsDefault')
     750      (
     751        'Component = lblPtProvider'
     752        'Status = stsDefault')
     753      (
     754        'Component = pnlPrimaryCare'
     755        'Status = stsDefault')
     756      (
     757        'Component = lblPtCare'
     758        'Status = stsDefault')
     759      (
     760        'Component = lblPtAttending'
     761        'Status = stsDefault')
     762      (
     763        'Component = pnlReminders'
     764        'Status = stsDefault')
     765      (
     766        'Component = anmtRemSearch'
     767        'Status = stsDefault')
     768      (
     769        'Component = pnlFlag'
     770        'Status = stsDefault')
     771      (
     772        'Component = pnlPostings'
     773        'Status = stsDefault')
     774      (
     775        'Component = lblPtPostings'
     776        'Status = stsDefault')
     777      (
     778        'Component = lblPtCWAD'
     779        'Status = stsDefault')
     780      (
     781        'Component = paVAA'
     782        'Status = stsDefault')
     783      (
     784        'Component = laVAA2'
     785        'Property = Hint'
     786        'Status = stsOK')
     787      (
     788        'Component = laMHV'
     789        'Property = Hint'
     790        'Status = stsOK')
     791      (
     792        'Component = stsArea'
     793        'Status = stsDefault')
     794      (
     795        'Component = tabPage'
     796        'Status = stsDefault')
     797      (
     798        'Component = pnlPage'
     799        'Status = stsDefault')
     800      (
     801        'Component = lstCIRNLocations'
     802        'Status = stsDefault')
     803      (
     804        'Component = frmFrame'
     805        'Status = stsDefault')
     806      (
     807        'Component = pnlRemoteData'
     808        'Status = stsDefault')
     809      (
     810        'Component = pnlVistaWeb'
     811        'Status = stsDefault')
     812      (
     813        'Component = pnlCIRN'
     814        'Status = stsDefault'))
     815  end
    685816  object mnuFrame: TMainMenu
    686817    Left = 180
    … …  
    819950            OnClick = mnuFontSizeClick
    820951          end
    821           object mnu24pt1: TMenuItem
    822             Tag = 24
    823             Caption = '24 pt'
    824             RadioItem = True
    825             OnClick = mnuFontSizeClick
    826           end
    827952        end
    828953      end
    … …  
    10291154    object mnuAlertContinue: TMenuItem
    10301155      Caption = 'Continue'
     1156      ShortCut = 16451
    10311157      OnClick = mnuFileNextClick
    10321158    end
    10331159    object mnuAlertForward: TMenuItem
    10341160      Caption = 'Forward'
     1161      ShortCut = 16454
    10351162      OnClick = mnuAlertForwardClick
    10361163    end
    10371164    object mnuAlertRenew: TMenuItem
    10381165      Caption = 'Renew'
     1166      ShortCut = 16466
    10391167      OnClick = mnuAlertRenewClick
    10401168    end
    … …  
    10461174    Top = 256
    10471175  end
     1176  object compAccessTabPage: TVA508ComponentAccessibility
     1177    Component = tabPage
     1178    OnCaptionQuery = compAccessTabPageCaptionQuery
     1179    Left = 56
     1180    Top = 48
     1181  end
    10481182end
Note: See TracChangeset for help on using the changeset viewer.