Index: cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm
===================================================================
--- cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm	(revision 793)
+++ cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm	(revision 801)
@@ -1,7 +1,7 @@
 inherited frmNotes: TfrmNotes
-  Left = 341
-  Top = 478
-  Width = 341
-  Height = 256
+  Left = 277
+  Top = 211
+  Width = 490
+  Height = 358
   HelpContext = 5000
   Caption = 'Progress Notes Page'
@@ -16,15 +16,15 @@
   TextHeight = 13
   inherited shpPageBottom: TShape
-    Top = 197
-    Width = 333
+    Top = 299
+    Width = 482
   end
   inherited sptHorz: TSplitter
     Left = 64
-    Height = 197
+    Height = 299
     OnCanResize = sptHorzCanResize
   end
   inherited pnlLeft: TPanel
     Width = 64
-    Height = 197
+    Height = 299
     object lblNotes: TOROffsetLabel
       Left = 0
@@ -43,5 +43,5 @@
     object lblSpace1: TLabel
       Left = 0
-      Top = 152
+      Top = 254
       Width = 64
       Height = 3
@@ -52,5 +52,5 @@
     object cmdNewNote: TORAlignButton
       Left = 0
-      Top = 155
+      Top = 257
       Width = 64
       Height = 21
@@ -64,5 +64,5 @@
     object cmdPCE: TORAlignButton
       Left = 0
-      Top = 176
+      Top = 278
       Width = 64
       Height = 21
@@ -79,5 +79,5 @@
       Top = 19
       Width = 64
-      Height = 133
+      Height = 235
       Align = alClient
       BevelOuter = bvNone
@@ -85,5 +85,5 @@
       object splDrawers: TSplitter
         Left = 0
-        Top = 130
+        Top = 232
         Width = 64
         Height = 3
@@ -115,5 +115,5 @@
         Top = 0
         Width = 64
-        Height = 130
+        Height = 232
         Align = alClient
         Constraints.MinWidth = 30
@@ -142,10 +142,10 @@
   inherited pnlRight: TPanel
     Left = 68
-    Width = 265
-    Height = 197
+    Width = 414
+    Height = 299
     object sptVert: TSplitter
       Left = 0
-      Top = 148
-      Width = 265
+      Top = 250
+      Width = 414
       Height = 4
       Cursor = crVSplit
@@ -154,6 +154,6 @@
     object memPCEShow: TRichEdit
       Left = 0
-      Top = 152
-      Width = 265
+      Top = 254
+      Width = 414
       Height = 45
       Align = alBottom
@@ -170,6 +170,6 @@
       Left = 0
       Top = 0
-      Width = 265
-      Height = 148
+      Width = 414
+      Height = 250
       Align = alClient
       BevelOuter = bvNone
@@ -180,5 +180,5 @@
         Left = 0
         Top = 0
-        Width = 265
+        Width = 414
         Height = 67
         Align = alTop
@@ -187,5 +187,5 @@
         OnResize = pnlFieldsResize
         DesignSize = (
-          265
+          414
           67)
         object bvlNewTitle: TBevel
@@ -209,5 +209,5 @@
         end
         object lblAuthor: TStaticText
-          Left = 47
+          Left = 196
           Top = 6
           Width = 152
@@ -232,5 +232,5 @@
         end
         object lblCosigner: TStaticText
-          Left = -48
+          Left = 101
           Top = 21
           Width = 243
@@ -275,5 +275,5 @@
         end
         object cmdChange: TButton
-          Left = 201
+          Left = 350
           Top = 6
           Width = 58
@@ -288,5 +288,5 @@
           Left = 48
           Top = 40
-          Width = 211
+          Width = 360
           Height = 21
           Hint = 'Subject is limited to a maximum of 80 characters.'
@@ -303,6 +303,6 @@
         Left = 0
         Top = 67
-        Width = 265
-        Height = 81
+        Width = 414
+        Height = 183
         Align = alClient
         BevelOuter = bvNone
@@ -312,6 +312,6 @@
           Left = 0
           Top = 0
-          Width = 265
-          Height = 81
+          Width = 414
+          Height = 183
           Align = alClient
           Font.Charset = DEFAULT_CHARSET
@@ -335,6 +335,6 @@
         Left = 0
         Top = 67
-        Width = 265
-        Height = 81
+        Width = 414
+        Height = 183
         Align = alClient
         BevelOuter = bvNone
@@ -345,6 +345,6 @@
           Left = 0
           Top = 25
-          Width = 265
-          Height = 56
+          Width = 414
+          Height = 158
           Align = alClient
           BevelOuter = bvNone
@@ -354,5 +354,5 @@
           Left = 0
           Top = 0
-          Width = 265
+          Width = 414
           Height = 25
           AutoSize = True
@@ -814,6 +814,6 @@
       Left = 0
       Top = 0
-      Width = 265
-      Height = 148
+      Width = 414
+      Height = 250
       Align = alClient
       BevelOuter = bvNone
@@ -823,5 +823,5 @@
         Left = 0
         Top = 0
-        Width = 265
+        Width = 414
         Height = 19
         Align = alTop
@@ -835,5 +835,5 @@
         Left = 0
         Top = 113
-        Width = 265
+        Width = 414
         Height = 3
         Cursor = crVSplit
@@ -843,11 +843,11 @@
         Left = 0
         Top = 116
-        Width = 265
-        Height = 32
+        Width = 414
+        Height = 134
         TabStop = False
         Align = alClient
         TabOrder = 2
         ControlData = {
-          4C000000631B00004F0300000000000000000000000000000000000000000000
+          4C000000CA2A0000D90D00000000000000000000000000000000000000000000
           000000004C000000000000000000000001000000E0D057007335CF11AE690800
           2B2E126208000000000000004C0000000114020000000000C000000000000046
@@ -858,6 +858,6 @@
         Left = 0
         Top = 116
-        Width = 265
-        Height = 32
+        Width = 414
+        Height = 134
         Align = alClient
         Color = clCream
@@ -885,5 +885,5 @@
         Left = 0
         Top = 19
-        Width = 265
+        Width = 414
         Height = 94
         Align = alTop
@@ -934,6 +934,6 @@
         Left = 0
         Top = 116
-        Width = 265
-        Height = 32
+        Width = 414
+        Height = 134
         Align = alClient
         BevelOuter = bvNone
@@ -1448,5 +1448,5 @@
     LangData = {
       080066726D4E6F746573010200000001000000070043617074696F6E02000000
-      080048656C7046696C6501A30000000D0073687050616765426F74746F6D0000
+      080048656C7046696C6501A60000000D0073687050616765426F74746F6D0000
       0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
       000008006C626C4E6F746573010100000003000000070043617074696F6E0009
@@ -1605,5 +1605,40 @@
       9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00
       0000040048696E7400080062746E496D6167650101000000A000000004004869
-      6E7400}
+      6E74000D00706F707570416464496D616765000016006D6E7553656C65637445
+      78697374696E67496D6167650101000000A1000000070043617074696F6E000E
+      006D6E754164644E6577496D6167650101000000A2000000070043617074696F
+      6E00}
+  end
+  object popupAddImage: TPopupMenu
+    Left = 444
+    Top = 264
+    object mnuSelectExistingImage: TMenuItem
+      Bitmap.Data = {
+        F6000000424DF600000000000000760000002800000010000000100000000100
+        0400000000008000000000000000000000001000000000000000000000000000
+        8000008000000080800080000000800080008080000080808000C0C0C0000000
+        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC
+        0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF
+        0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF
+        0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
+      Caption = 'Select &Existing Image'
+      OnClick = mnuSelectExistingImageClick
+    end
+    object mnuAddNewImage: TMenuItem
+      Bitmap.Data = {
+        36010000424D3601000000000000760000002800000014000000100000000100
+        040000000000C000000000000000000000001000000000000000000000000000
+        8000008000000080800080000000800080008080000080808000C0C0C0000000
+        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
+        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFF0
+        000000000FFFFFFF0000FF00B8B8B8B8B0FFFFFF0000FF0F0B8B8B8B8B0FFFFF
+        0000FF0BF0B8B8B8B8B0FFFF0000FF0FBF0000000000FFFF0000FF0BFBFBFBFB
+        0FFFFFFF0000FF0FBFBFBFBF0FFFFFFF0000FF0BFBFBF000FFFFFFFF0000FFF0
+        BFBF0FFFFFFFFFFF0000FFF700007FFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
+        0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000}
+      Caption = '&Add New Image'
+      OnClick = mnuAddNewImageClick
+    end
   end
 end
