Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.~pas

Timestamp:

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

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.~pas (modified) (4 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.~pas

@@ -60 +60 @@
       FEditable:               boolean;       
       ColorDialog:             TColorDialog;       
-      AllowNextBlur :          boolean;      
-      procedure SetMsgActive (Active : boolean);
+      AllowNextBlur :          boolean;
       function  GetHTMLText:string;
       procedure SetHTMLText(HTML:String);
@@ -91 +90 @@
     public
       {end public}
-      PopupMenu:     TPopupMenu;      
+      PopupMenu:     TPopupMenu;
       KeyStruck : boolean; // A VERY crude determiner as to if Modified.
       NextControl : TWinControl;
       PrevControl : TWinControl;
-      constructor Create(Owner:TControl; Application : TApplication); 
+      procedure SetMsgActive (Active : boolean);
+      constructor Create(Owner:TControl; Application : TApplication);
       destructor Destroy; override;
-      procedure Clear;       
+      procedure Clear;
       procedure ToggleBullet;
       procedure ToggleItalic;
@@ -122 +122 @@
       function  MoveCaretToEnd : boolean;
       function  MoveCaretToPos(ScreenPos: TPoint) : HRESULT;  //kt added
+      procedure InsertHTMLAtCaret(HTMLText : AnsiString); //kt 4/21/10
       procedure InsertTextAtCaret(Text : AnsiString); //Note: Text is NOT HTMLtext
       property  HTMLText:string read GetHTMLText write SetHTMLText;
@@ -689 +690 @@
   Result := FCaret.MoveCaretToPointer(FTMGDisplayPointer,Integer(True),CARET_DIRECTION_INDETERMINATE);
   FCaret.Show(Integer(True));
+end;
+
+procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
+var
+   Range: IHTMLTxtRange;
+begin
+   Range:= Self.GetTextRange;
+   Range.pasteHTML(HTMLText);
 end;