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

Timestamp:

Jun 16, 2010, 8:23:07 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Bug fixes. Improved Adding Image

File:

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

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

@@ -180 +180 @@
     btnTextColor: TSpeedButton;            //kt 8/09
     btnBackColor: TSpeedButton;            //kt 8/09
-    btnImage: TSpeedButton;                //kt 4/10
+    btnImage: TSpeedButton;
+    popupAddImage: TPopupMenu;
+    mnuSelectExistingImage: TMenuItem;
+    mnuAddNewImage: TMenuItem;                //kt 4/10
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstNotesClick(Sender: TObject);
@@ -289 +292 @@
     procedure cbFontSizeChange(Sender: TObject);     //kt 8/09
     procedure btnImageClick(Sender: TObject);        //kt 4/10
-    procedure popNoteMemoHTMLFormatClick(Sender: TObject); //kt 8/09
+    procedure popNoteMemoHTMLFormatClick(Sender: TObject);
+    procedure mnuAddNewImageClick(Sender: TObject);
+    procedure mnuSelectExistingImageClick(Sender: TObject); //kt 8/09
   private
     FNavigatingTab : Boolean; //Currently Using tab to navigate
@@ -401 +406 @@
      //fImages, {//kt added 9-20-05}
      fOptionsNotes, //kt 8/09
+     fImagePickExisting, //kt 6/16/10
      rHTMLTools, fImages, UploadImages;  {//kt added 5-27-05 for IsHTMLDocument}
 
@@ -4640 +4646 @@
 procedure TfrmNotes.btnImageClick(Sender: TObject);
 //kt added function
+begin
+  if frmImages.ImagesCount > 0 then begin
+    popupAddImage.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
+    //Will allow user to :
+    //  Cancel, or trigger mnuAddNewImageClick or mnuSelectExistingImageClick
+  end else begin
+    mnuAddNewImageClick(self);
+  end;
+end;
+
+procedure TfrmNotes.mnuAddNewImageClick(Sender: TObject);
+//kt added function
 var
    i, AddResult: integer;
@@ -4656 +4674 @@
    end;
 end;
+
+procedure TfrmNotes.mnuSelectExistingImageClick(Sender: TObject);
+//kt added function
+var
+  oneImage: string;
+  ImageFName : string;
+begin
+  inherited;
+  frmImagePickExisting := TfrmImagePickExisting.Create(Self);
+  if frmImagePickExisting.ShowModal = mrOK then begin
+    ImageFName := frmImagePickExisting.SelectedImageFName;
+    if ImageFName <> '' then begin
+      if frmImages.ThumbnailIndexForFName(ImageFName) = IMAGE_INDEX_IMAGE then begin
+        oneImage := '<img src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
+      end else begin
+        oneImage := '<embed src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
+      end;
+      HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
+    end;
+  end;
+  FreeAndNil(frmImagePickExisting);
+end;
+
 
 procedure TfrmNotes.btnCenterAlignClick(Sender: TObject);
@@ -4849 +4890 @@
 end;
 
+
+
 initialization
   uPCEEdit := TPCEData.Create;