Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas
- Timestamp:
- Jun 10, 2010, 3:13:12 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas
r729 r793 180 180 btnTextColor: TSpeedButton; //kt 8/09 181 181 btnBackColor: TSpeedButton; //kt 8/09 182 btnImage: TSpeedButton; //kt 4/10 182 183 procedure mnuChartTabClick(Sender: TObject); 183 184 procedure lstNotesClick(Sender: TObject); … … 287 288 procedure cbFontNamesChange(Sender: TObject); //kt 8/09 288 289 procedure cbFontSizeChange(Sender: TObject); //kt 8/09 290 procedure btnImageClick(Sender: TObject); //kt 4/10 289 291 procedure popNoteMemoHTMLFormatClick(Sender: TObject); //kt 8/09 290 292 private … … 399 401 //fImages, {//kt added 9-20-05} 400 402 fOptionsNotes, //kt 8/09 401 rHTMLTools, fImages ; {//kt added 5-27-05 for IsHTMLDocument}403 rHTMLTools, fImages, UploadImages; {//kt added 5-27-05 for IsHTMLDocument} 402 404 403 405 const … … 1541 1543 if (vmHTML in FViewMode) then begin //kt 8/09 1542 1544 SplitToArray(WrapHTML(HtmlEditor.HTMLText), FEditNote.Lines); //kt 8/09 1545 rHTMLTools.InsertSubs(FEditNote.Lines); //kt 4/21/10 1543 1546 end else begin //kt 8/09 1544 1547 FEditNote.Lines.Assign(memNewNote.Lines); //kt 8/09 … … 4635 4638 end; 4636 4639 4640 procedure TfrmNotes.btnImageClick(Sender: TObject); 4641 //kt added function 4642 var 4643 i, AddResult: integer; 4644 oneImage: string; 4645 begin 4646 inherited; 4647 AddResult := UploadForm.ShowModal; 4648 if IsAbortResult(AddResult) then exit; 4649 for i := 0 to UploadForm.UploadedImages.Count-1 do begin 4650 oneImage := '<img src="'+CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i] + '" ' + 4651 ALT_IMG_TAG_CONVERT + ' >'; 4652 HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10); 4653 end; 4654 end; 4655 4637 4656 procedure TfrmNotes.btnCenterAlignClick(Sender: TObject); 4638 4657 //kt added function
Note:
See TracChangeset
for help on using the changeset viewer.