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

    r456 r830  
    11inherited frmSurgery: TfrmSurgery
    2   Left = 521
    3   Top = 221
    4   Width = 720
    5   Height = 409
     2  Left = 468
     3  Top = 224
    64  Align = alClient
    75  Caption = 'Surgery Page'
     6  ClientHeight = 363
     7  ClientWidth = 712
    88  HelpFile = 'overvw'
    99  Menu = mnuNotes
    1010  OnDestroy = FormDestroy
     11  ExplicitLeft = 468
     12  ExplicitTop = 224
     13  ExplicitWidth = 720
     14  ExplicitHeight = 417
    1115  PixelsPerInch = 96
    1216  TextHeight = 13
    … …  
    1418    Top = 358
    1519    Width = 712
     20    ExplicitTop = 358
     21    ExplicitWidth = 712
    1622  end
    1723  inherited sptHorz: TSplitter
    … …  
    2026    AutoSnap = False
    2127    OnCanResize = sptHorzCanResize
     28    ExplicitLeft = 64
     29    ExplicitHeight = 358
    2230  end
    2331  inherited pnlLeft: TPanel
    2432    Width = 64
    2533    Height = 358
     34    ExplicitWidth = 64
     35    ExplicitHeight = 358
    2636    object lblCases: TOROffsetLabel
    2737      Left = 0
    … …  
    5262      Width = 64
    5363      Height = 21
     64      Align = alBottom
    5465      Caption = 'New Report'
    5566      TabOrder = 0
    5667      Visible = False
    5768      OnClick = cmdNewNoteClick
    58       Align = alBottom
    5969    end
    6070    object cmdPCE: TORAlignButton
    … …  
    6373      Width = 64
    6474      Height = 21
     75      Align = alBottom
    6576      Caption = 'Encounter'
    6677      TabOrder = 1
    6778      Visible = False
    6879      OnClick = cmdPCEClick
    69       Align = alBottom
    7080    end
    7181    object pnlDrawers: TPanel
    … …  
    108118        DragMode = dmAutomatic
    109119        HideSelection = False
     120        Images = dmodShared.imgSurgery
    110121        Indent = 19
    111122        PopupMenu = popNoteList
    112123        ReadOnly = True
     124        StateImages = dmodShared.imgImages
    113125        TabOrder = 0
    114         OnAddition = tvSurgeryAddition
    115126        OnChange = tvSurgeryChange
    116127        OnCollapsed = tvSurgeryCollapsed
    117         OnDeletion = tvSurgeryDeletion
    118128        OnExpanded = tvSurgeryExpanded
    119129        Caption = 'Last 100 Surgery Cases'
    … …  
    127137    Width = 644
    128138    Height = 358
     139    ExplicitLeft = 68
     140    ExplicitWidth = 644
     141    ExplicitHeight = 358
    129142    object sptVert: TSplitter
    130143      Left = 0
    … …  
    354367    end
    355368  end
     369  inherited amgrMain: TVA508AccessibilityManager
     370    Data = (
     371      (
     372        'Component = cmdNewNote'
     373        'Status = stsDefault')
     374      (
     375        'Component = cmdPCE'
     376        'Status = stsDefault')
     377      (
     378        'Component = pnlDrawers'
     379        'Status = stsDefault')
     380      (
     381        'Component = lstNotes'
     382        'Status = stsDefault')
     383      (
     384        'Component = tvSurgery'
     385        'Status = stsDefault')
     386      (
     387        'Component = pnlRead'
     388        'Status = stsDefault')
     389      (
     390        'Component = memSurgery'
     391        'Status = stsDefault')
     392      (
     393        'Component = memPCEShow'
     394        'Status = stsDefault')
     395      (
     396        'Component = pnlWrite'
     397        'Status = stsDefault')
     398      (
     399        'Component = memNewNote'
     400        'Status = stsDefault')
     401      (
     402        'Component = pnlFields'
     403        'Status = stsDefault')
     404      (
     405        'Component = cmdChange'
     406        'Status = stsDefault')
     407      (
     408        'Component = txtSubject'
     409        'Status = stsDefault')
     410      (
     411        'Component = pnlLeft'
     412        'Status = stsDefault')
     413      (
     414        'Component = pnlRight'
     415        'Status = stsDefault')
     416      (
     417        'Component = frmSurgery'
     418        'Status = stsDefault'))
     419  end
    356420  object mnuNotes: TMainMenu
    357421    Left = 600
    … …  
    866930    Top = 312
    867931  end
     932  object imgLblImages: TVA508ImageListLabeler
     933    Components = <
     934      item
     935        Component = tvSurgery
     936      end>
     937    Labels = <>
     938    RemoteLabeler = dmodShared.imgLblImages
     939    Left = 16
     940    Top = 139
     941  end
     942  object imgLblSurgery: TVA508ImageListLabeler
     943    Components = <
     944      item
     945        Component = tvSurgery
     946      end>
     947    Labels = <>
     948    RemoteLabeler = dmodShared.imgLblSurgery
     949    Left = 24
     950    Top = 203
     951  end
    868952end
Note: See TracChangeset for help on using the changeset viewer.