Changeset 654 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Added HTML templating

Location:

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

Files:

• TMGHTML2.pas (modified) (1 diff)
• TMGHTML2.~pas (modified) (1 diff)

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

@@ -891 +891 @@
     KeyTime.HighPart := KeyPressTime.dwHighDateTime;
     Delta := floor( (NowTime2.QuadPart - KeyTime.QuadPart) / 100000);
-    Result := (Delta < 100);
+    Result := (Delta < 100) and (Delta > 0);
   end;
 

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);
   }