Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (10 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/fFrame.dfm

    r830 r1679  
    11inherited frmFrame: TfrmFrame
    2   Left = 196
    3   Top = 119
     2  Left = 219
     3  Top = 102
    44  Caption = 'p'
    5   ClientHeight = 574
    6   ClientWidth = 687
     5  ClientHeight = 633
     6  ClientWidth = 793
    77  FormStyle = fsMDIForm
    88  Menu = mnuFrame
    … …  
    1616  OnHelp = FormHelp
    1717  OnResize = FormResize
    18   ExplicitLeft = 196
    19   ExplicitTop = 119
    20   ExplicitWidth = 695
    21   ExplicitHeight = 620
     18  ExplicitWidth = 801
     19  ExplicitHeight = 687
    2220  PixelsPerInch = 96
    2321  TextHeight = 13
    … …  
    2523    Left = 0
    2624    Top = 0
    27     Width = 687
    28     Height = 574
     25    Width = 793
     26    Height = 633
    2927    Align = alClient
    3028    Caption = 'No patient is currently selected'
    … …  
    4139    Left = 0
    4240    Top = 0
    43     Width = 687
    44     Height = 574
     41    Width = 793
     42    Height = 633
    4543    Align = alClient
    4644    TabOrder = 0
    … …  
    4846      Left = 1
    4947      Top = 41
    50       Width = 685
     48      Width = 791
    5149      Height = 1
    5250      Align = alTop
    … …  
    5654      Left = 1
    5755      Top = 1
    58       Width = 685
     56      Width = 791
    5957      Height = 40
    6058      Align = alTop
    6159      BevelOuter = bvNone
    62       Caption = 'object pnlRemoteData: TKeyClickPanel'
    6360      TabOrder = 0
    6461      object bvlToolTop: TBevel
    6562        Left = 0
    6663        Top = 0
    67         Width = 685
     64        Width = 791
    6865        Height = 1
    6966        Align = alTop
    … …  
    164161          Left = 6
    165162          Top = 19
    166           Width = 4
    167           Height = 4
     163          Width = 64
     164          Height = 17
     165          Caption = '000-00-0000'
    168166          Font.Charset = DEFAULT_CHARSET
    169167          Font.Color = clInfoText
    … …  
    220218        OnEnter = pnlPrimaryCareEnter
    221219        OnExit = pnlPrimaryCareExit
     220        OnMouseDown = pnlVisitMouseDown
     221        OnMouseUp = pnlVisitMouseUp
    222222        object lblPtLocation: TStaticText
    223223          Left = 6
    … …  
    236236          TabOrder = 0
    237237          OnClick = pnlVisitClick
     238          OnMouseDown = pnlVisitMouseDown
     239          OnMouseUp = pnlVisitMouseUp
    238240        end
    239241        object lblPtProvider: TStaticText
    … …  
    252254          TabOrder = 1
    253255          OnClick = pnlVisitClick
     256          OnMouseDown = pnlVisitMouseDown
     257          OnMouseUp = pnlVisitMouseUp
    254258        end
    255259      end
    … …  
    257261        Left = 345
    258262        Top = 1
    259         Width = 67
     263        Width = 117
    260264        Height = 39
    261265        Hint = 'Primary Care Team / Primary Care Provider'
    … …  
    315319      end
    316320      object pnlReminders: TKeyClickPanel
    317         Left = 580
     321        Left = 686
    318322        Top = 1
    319323        Width = 35
    … …  
    356360        end
    357361      end
    358       object pnlFlag: TKeyClickPanel
    359         Left = 472
    360         Top = 1
    361         Width = 35
    362         Height = 39
    363         Hint = 'Click to display patient record flags.'
    364         Align = alRight
    365         BevelWidth = 2
    366         Caption = 'Flag'
    367         ParentShowHint = False
    368         ShowHint = True
    369         TabOrder = 4
    370         TabStop = True
    371         OnClick = pnlFlagClick
    372         OnEnter = pnlFlagEnter
    373         OnExit = pnlFlagExit
    374         OnMouseDown = pnlFlagMouseDown
    375         OnMouseUp = pnlFlagMouseUp
    376         object lblFlag: TLabel
    377           Left = 2
    378           Top = 2
    379           Width = 31
    380           Height = 35
    381           Align = alClient
    382           Alignment = taCenter
    383           Caption = 'Flag'
    384           Enabled = False
    385           Font.Charset = DEFAULT_CHARSET
    386           Font.Color = clBtnFace
    387           Font.Height = -11
    388           Font.Name = 'MS Sans Serif'
    389           Font.Style = [fsBold]
    390           ParentFont = False
    391           Layout = tlCenter
    392           WordWrap = True
    393           OnClick = pnlFlagClick
    394           OnMouseDown = pnlFlagMouseDown
    395           OnMouseUp = pnlFlagMouseUp
    396           ExplicitWidth = 25
    397           ExplicitHeight = 13
    398         end
    399       end
    400362      object pnlPostings: TKeyClickPanel
    401         Left = 615
     363        Left = 721
    402364        Top = 1
    403365        Width = 70
    … …  
    464426      end
    465427      object paVAA: TKeyClickPanel
    466         Left = 412
     428        Left = 462
    467429        Top = 1
    468430        Width = 60
    … …  
    510472        end
    511473      end
     474      object pnlCVnFlag: TPanel
     475        Left = 522
     476        Top = 1
     477        Width = 91
     478        Height = 39
     479        Align = alRight
     480        TabOrder = 4
     481        object btnCombatVet: TButton
     482          Left = 1
     483          Top = 20
     484          Width = 89
     485          Height = 18
     486          Hint = 'Click to display combat veteran eligibility details.'
     487          Align = alBottom
     488          Caption = 'CV JAN 30, 2008'
     489          ParentShowHint = False
     490          ShowHint = True
     491          TabOrder = 1
     492          OnClick = btnCombatVetClick
     493        end
     494        object pnlFlag: TKeyClickPanel
     495          Left = 1
     496          Top = 1
     497          Width = 89
     498          Height = 19
     499          Hint = 'Click to display patient record flags.'
     500          Align = alClient
     501          BevelWidth = 2
     502          ParentShowHint = False
     503          ShowHint = True
     504          TabOrder = 0
     505          TabStop = True
     506          OnClick = pnlFlagClick
     507          OnEnter = pnlFlagEnter
     508          OnExit = pnlFlagExit
     509          OnMouseDown = pnlFlagMouseDown
     510          OnMouseUp = pnlFlagMouseUp
     511          object lblFlag: TLabel
     512            Left = 2
     513            Top = 2
     514            Width = 85
     515            Height = 15
     516            Align = alClient
     517            Alignment = taCenter
     518            Caption = 'Flag'
     519            Enabled = False
     520            Font.Charset = DEFAULT_CHARSET
     521            Font.Color = clBtnFace
     522            Font.Height = -11
     523            Font.Name = 'MS Sans Serif'
     524            Font.Style = [fsBold]
     525            ParentFont = False
     526            Layout = tlCenter
     527            WordWrap = True
     528            OnClick = pnlFlagClick
     529            OnMouseDown = pnlFlagMouseDown
     530            OnMouseUp = pnlFlagMouseUp
     531            ExplicitWidth = 25
     532            ExplicitHeight = 13
     533          end
     534        end
     535      end
    512536      object pnlRemoteData: TKeyClickPanel
    513         Left = 507
     537        Left = 613
    514538        Top = 1
    515539        Width = 73
    … …  
    624648    object stsArea: TStatusBar
    625649      Left = 1
    626       Top = 552
    627       Width = 685
     650      Top = 611
     651      Width = 791
    628652      Height = 21
    629653      Panels = <
    … …  
    652676    object tabPage: TTabControl
    653677      Left = 1
    654       Top = 530
    655       Width = 685
     678      Top = 589
     679      Width = 791
    656680      Height = 22
    657681      Align = alBottom
    … …  
    665689      TabPosition = tpBottom
    666690      OnChange = tabPageChange
     691      OnMouseDown = tabPageMouseDown
    667692      OnMouseUp = tabPageMouseUp
    668693    end
    … …  
    670695      Left = 1
    671696      Top = 42
    672       Width = 685
    673       Height = 488
     697      Width = 791
     698      Height = 547
    674699      Align = alClient
    675700      BevelOuter = bvNone
    … …  
    767792        'Status = stsDefault')
    768793      (
    769         'Component = pnlFlag'
    770         'Status = stsDefault')
    771       (
    772794        'Component = pnlPostings'
    773795        'Status = stsDefault')
    … …  
    803825      (
    804826        'Component = frmFrame'
     827        'Status = stsDefault')
     828      (
     829        'Component = pnlCVnFlag'
     830        'Status = stsDefault')
     831      (
     832        'Component = btnCombatVet'
     833        'Status = stsDefault')
     834      (
     835        'Component = pnlFlag'
    805836        'Status = stsDefault')
    806837      (
    … …  
    894925        ShortCut = 16474
    895926        OnClick = mnuEditUndoClick
     927      end
     928      object mnuEditRedo: TMenuItem
     929        Caption = 'Re&do'
     930        ShortCut = 16473
     931        OnClick = mnuEditRedoClick
    896932      end
    897933      object Z3: TMenuItem
    … …  
    10721108      Caption = '&Tools'
    10731109      GroupIndex = 8
    1074       OnClick = mnuToolsClick
    10751110      object Z8: TMenuItem
    10761111        Caption = '-'
    … …  
    11291164  object popCIRN: TPopupMenu
    11301165    Left = 539
    1131     Top = 60
     1166    Top = 148
    11321167    object popCIRNSelectAll: TMenuItem
    11331168      Caption = 'Select All'
Note: See TracChangeset for help on using the changeset viewer.