Changeset 801 for cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm
- Timestamp:
- Jun 16, 2010, 8:23:07 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm
r793 r801 1 1 inherited frmNotes: TfrmNotes 2 Left = 3413 Top = 4784 Width = 3415 Height = 2562 Left = 277 3 Top = 211 4 Width = 490 5 Height = 358 6 6 HelpContext = 5000 7 7 Caption = 'Progress Notes Page' … … 16 16 TextHeight = 13 17 17 inherited shpPageBottom: TShape 18 Top = 19719 Width = 33318 Top = 299 19 Width = 482 20 20 end 21 21 inherited sptHorz: TSplitter 22 22 Left = 64 23 Height = 19723 Height = 299 24 24 OnCanResize = sptHorzCanResize 25 25 end 26 26 inherited pnlLeft: TPanel 27 27 Width = 64 28 Height = 19728 Height = 299 29 29 object lblNotes: TOROffsetLabel 30 30 Left = 0 … … 43 43 object lblSpace1: TLabel 44 44 Left = 0 45 Top = 15245 Top = 254 46 46 Width = 64 47 47 Height = 3 … … 52 52 object cmdNewNote: TORAlignButton 53 53 Left = 0 54 Top = 15554 Top = 257 55 55 Width = 64 56 56 Height = 21 … … 64 64 object cmdPCE: TORAlignButton 65 65 Left = 0 66 Top = 17666 Top = 278 67 67 Width = 64 68 68 Height = 21 … … 79 79 Top = 19 80 80 Width = 64 81 Height = 13381 Height = 235 82 82 Align = alClient 83 83 BevelOuter = bvNone … … 85 85 object splDrawers: TSplitter 86 86 Left = 0 87 Top = 13087 Top = 232 88 88 Width = 64 89 89 Height = 3 … … 115 115 Top = 0 116 116 Width = 64 117 Height = 130117 Height = 232 118 118 Align = alClient 119 119 Constraints.MinWidth = 30 … … 142 142 inherited pnlRight: TPanel 143 143 Left = 68 144 Width = 265145 Height = 197144 Width = 414 145 Height = 299 146 146 object sptVert: TSplitter 147 147 Left = 0 148 Top = 148149 Width = 265148 Top = 250 149 Width = 414 150 150 Height = 4 151 151 Cursor = crVSplit … … 154 154 object memPCEShow: TRichEdit 155 155 Left = 0 156 Top = 152157 Width = 265156 Top = 254 157 Width = 414 158 158 Height = 45 159 159 Align = alBottom … … 170 170 Left = 0 171 171 Top = 0 172 Width = 265173 Height = 148172 Width = 414 173 Height = 250 174 174 Align = alClient 175 175 BevelOuter = bvNone … … 180 180 Left = 0 181 181 Top = 0 182 Width = 265182 Width = 414 183 183 Height = 67 184 184 Align = alTop … … 187 187 OnResize = pnlFieldsResize 188 188 DesignSize = ( 189 265189 414 190 190 67) 191 191 object bvlNewTitle: TBevel … … 209 209 end 210 210 object lblAuthor: TStaticText 211 Left = 47211 Left = 196 212 212 Top = 6 213 213 Width = 152 … … 232 232 end 233 233 object lblCosigner: TStaticText 234 Left = -48234 Left = 101 235 235 Top = 21 236 236 Width = 243 … … 275 275 end 276 276 object cmdChange: TButton 277 Left = 201277 Left = 350 278 278 Top = 6 279 279 Width = 58 … … 288 288 Left = 48 289 289 Top = 40 290 Width = 211290 Width = 360 291 291 Height = 21 292 292 Hint = 'Subject is limited to a maximum of 80 characters.' … … 303 303 Left = 0 304 304 Top = 67 305 Width = 265306 Height = 81305 Width = 414 306 Height = 183 307 307 Align = alClient 308 308 BevelOuter = bvNone … … 312 312 Left = 0 313 313 Top = 0 314 Width = 265315 Height = 81314 Width = 414 315 Height = 183 316 316 Align = alClient 317 317 Font.Charset = DEFAULT_CHARSET … … 335 335 Left = 0 336 336 Top = 67 337 Width = 265338 Height = 81337 Width = 414 338 Height = 183 339 339 Align = alClient 340 340 BevelOuter = bvNone … … 345 345 Left = 0 346 346 Top = 25 347 Width = 265348 Height = 56347 Width = 414 348 Height = 158 349 349 Align = alClient 350 350 BevelOuter = bvNone … … 354 354 Left = 0 355 355 Top = 0 356 Width = 265356 Width = 414 357 357 Height = 25 358 358 AutoSize = True … … 814 814 Left = 0 815 815 Top = 0 816 Width = 265817 Height = 148816 Width = 414 817 Height = 250 818 818 Align = alClient 819 819 BevelOuter = bvNone … … 823 823 Left = 0 824 824 Top = 0 825 Width = 265825 Width = 414 826 826 Height = 19 827 827 Align = alTop … … 835 835 Left = 0 836 836 Top = 113 837 Width = 265837 Width = 414 838 838 Height = 3 839 839 Cursor = crVSplit … … 843 843 Left = 0 844 844 Top = 116 845 Width = 265846 Height = 32845 Width = 414 846 Height = 134 847 847 TabStop = False 848 848 Align = alClient 849 849 TabOrder = 2 850 850 ControlData = { 851 4C000000 631B00004F0300000000000000000000000000000000000000000000851 4C000000CA2A0000D90D00000000000000000000000000000000000000000000 852 852 000000004C000000000000000000000001000000E0D057007335CF11AE690800 853 853 2B2E126208000000000000004C0000000114020000000000C000000000000046 … … 858 858 Left = 0 859 859 Top = 116 860 Width = 265861 Height = 32860 Width = 414 861 Height = 134 862 862 Align = alClient 863 863 Color = clCream … … 885 885 Left = 0 886 886 Top = 19 887 Width = 265887 Width = 414 888 888 Height = 94 889 889 Align = alTop … … 934 934 Left = 0 935 935 Top = 116 936 Width = 265937 Height = 32936 Width = 414 937 Height = 134 938 938 Align = alClient 939 939 BevelOuter = bvNone … … 1448 1448 LangData = { 1449 1449 080066726D4E6F746573010200000001000000070043617074696F6E02000000 1450 080048656C7046696C6501A 30000000D0073687050616765426F74746F6D00001450 080048656C7046696C6501A60000000D0073687050616765426F74746F6D0000 1451 1451 0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874 1452 1452 000008006C626C4E6F746573010100000003000000070043617074696F6E0009 … … 1605 1605 9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00 1606 1606 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 1608 1643 end 1609 1644 end
Note:
See TracChangeset
for help on using the changeset viewer.