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

    r456 r830  
    11inherited frmNotes: TfrmNotes
    2   Left = 307
    3   Top = 177
    4   Width = 687
    5   Height = 409
     2  Left = 402
     3  Top = 171
    64  HelpContext = 5000
    75  Caption = 'Progress Notes Page'
     6  ClientHeight = 394
     7  ClientWidth = 679
    88  HelpFile = 'overvw'
    9   KeyPreview = True
    109  Menu = mnuNotes
    1110  OnDestroy = FormDestroy
    1211  OnHide = FormHide
    13   OnMouseMove = FormMouseMove
    1412  OnShow = FormShow
     13  ExplicitWidth = 687
     14  ExplicitHeight = 440
    1515  PixelsPerInch = 96
    1616  TextHeight = 13
    1717  inherited shpPageBottom: TShape
    18     Top = 358
     18    Top = 389
    1919    Width = 679
     20    ExplicitTop = 358
     21    ExplicitWidth = 679
    2022  end
    2123  inherited sptHorz: TSplitter
    2224    Left = 64
    23     Height = 358
     25    Height = 389
    2426    OnCanResize = sptHorzCanResize
     27    ExplicitLeft = 64
     28    ExplicitHeight = 358
    2529  end
    2630  inherited pnlLeft: TPanel
    2731    Width = 64
    28     Height = 358
     32    Height = 389
     33    ExplicitWidth = 64
     34    ExplicitHeight = 389
    2935    object lblNotes: TOROffsetLabel
    3036      Left = 0
    … …  
    4349    object lblSpace1: TLabel
    4450      Left = 0
    45       Top = 313
     51      Top = 344
    4652      Width = 64
    4753      Height = 3
    … …  
    4955      AutoSize = False
    5056      Caption = ' '
     57      ExplicitTop = 313
    5158    end
    5259    object cmdNewNote: TORAlignButton
    5360      Left = 0
    54       Top = 316
     61      Top = 347
    5562      Width = 64
    5663      Height = 21
     64      Align = alBottom
    5765      Caption = 'New Note'
    5866      TabOrder = 1
    5967      OnClick = cmdNewNoteClick
    6068      OnExit = cmdNewNoteExit
    61       OnMouseMove = FormMouseMove
    62       Align = alBottom
    6369    end
    6470    object cmdPCE: TORAlignButton
    6571      Left = 0
    66       Top = 337
     72      Top = 368
    6773      Width = 64
    6874      Height = 21
     75      Align = alBottom
    6976      Caption = 'Encounter'
    7077      TabOrder = 2
    … …  
    7279      OnClick = cmdPCEClick
    7380      OnExit = cmdPCEExit
    74       OnMouseMove = FormMouseMove
    75       Align = alBottom
    7681    end
    7782    object pnlDrawers: TPanel
    … …  
    7984      Top = 19
    8085      Width = 64
    81       Height = 294
     86      Height = 325
    8287      Align = alClient
    8388      BevelOuter = bvNone
    … …  
    8590      object splDrawers: TSplitter
    8691        Left = 0
    87         Top = 291
     92        Top = 322
    8893        Width = 64
    8994        Height = 3
    9095        Cursor = crVSplit
    9196        Align = alBottom
     97        ExplicitTop = 291
    9298      end
    9399      object lstNotes: TORListBox
    … …  
    115121        Top = 0
    116122        Width = 64
    117         Height = 291
     123        Height = 322
    118124        Align = alClient
    119125        Constraints.MinWidth = 30
    120126        HideSelection = False
     127        Images = dmodShared.imgNotes
    121128        Indent = 19
    122129        PopupMenu = popNoteList
    123130        ReadOnly = True
     131        StateImages = dmodShared.imgImages
    124132        TabOrder = 1
    125         OnAddition = tvNotesAddition
    126133        OnChange = tvNotesChange
    127134        OnClick = tvNotesClick
    128135        OnCollapsed = tvNotesCollapsed
    129         OnDeletion = tvNotesDeletion
    130136        OnDragDrop = tvNotesDragDrop
    131137        OnDragOver = tvNotesDragOver
    132138        OnExit = tvNotesExit
    133139        OnExpanded = tvNotesExpanded
    134         OnMouseMove = FormMouseMove
    135140        OnStartDrag = tvNotesStartDrag
    136141        Caption = 'Last 100 Notes'
    … …  
    143148    Left = 68
    144149    Width = 611
    145     Height = 358
     150    Height = 389
     151    ExplicitLeft = 68
     152    ExplicitWidth = 611
     153    ExplicitHeight = 389
    146154    object sptVert: TSplitter
    147155      Left = 0
    148       Top = 309
     156      Top = 340
    149157      Width = 611
    150158      Height = 4
    151159      Cursor = crVSplit
    152160      Align = alBottom
     161      ExplicitTop = 309
    153162    end
    154163    object memPCEShow: TRichEdit
    155164      Left = 0
    156       Top = 313
     165      Top = 344
    157166      Width = 611
    158167      Height = 45
    … …  
    171180      Top = 0
    172181      Width = 611
    173       Height = 309
     182      Height = 340
    174183      Align = alClient
    175184      BevelOuter = bvNone
    … …  
    181190        Top = 67
    182191        Width = 611
    183         Height = 242
     192        Height = 273
    184193        Align = alClient
    185194        Font.Charset = DEFAULT_CHARSET
    … …  
    301310          Width = 58
    302311          Height = 21
    303           Anchors = [akTop, akRight]
    304312          Caption = 'Change...'
    305313          TabOrder = 0
    … …  
    327335      Top = 0
    328336      Width = 611
    329       Height = 309
     337      Height = 340
    330338      Align = alClient
    331339      BevelOuter = bvNone
    … …  
    356364        Top = 116
    357365        Width = 611
    358         Height = 193
     366        Height = 224
    359367        Align = alClient
    360368        Color = clCream
    … …  
    377385        TabOrder = 1
    378386        WordWrap = False
    379         OnMouseMove = FormMouseMove
    380387      end
    381388      object lvNotes: TCaptionListView
    … …  
    418425        ReadOnly = True
    419426        RowSelect = True
     427        SmallImages = dmodShared.imgNotes
     428        StateImages = dmodShared.imgImages
    420429        TabOrder = 0
    421430        ViewStyle = vsReport
    … …  
    423432        OnColumnClick = lvNotesColumnClick
    424433        OnCompare = lvNotesCompare
    425         OnMouseMove = FormMouseMove
    426434        OnResize = lvNotesResize
    427435        OnSelectItem = lvNotesSelectItem
    … …  
    429437      end
    430438    end
     439  end
     440  inherited amgrMain: TVA508AccessibilityManager
     441    Data = (
     442      (
     443        'Component = cmdNewNote'
     444        'Status = stsDefault')
     445      (
     446        'Component = cmdPCE'
     447        'Status = stsDefault')
     448      (
     449        'Component = pnlDrawers'
     450        'Status = stsDefault')
     451      (
     452        'Component = lstNotes'
     453        'Status = stsDefault')
     454      (
     455        'Component = tvNotes'
     456        'Status = stsDefault')
     457      (
     458        'Component = memPCEShow'
     459        'Text = Encounter Information'
     460        'Status = stsOK')
     461      (
     462        'Component = pnlWrite'
     463        'Status = stsDefault')
     464      (
     465        'Component = memNewNote'
     466        'Status = stsDefault')
     467      (
     468        'Component = pnlFields'
     469        'Status = stsDefault')
     470      (
     471        'Component = lblRefDate'
     472        'Status = stsDefault')
     473      (
     474        'Component = lblAuthor'
     475        'Status = stsDefault')
     476      (
     477        'Component = lblVisit'
     478        'Status = stsDefault')
     479      (
     480        'Component = lblCosigner'
     481        'Status = stsDefault')
     482      (
     483        'Component = lblSubject'
     484        'Status = stsDefault')
     485      (
     486        'Component = lblNewTitle'
     487        'Status = stsDefault')
     488      (
     489        'Component = cmdChange'
     490        'Status = stsDefault')
     491      (
     492        'Component = txtSubject'
     493        'Status = stsDefault')
     494      (
     495        'Component = pnlRead'
     496        'Status = stsDefault')
     497      (
     498        'Component = memNote'
     499        'Status = stsDefault')
     500      (
     501        'Component = lvNotes'
     502        'Status = stsDefault')
     503      (
     504        'Component = pnlLeft'
     505        'Status = stsDefault')
     506      (
     507        'Component = pnlRight'
     508        'Status = stsDefault')
     509      (
     510        'Component = frmNotes'
     511        'Status = stsDefault'))
    431512  end
    432513  object mnuNotes: TMainMenu
    … …  
    640721        OnClick = mnuActDetachFromIDParentClick
    641722      end
     723      object mnuEncounter: TMenuItem
     724        Caption = 'Encounte&r'
     725        ShortCut = 24658
     726        OnClick = cmdPCEClick
     727      end
    642728      object Z4: TMenuItem
    643729        Caption = '-'
    … …  
    834920      OnClick = cmdPCEClick
    835921    end
     922    object popNoteMemoViewCslt: TMenuItem
     923      Caption = 'View Consult Details'
     924      ShortCut = 24661
     925      OnClick = popNoteMemoViewCsltClick
     926    end
    836927  end
    837928  object popNoteList: TPopupMenu
    … …  
    9281019    Top = 312
    9291020  end
     1021  object imgLblNotes: TVA508ImageListLabeler
     1022    Components = <
     1023      item
     1024        Component = lvNotes
     1025      end
     1026      item
     1027        Component = tvNotes
     1028      end>
     1029    Labels = <>
     1030    RemoteLabeler = dmodShared.imgLblNotes
     1031    Left = 16
     1032    Top = 195
     1033  end
     1034  object imgLblImages: TVA508ImageListLabeler
     1035    Components = <
     1036      item
     1037        Component = lvNotes
     1038      end
     1039      item
     1040        Component = tvNotes
     1041      end>
     1042    Labels = <>
     1043    RemoteLabeler = dmodShared.imgLblImages
     1044    Left = 16
     1045    Top = 235
     1046  end
    9301047end
Note: See TracChangeset for help on using the changeset viewer.