Changeset 809 for cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas

Timestamp:

Jun 22, 2010, 8:22:30 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Corrected HTML line feed

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas (modified) (4 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas

@@ -183 +183 @@
     popupAddImage: TPopupMenu;
     mnuSelectExistingImage: TMenuItem;
-    mnuAddNewImage: TMenuItem;                //kt 4/10
+    mnuAddNewImage: TMenuItem;
+    mnuSearchNotes: TMenuItem;                //kt 4/10
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstNotesClick(Sender: TObject);
@@ -294 +295 @@
     procedure popNoteMemoHTMLFormatClick(Sender: TObject);
     procedure mnuAddNewImageClick(Sender: TObject);
-    procedure mnuSelectExistingImageClick(Sender: TObject); //kt 8/09
+    procedure mnuSelectExistingImageClick(Sender: TObject);
+    procedure mnuSearchNotesClick(Sender: TObject); //kt 8/09
   private
     FNavigatingTab : Boolean; //Currently Using tab to navigate
@@ -407 +409 @@
      fOptionsNotes, //kt 8/09
      fImagePickExisting, //kt 6/16/10
-     rHTMLTools, fImages, UploadImages;  {//kt added 5-27-05 for IsHTMLDocument}
+     rHTMLTools, fImages, UploadImages,  {//kt added 5-27-05 for IsHTMLDocument}
+     fPtDocSearch;        //kt 6/21/10
 
 const
@@ -4890 +4893 @@
 end;
 
-
+procedure TfrmNotes.mnuSearchNotesClick(Sender: TObject);
+begin
+  inherited;
+  Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
+  frmPtDocSearch.ShowModal;
+  //open diff note it selected
+  frmPtDocSearch.Free;
+end;
 
 initialization