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) (5 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;