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

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas (modified) (5 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
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstNotesClick(Sender: TObject);
@@ -287 +288 @@
     procedure cbFontNamesChange(Sender: TObject);    //kt 8/09
     procedure cbFontSizeChange(Sender: TObject);     //kt 8/09
+    procedure btnImageClick(Sender: TObject);        //kt 4/10
     procedure popNoteMemoHTMLFormatClick(Sender: TObject); //kt 8/09
   private
@@ -399 +401 @@
      //fImages, {//kt added 9-20-05}
      fOptionsNotes, //kt 8/09
-     rHTMLTools, fImages;  {//kt added 5-27-05 for IsHTMLDocument}
+     rHTMLTools, fImages, UploadImages;  {//kt added 5-27-05 for IsHTMLDocument}
 
 const
@@ -1541 +1543 @@
   if (vmHTML in FViewMode) then begin                             //kt 8/09
     SplitToArray(WrapHTML(HtmlEditor.HTMLText), FEditNote.Lines); //kt 8/09
+    rHTMLTools.InsertSubs(FEditNote.Lines);                       //kt 4/21/10
   end else begin                                                  //kt 8/09
     FEditNote.Lines.Assign(memNewNote.Lines);                     //kt 8/09
@@ -4635 +4638 @@
 end;
 
+procedure TfrmNotes.btnImageClick(Sender: TObject);
+//kt added function
+var
+   i, AddResult: integer;
+   oneImage: string;
+begin
+   inherited;
+   AddResult := UploadForm.ShowModal;
+   if IsAbortResult(AddResult) then exit;
+   for i := 0 to UploadForm.UploadedImages.Count-1 do begin
+     oneImage := '<img src="'+CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i] + '" ' +
+                  ALT_IMG_TAG_CONVERT + ' >';
+     HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
+   end;
+end;
+
 procedure TfrmNotes.btnCenterAlignClick(Sender: TObject);
 //kt added function