Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit

Timestamp:

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

Author:

Kevin Toppenberg

Message:

update

Location:

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit

Files:

• TMGHTML2.pas (modified) (5 diffs)
• TMGHTML2.~pas (modified) (4 diffs)

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

@@ -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;
@@ -691 +692 @@
 end;
 
+procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
+var
+   Range: IHTMLTxtRange;
+begin
+   Range:= GetTextRange;
+   Range.pasteHTML(HTMLText);
+end;
+
 procedure THtmlObj.InsertTextAtCaret(Text : AnsiString);
 //kt added.  Note: inserts external format (not HTML markup)
@@ -754 +763 @@
 procedure THtmlObj.SubMessageHandler(var Msg: TMessage);
 //Called from parent's EDMessageHandler, or from GlobalMsgHandler
+
+const
+  FontSizes : array [0..6] of byte = (8,10,12,14,18,24,36);
+
 var  i : Integer;
      WinControl : TWinControl;
+     TextSize : integer;
 
 begin
@@ -820 +834 @@
                                       Msg.Result := 1; //Handled
                                     end;
+                  $31..$38 :      begin
+                                    if CtrlToBeProcessed = true then begin
+                                      TextSize := Msg.WParam-$31;
+                                      if (TextSize >= 0) and (TextSize <=6 ) then begin                                        
+                                        SetFontSize(FontSizes[TextSize]);
+                                        CtrlToBeProcessed := False;
+                                      end;  
+                                    end;
+                                  end;     
                        {             
                        VK_RETURN :  if CtrlReturnToBeProcessed then begin 
@@ -854 +877 @@
                                      Msg.Result := 1; //Handled
                                    end;  
+                       Ord('Q') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     Outdent;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                       Ord('W') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     Indent;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                       Ord('D') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     FontDialog;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;
+                                   {  
+                       Ord('.') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     ToggleBullet;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                       Ord('N') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     ToggleNumbering;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                       Ord(';') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     TextForeColorDialog;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                       Ord('''') :  if CtrlToBeProcessed then begin
+                                     //kt if not FEditable then exit;
+                                     TextBackColorDialog;
+                                     Msg.Result := 1; //Handled
+                                     exit;
+                                   end;  
+                                    }              
                      end; {case}
                    end;

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;