Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Consults/fConsults.dfm

    r456 r829  
    11inherited frmConsults: TfrmConsults
    2   Left = 247
    3   Top = 174
    4   Width = 723
    5   Height = 467
     2  Left = 402
     3  Top = 80
    64  HelpContext = 6000
    75  Caption = 'Consults Page'
     6  ClientHeight = 421
     7  ClientWidth = 715
    88  Menu = mnuConsults
    99  OnDestroy = FormDestroy
    1010  OnHide = FormHide
    11   OnMouseMove = FormMouseMove
    1211  OnShow = FormShow
     12  ExplicitWidth = 723
     13  ExplicitHeight = 467
    1314  PixelsPerInch = 96
    1415  TextHeight = 13
    … …  
    1617    Top = 416
    1718    Width = 715
     19    ExplicitTop = 416
     20    ExplicitWidth = 715
    1821  end
    1922  inherited sptHorz: TSplitter
    … …  
    2225    Height = 416
    2326    OnCanResize = sptHorzCanResize
     27    ExplicitLeft = 83
     28    ExplicitWidth = 2
     29    ExplicitHeight = 416
    2430  end
    2531  inherited pnlRight: TPanel [2]
    … …  
    2733    Width = 630
    2834    Height = 416
     35    OnExit = pnlRightExit
    2936    OnResize = pnlRightResize
     37    ExplicitLeft = 85
     38    ExplicitWidth = 630
     39    ExplicitHeight = 416
    3040    object sptVert: TSplitter
    3141      Left = 0
    … …  
    4454      BevelOuter = bvNone
    4555      TabOrder = 0
    46       OnExit = pnlResultsExit
    4756      object lblTitle: TOROffsetLabel
    4857        Left = 0
    … …  
    91100        WantReturns = False
    92101        WordWrap = False
    93         OnMouseMove = FormMouseMove
    94102      end
    95103    end
    … …  
    112120      BevelOuter = bvNone
    113121      TabOrder = 1
    114       OnExit = pnlResultsExit
    115122      OnResize = pnlResultsResize
    116123      object memResults: TRichEdit
    … …  
    132139        OnChange = memResultChange
    133140        OnKeyDown = memResultsKeyDown
    134         OnMouseMove = FormMouseMove
    135141      end
    136142      object pnlFields: TPanel
    … …  
    240246          TabOrder = 0
    241247          OnClick = cmdChangeClick
    242           OnMouseMove = FormMouseMove
    243248        end
    244249        object txtSubject: TCaptionEdit
    … …  
    254259          TabOrder = 1
    255260          Text = 'txtSubject'
    256           OnMouseMove = FormMouseMove
    257261          Caption = 'Subject'
    258262        end
    … …  
    263267    Width = 83
    264268    Height = 416
     269    OnExit = pnlLeftExit
    265270    OnResize = pnlLeftResize
     271    ExplicitWidth = 83
     272    ExplicitHeight = 416
    266273    object splConsults: TSplitter
    267274      Left = 0
    … …  
    280287      BevelOuter = bvNone
    281288      TabOrder = 1
    282       OnExit = pnlActionExit
    283289      object splDrawers: TSplitter
    284290        Left = 0
    … …  
    294300        Width = 83
    295301        Height = 21
     302        Align = alTop
    296303        Caption = 'New Consult'
    297304        Constraints.MinHeight = 21
    298         TabOrder = 2
     305        Default = True
     306        TabOrder = 1
    299307        OnClick = cmdNewConsultClick
    300         OnMouseMove = FormMouseMove
    301         Align = alTop
     308        OnExit = cmdNewConsultExit
    302309      end
    303310      object cmdNewProc: TORAlignButton
    … …  
    306313        Width = 83
    307314        Height = 21
     315        Align = alTop
    308316        Caption = 'New Procedure'
    309317        Constraints.MinHeight = 21
    310         TabOrder = 3
     318        TabOrder = 2
    311319        OnClick = cmdNewProcClick
    312         OnMouseMove = FormMouseMove
    313         Align = alTop
    314320      end
    315321      object cmdEditResubmit: TORAlignButton
    … …  
    318324        Width = 83
    319325        Height = 21
     326        Align = alTop
    320327        Caption = 'Edit/Resubmit'
    321328        Constraints.MinHeight = 21
    … …  
    326333        Font.Style = []
    327334        ParentFont = False
    328         TabOrder = 1
     335        TabOrder = 0
    329336        Visible = False
    330337        OnClick = cmdEditResubmitClick
    331         OnMouseMove = FormMouseMove
    332         Align = alTop
     338        OnExit = cmdEditResubmitExit
    333339      end
    334340      object lstNotes: TORListBox
    … …  
    345351        Visible = False
    346352        OnClick = lstNotesClick
    347         OnMouseMove = FormMouseMove
    348353        ItemTipColor = clWindow
    349354        LongList = False
    … …  
    359364        Constraints.MinWidth = 30
    360365        HideSelection = False
     366        Images = dmodShared.imgNotes
    361367        Indent = 19
    362368        PopupMenu = popNoteList
    363369        ReadOnly = True
    364         TabOrder = 0
     370        StateImages = dmodShared.imgImages
     371        TabOrder = 3
    365372        OnChange = tvCsltNotesChange
    366373        OnClick = tvCsltNotesClick
    … …  
    369376        OnDragOver = tvCsltNotesDragOver
    370377        OnExpanded = tvCsltNotesExpanded
    371         OnMouseMove = FormMouseMove
    372378        OnStartDrag = tvCsltNotesStartDrag
    373379        Caption = 'Consult Notes'
    … …  
    380386      Width = 83
    381387      Height = 21
     388      Align = alBottom
    382389      Caption = 'Encounter'
    383390      Enabled = False
    … …  
    385392      Visible = False
    386393      OnClick = cmdPCEClick
    387       OnExit = pnlActionExit
    388       OnMouseMove = FormMouseMove
    389       Align = alBottom
    390394    end
    391395    object pnlConsultList: TPanel
    … …  
    436440        Align = alClient
    437441        HideSelection = False
    438         Indent = 15
     442        Images = dmodShared.imgConsults
     443        Indent = 19
    439444        PopupMenu = popNoteList
    440445        ReadOnly = True
    441446        TabOrder = 0
    442         OnAddition = tvConsultsAddition
    443447        OnClick = tvConsultsClick
    444448        OnCollapsed = tvConsultsCollapsed
    445         OnDeletion = tvConsultsDeletion
    446449        OnExit = tvConsultsExit
    447450        OnExpanded = tvConsultsExpanded
    448451        OnKeyUp = tvConsultsKeyUp
    449         OnMouseMove = FormMouseMove
    450452        Caption = 'Consults'
    451453        NodePiece = 0
    … …  
    453455      end
    454456    end
     457  end
     458  inherited amgrMain: TVA508AccessibilityManager
     459    Data = (
     460      (
     461        'Component = pnlRead'
     462        'Status = stsDefault')
     463      (
     464        'Component = memConsult'
     465        'Status = stsDefault')
     466      (
     467        'Component = memPCEShow'
     468        'Status = stsDefault')
     469      (
     470        'Component = pnlResults'
     471        'Status = stsDefault')
     472      (
     473        'Component = memResults'
     474        'Status = stsDefault')
     475      (
     476        'Component = pnlFields'
     477        'Status = stsDefault')
     478      (
     479        'Component = lblRefDate'
     480        'Status = stsDefault')
     481      (
     482        'Component = lblAuthor'
     483        'Status = stsDefault')
     484      (
     485        'Component = lblVisit'
     486        'Status = stsDefault')
     487      (
     488        'Component = lblCosigner'
     489        'Status = stsDefault')
     490      (
     491        'Component = lblSubject'
     492        'Status = stsDefault')
     493      (
     494        'Component = lblNewTitle'
     495        'Status = stsDefault')
     496      (
     497        'Component = cmdChange'
     498        'Status = stsDefault')
     499      (
     500        'Component = txtSubject'
     501        'Status = stsDefault')
     502      (
     503        'Component = pnlAction'
     504        'Status = stsDefault')
     505      (
     506        'Component = cmdNewConsult'
     507        'Status = stsDefault')
     508      (
     509        'Component = cmdNewProc'
     510        'Status = stsDefault')
     511      (
     512        'Component = cmdEditResubmit'
     513        'Status = stsDefault')
     514      (
     515        'Component = lstNotes'
     516        'Status = stsDefault')
     517      (
     518        'Component = tvCsltNotes'
     519        'Status = stsDefault')
     520      (
     521        'Component = cmdPCE'
     522        'Status = stsDefault')
     523      (
     524        'Component = pnlConsultList'
     525        'Status = stsDefault')
     526      (
     527        'Component = lstConsults'
     528        'Status = stsDefault')
     529      (
     530        'Component = tvConsults'
     531        'Status = stsDefault')
     532      (
     533        'Component = pnlLeft'
     534        'Status = stsDefault')
     535      (
     536        'Component = pnlRight'
     537        'Status = stsDefault')
     538      (
     539        'Component = frmConsults'
     540        'Status = stsDefault'))
    455541  end
    456542  object popNoteMemo: TPopupMenu
    … …  
    10441130    Top = 303
    10451131  end
     1132  object imgLblNotes: TVA508ImageListLabeler
     1133    Components = <
     1134      item
     1135        Component = tvCsltNotes
     1136      end>
     1137    Labels = <>
     1138    RemoteLabeler = dmodShared.imgLblNotes
     1139    Left = 16
     1140    Top = 48
     1141  end
     1142  object imgLblImages: TVA508ImageListLabeler
     1143    Components = <
     1144      item
     1145        Component = tvCsltNotes
     1146      end>
     1147    Labels = <>
     1148    RemoteLabeler = dmodShared.imgLblImages
     1149    Left = 8
     1150    Top = 88
     1151  end
     1152  object imgLblConsults: TVA508ImageListLabeler
     1153    Components = <
     1154      item
     1155        Component = tvConsults
     1156      end>
     1157    Labels = <>
     1158    RemoteLabeler = dmodShared.imgLblConsults
     1159    Left = 56
     1160    Top = 96
     1161  end
    10461162end
Note: See TracChangeset for help on using the changeset viewer.