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

    r456 r830  
    11inherited frmDCSumm: TfrmDCSumm
    2   Left = 488
    3   Top = 83
    4   Width = 687
    5   Height = 409
     2  Left = 1291
     3  Top = 197
    64  HelpContext = 7000
    75  Caption = 'Discharge Summary Page'
     6  ClientHeight = 382
     7  ClientWidth = 679
    88  HelpFile = 'overvw'
    99  Menu = mnuSumms
    1010  OnDestroy = FormDestroy
     11  ExplicitWidth = 687
     12  ExplicitHeight = 428
    1113  PixelsPerInch = 96
    1214  TextHeight = 13
    1315  inherited shpPageBottom: TShape
    14     Top = 358
     16    Top = 377
    1517    Width = 679
     18    ExplicitTop = 358
     19    ExplicitWidth = 679
    1620  end
    1721  inherited sptHorz: TSplitter
    1822    Left = 64
    1923    Width = 3
    20     Height = 358
     24    Height = 377
    2125    OnCanResize = sptHorzCanResize
     26    ExplicitLeft = 64
     27    ExplicitWidth = 3
     28    ExplicitHeight = 358
    2229  end
    2330  inherited pnlLeft: TPanel
    2431    Width = 64
    25     Height = 358
     32    Height = 377
     33    ExplicitWidth = 64
     34    ExplicitHeight = 377
    2635    object lblSumms: TOROffsetLabel
    2736      Left = 0
    … …  
    4049    object lblSpace1: TLabel
    4150      Left = 0
    42       Top = 334
     51      Top = 353
    4352      Width = 64
    4453      Height = 3
    … …  
    4655      AutoSize = False
    4756      Caption = ' '
     57      ExplicitTop = 334
    4858    end
    4959    object cmdNewSumm: TORAlignButton
    5060      Left = 0
    51       Top = 313
     61      Top = 332
    5262      Width = 64
    5363      Height = 21
     64      Align = alBottom
    5465      Caption = 'New Summary'
    5566      TabOrder = 1
    5667      OnClick = cmdNewSummClick
    57       Align = alBottom
    5868    end
    5969    object cmdPCE: TORAlignButton
    6070      Left = 0
    61       Top = 337
     71      Top = 356
    6272      Width = 64
    6373      Height = 21
     74      Align = alBottom
    6475      Caption = 'Encounter'
    6576      TabOrder = 2
    6677      Visible = False
    6778      OnClick = cmdPCEClick
    68       Align = alBottom
    6979    end
    7080    object pnlDrawers: TPanel
    … …  
    7282      Top = 19
    7383      Width = 64
    74       Height = 294
     84      Height = 313
    7585      Align = alClient
    7686      BevelOuter = bvNone
    … …  
    7888      object splDrawers: TSplitter
    7989        Left = 0
    80         Top = 291
     90        Top = 310
    8191        Width = 64
    8292        Height = 3
    8393        Cursor = crVSplit
    8494        Align = alBottom
     95        ExplicitTop = 291
    8596      end
    8697      object lstSumms: TORListBox
    … …  
    108119        Top = 0
    109120        Width = 64
    110         Height = 291
     121        Height = 310
    111122        Align = alClient
    112123        Constraints.MinWidth = 30
    113124        HideSelection = False
     125        Images = dmodShared.imgNotes
    114126        Indent = 19
    115127        PopupMenu = popSummList
    116128        ReadOnly = True
     129        StateImages = dmodShared.imgImages
    117130        TabOrder = 1
    118         OnAddition = tvSummsAddition
    119131        OnChange = tvSummsChange
    120132        OnClick = tvSummsClick
    121133        OnCollapsed = tvSummsCollapsed
    122         OnDeletion = tvSummsDeletion
    123134        OnDragDrop = tvSummsDragDrop
    124135        OnDragOver = tvSummsDragOver
    … …  
    134145    Left = 67
    135146    Width = 612
    136     Height = 358
     147    Height = 377
     148    ExplicitLeft = 67
     149    ExplicitWidth = 612
     150    ExplicitHeight = 377
    137151    object sptVert: TSplitter
    138152      Left = 0
    139       Top = 309
     153      Top = 328
    140154      Width = 612
    141155      Height = 4
    142156      Cursor = crVSplit
    143157      Align = alBottom
     158      ExplicitTop = 309
    144159    end
    145160    object memPCEShow: TRichEdit
    146161      Left = 0
    147       Top = 313
     162      Top = 332
    148163      Width = 612
    149164      Height = 45
    … …  
    163178      Top = 0
    164179      Width = 612
    165       Height = 309
     180      Height = 328
    166181      Align = alClient
    167182      BevelOuter = bvNone
    … …  
    173188        Top = 52
    174189        Width = 612
    175         Height = 257
     190        Height = 276
    176191        Align = alClient
    177192        Font.Charset = DEFAULT_CHARSET
    … …  
    302317      Top = 0
    303318      Width = 612
    304       Height = 309
     319      Height = 328
    305320      Align = alClient
    306321      BevelOuter = bvNone
    … …  
    339354        Top = 116
    340355        Width = 612
    341         Height = 193
     356        Height = 212
    342357        Align = alClient
    343358        Color = clCream
    … …  
    401416        ReadOnly = True
    402417        RowSelect = True
     418        SmallImages = dmodShared.imgNotes
     419        StateImages = dmodShared.imgImages
    403420        TabOrder = 1
    404421        ViewStyle = vsReport
    … …  
    411428      end
    412429    end
     430  end
     431  inherited amgrMain: TVA508AccessibilityManager
     432    Data = (
     433      (
     434        'Component = cmdNewSumm'
     435        'Status = stsDefault')
     436      (
     437        'Component = cmdPCE'
     438        'Status = stsDefault')
     439      (
     440        'Component = pnlDrawers'
     441        'Status = stsDefault')
     442      (
     443        'Component = lstSumms'
     444        'Status = stsDefault')
     445      (
     446        'Component = tvSumms'
     447        'Status = stsDefault')
     448      (
     449        'Component = memPCEShow'
     450        'Status = stsDefault')
     451      (
     452        'Component = pnlWrite'
     453        'Status = stsDefault')
     454      (
     455        'Component = memNewSumm'
     456        'Status = stsDefault')
     457      (
     458        'Component = pnlFields'
     459        'Status = stsDefault')
     460      (
     461        'Component = lblNewTitle'
     462        'Status = stsDefault')
     463      (
     464        'Component = lblVisit'
     465        'Status = stsDefault')
     466      (
     467        'Component = lblRefDate'
     468        'Status = stsDefault')
     469      (
     470        'Component = lblCosigner'
     471        'Status = stsDefault')
     472      (
     473        'Component = lblDictator'
     474        'Status = stsDefault')
     475      (
     476        'Component = lblDischarge'
     477        'Status = stsDefault')
     478      (
     479        'Component = cmdChange'
     480        'Status = stsDefault')
     481      (
     482        'Component = pnlRead'
     483        'Status = stsDefault')
     484      (
     485        'Component = memSumm'
     486        'Status = stsDefault')
     487      (
     488        'Component = lvSumms'
     489        'Status = stsDefault')
     490      (
     491        'Component = pnlLeft'
     492        'Status = stsDefault')
     493      (
     494        'Component = pnlRight'
     495        'Status = stsDefault')
     496      (
     497        'Component = frmDCSumm'
     498        'Status = stsDefault'))
    413499  end
    414500  object mnuSumms: TMainMenu
    … …  
    900986    Top = 313
    901987  end
     988  object imgLblNotes: TVA508ImageListLabeler
     989    Components = <
     990      item
     991        Component = lvSumms
     992      end
     993      item
     994        Component = tvSumms
     995      end>
     996    Labels = <>
     997    RemoteLabeler = dmodShared.imgLblNotes
     998    Left = 16
     999    Top = 171
     1000  end
     1001  object imgLblImages: TVA508ImageListLabeler
     1002    Components = <
     1003      item
     1004        Component = lvSumms
     1005      end
     1006      item
     1007        Component = tvSumms
     1008      end>
     1009    Labels = <>
     1010    RemoteLabeler = dmodShared.imgLblImages
     1011    Left = 16
     1012    Top = 203
     1013  end
    9021014end
Note: See TracChangeset for help on using the changeset viewer.