X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..4eb91688c3bbc5eaf93c101b984f486dd42de9bc:/wcore.pas?ds=inline

diff --git a/wcore.pas b/wcore.pas
index 40505ef..f88aa53 100755
--- a/wcore.pas
+++ b/wcore.pas
@@ -30,6 +30,9 @@ interface
     end;
 
     tltimer=class(tlcomponent)
+    private
+      fenabled : boolean;
+      procedure setenabled(newvalue : boolean);
     public
       ontimer:tnotifyevent;
       initialevent:boolean;
@@ -37,8 +40,8 @@ interface
       prevtimer:tltimer;
       nexttimer:tltimer;
       interval:integer;        {miliseconds, default 1000}
-      enabled:boolean;
       nextts:integer;
+      property enabled:boolean read fenabled write setenabled;
       constructor create(aowner:tcomponent);override;
       destructor destroy;override;
     end;
@@ -96,6 +99,13 @@ end;
 
 {------------------------------------------------------------------------------}
 
+procedure tltimer.setenabled(newvalue : boolean);
+begin
+  fenabled := newvalue;
+  nextts := 0;
+  initialdone := false;
+end;
+
 constructor tltimer.create;
 begin
   inherited create(AOwner);