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

Timestamp:

Feb 1, 2010, 7:07:59 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed New Note-Template Tab Key issue

Location:

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

Files:

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

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;

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;