Ignore:
Timestamp:
Jun 16, 2010, 8:23:07 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Bug fixes. Improved Adding Image

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm

    r793 r801  
    11inherited frmNotes: TfrmNotes
    2   Left = 341
    3   Top = 478
    4   Width = 341
    5   Height = 256
     2  Left = 277
     3  Top = 211
     4  Width = 490
     5  Height = 358
    66  HelpContext = 5000
    77  Caption = 'Progress Notes Page'
     
    1616  TextHeight = 13
    1717  inherited shpPageBottom: TShape
    18     Top = 197
    19     Width = 333
     18    Top = 299
     19    Width = 482
    2020  end
    2121  inherited sptHorz: TSplitter
    2222    Left = 64
    23     Height = 197
     23    Height = 299
    2424    OnCanResize = sptHorzCanResize
    2525  end
    2626  inherited pnlLeft: TPanel
    2727    Width = 64
    28     Height = 197
     28    Height = 299
    2929    object lblNotes: TOROffsetLabel
    3030      Left = 0
     
    4343    object lblSpace1: TLabel
    4444      Left = 0
    45       Top = 152
     45      Top = 254
    4646      Width = 64
    4747      Height = 3
     
    5252    object cmdNewNote: TORAlignButton
    5353      Left = 0
    54       Top = 155
     54      Top = 257
    5555      Width = 64
    5656      Height = 21
     
    6464    object cmdPCE: TORAlignButton
    6565      Left = 0
    66       Top = 176
     66      Top = 278
    6767      Width = 64
    6868      Height = 21
     
    7979      Top = 19
    8080      Width = 64
    81       Height = 133
     81      Height = 235
    8282      Align = alClient
    8383      BevelOuter = bvNone
     
    8585      object splDrawers: TSplitter
    8686        Left = 0
    87         Top = 130
     87        Top = 232
    8888        Width = 64
    8989        Height = 3
     
    115115        Top = 0
    116116        Width = 64
    117         Height = 130
     117        Height = 232
    118118        Align = alClient
    119119        Constraints.MinWidth = 30
     
    142142  inherited pnlRight: TPanel
    143143    Left = 68
    144     Width = 265
    145     Height = 197
     144    Width = 414
     145    Height = 299
    146146    object sptVert: TSplitter
    147147      Left = 0
    148       Top = 148
    149       Width = 265
     148      Top = 250
     149      Width = 414
    150150      Height = 4
    151151      Cursor = crVSplit
     
    154154    object memPCEShow: TRichEdit
    155155      Left = 0
    156       Top = 152
    157       Width = 265
     156      Top = 254
     157      Width = 414
    158158      Height = 45
    159159      Align = alBottom
     
    170170      Left = 0
    171171      Top = 0
    172       Width = 265
    173       Height = 148
     172      Width = 414
     173      Height = 250
    174174      Align = alClient
    175175      BevelOuter = bvNone
     
    180180        Left = 0
    181181        Top = 0
    182         Width = 265
     182        Width = 414
    183183        Height = 67
    184184        Align = alTop
     
    187187        OnResize = pnlFieldsResize
    188188        DesignSize = (
    189           265
     189          414
    190190          67)
    191191        object bvlNewTitle: TBevel
     
    209209        end
    210210        object lblAuthor: TStaticText
    211           Left = 47
     211          Left = 196
    212212          Top = 6
    213213          Width = 152
     
    232232        end
    233233        object lblCosigner: TStaticText
    234           Left = -48
     234          Left = 101
    235235          Top = 21
    236236          Width = 243
     
    275275        end
    276276        object cmdChange: TButton
    277           Left = 201
     277          Left = 350
    278278          Top = 6
    279279          Width = 58
     
    288288          Left = 48
    289289          Top = 40
    290           Width = 211
     290          Width = 360
    291291          Height = 21
    292292          Hint = 'Subject is limited to a maximum of 80 characters.'
     
    303303        Left = 0
    304304        Top = 67
    305         Width = 265
    306         Height = 81
     305        Width = 414
     306        Height = 183
    307307        Align = alClient
    308308        BevelOuter = bvNone
     
    312312          Left = 0
    313313          Top = 0
    314           Width = 265
    315           Height = 81
     314          Width = 414
     315          Height = 183
    316316          Align = alClient
    317317          Font.Charset = DEFAULT_CHARSET
     
    335335        Left = 0
    336336        Top = 67
    337         Width = 265
    338         Height = 81
     337        Width = 414
     338        Height = 183
    339339        Align = alClient
    340340        BevelOuter = bvNone
     
    345345          Left = 0
    346346          Top = 25
    347           Width = 265
    348           Height = 56
     347          Width = 414
     348          Height = 158
    349349          Align = alClient
    350350          BevelOuter = bvNone
     
    354354          Left = 0
    355355          Top = 0
    356           Width = 265
     356          Width = 414
    357357          Height = 25
    358358          AutoSize = True
     
    814814      Left = 0
    815815      Top = 0
    816       Width = 265
    817       Height = 148
     816      Width = 414
     817      Height = 250
    818818      Align = alClient
    819819      BevelOuter = bvNone
     
    823823        Left = 0
    824824        Top = 0
    825         Width = 265
     825        Width = 414
    826826        Height = 19
    827827        Align = alTop
     
    835835        Left = 0
    836836        Top = 113
    837         Width = 265
     837        Width = 414
    838838        Height = 3
    839839        Cursor = crVSplit
     
    843843        Left = 0
    844844        Top = 116
    845         Width = 265
    846         Height = 32
     845        Width = 414
     846        Height = 134
    847847        TabStop = False
    848848        Align = alClient
    849849        TabOrder = 2
    850850        ControlData = {
    851           4C000000631B00004F0300000000000000000000000000000000000000000000
     851          4C000000CA2A0000D90D00000000000000000000000000000000000000000000
    852852          000000004C000000000000000000000001000000E0D057007335CF11AE690800
    853853          2B2E126208000000000000004C0000000114020000000000C000000000000046
     
    858858        Left = 0
    859859        Top = 116
    860         Width = 265
    861         Height = 32
     860        Width = 414
     861        Height = 134
    862862        Align = alClient
    863863        Color = clCream
     
    885885        Left = 0
    886886        Top = 19
    887         Width = 265
     887        Width = 414
    888888        Height = 94
    889889        Align = alTop
     
    934934        Left = 0
    935935        Top = 116
    936         Width = 265
    937         Height = 32
     936        Width = 414
     937        Height = 134
    938938        Align = alClient
    939939        BevelOuter = bvNone
     
    14481448    LangData = {
    14491449      080066726D4E6F746573010200000001000000070043617074696F6E02000000
    1450       080048656C7046696C6501A30000000D0073687050616765426F74746F6D0000
     1450      080048656C7046696C6501A60000000D0073687050616765426F74746F6D0000
    14511451      0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
    14521452      000008006C626C4E6F746573010100000003000000070043617074696F6E0009
     
    16051605      9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00
    16061606      0000040048696E7400080062746E496D6167650101000000A000000004004869
    1607       6E7400}
     1607      6E74000D00706F707570416464496D616765000016006D6E7553656C65637445
     1608      78697374696E67496D6167650101000000A1000000070043617074696F6E000E
     1609      006D6E754164644E6577496D6167650101000000A2000000070043617074696F
     1610      6E00}
     1611  end
     1612  object popupAddImage: TPopupMenu
     1613    Left = 444
     1614    Top = 264
     1615    object mnuSelectExistingImage: TMenuItem
     1616      Bitmap.Data = {
     1617        F6000000424DF600000000000000760000002800000010000000100000000100
     1618        0400000000008000000000000000000000001000000000000000000000000000
     1619        8000008000000080800080000000800080008080000080808000C0C0C0000000
     1620        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
     1621        FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC
     1622        0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF
     1623        0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF
     1624        0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
     1625      Caption = 'Select &Existing Image'
     1626      OnClick = mnuSelectExistingImageClick
     1627    end
     1628    object mnuAddNewImage: TMenuItem
     1629      Bitmap.Data = {
     1630        36010000424D3601000000000000760000002800000014000000100000000100
     1631        040000000000C000000000000000000000001000000000000000000000000000
     1632        8000008000000080800080000000800080008080000080808000C0C0C0000000
     1633        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
     1634        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFF0
     1635        000000000FFFFFFF0000FF00B8B8B8B8B0FFFFFF0000FF0F0B8B8B8B8B0FFFFF
     1636        0000FF0BF0B8B8B8B8B0FFFF0000FF0FBF0000000000FFFF0000FF0BFBFBFBFB
     1637        0FFFFFFF0000FF0FBFBFBFBF0FFFFFFF0000FF0BFBFBF000FFFFFFFF0000FFF0
     1638        BFBF0FFFFFFFFFFF0000FFF700007FFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
     1639        0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000}
     1640      Caption = '&Add New Image'
     1641      OnClick = mnuAddNewImageClick
     1642    end
    16081643  end
    16091644end
Note: See TracChangeset for help on using the changeset viewer.