fix a bug in dispatchmessage

[lcore.git] / wcore.pas

diff --git a/wcore.pas b/wcore.pas
index 40505efac00a016c255cc1e4c6ce2ebc01ef392b..f88aa530c59d50e8bcbda25b48d90ae2415640a7 100755 (executable)
--- a/wcore.pas
+++ b/wcore.pas
@@ -30,6 +30,9 @@ interface
     end;\r
 \r
     tltimer=class(tlcomponent)\r
     end;\r
 \r
     tltimer=class(tlcomponent)\r

+    private\r
+      fenabled : boolean;\r
+      procedure setenabled(newvalue : boolean);\r

     public\r
       ontimer:tnotifyevent;\r
       initialevent:boolean;\r
     public\r
       ontimer:tnotifyevent;\r
       initialevent:boolean;\r


@@ -37,8 +40,8 @@ interface
       prevtimer:tltimer;\r
       nexttimer:tltimer;\r
       interval:integer;        {miliseconds, default 1000}\r
       prevtimer:tltimer;\r
       nexttimer:tltimer;\r
       interval:integer;        {miliseconds, default 1000}\r

-      enabled:boolean;\r

       nextts:integer;\r
       nextts:integer;\r

+      property enabled:boolean read fenabled write setenabled;\r

       constructor create(aowner:tcomponent);override;\r
       destructor destroy;override;\r
     end;\r
       constructor create(aowner:tcomponent);override;\r
       destructor destroy;override;\r
     end;\r


@@ -96,6 +99,13 @@ end;
 \r
 {------------------------------------------------------------------------------}\r
 \r
 \r
 {------------------------------------------------------------------------------}\r
 \r

+procedure tltimer.setenabled(newvalue : boolean);\r
+begin\r
+  fenabled := newvalue;\r
+  nextts := 0;\r
+  initialdone := false;\r
+end;\r
+\r

 constructor tltimer.create;\r
 begin\r
   inherited create(AOwner);\r
 constructor tltimer.create;\r
 begin\r
   inherited create(AOwner);\r