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

Timestamp:

Jan 4, 2010, 8:02:21 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added HTML templating

File:

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

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

@@ -655 +655 @@
 
 function THtmlObj.MoveCaretToEnd : boolean;
-//kt added        
+//kt added
 var //TextRange:IHtmlTxtRange;
     count : integer;
 begin
+  if not assigned (FTMGDisplayPointer) then begin
+    Result := false;
+    exit;
+  end;
   Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_BottomOfWindow,0));
   count := 0;
-  repeat   
+  repeat
     Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_NextLine,-1));
     inc (count);
   until (Result = false) or (count > 500);
-  Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_CurrentLineEnd,0));   
+  Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_CurrentLineEnd,0));
   Result:=(S_OK = FCaret.MoveCaretToPointer(FTMGDisplayPointer,
                                             integer(FALSE),
                                             CARET_DIRECTION_SAME));
   {
-  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0); 
+  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0);
   SendMessage(FmsHTMLwinHandle, WM_KEYUP, VK_END, 0);
-  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0); 
+  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0);
   SendMessage(FmsHTMLwinHandle, WM_KEYUP, VK_END, 0);
   }