removed incorrect executable status from files

[lcore.git] / wcore.pas

diff --git a/wcore.pas b/wcore.pas
old mode 100755 (executable)
new mode 100644 (file)
index 40505ef..e79fc10
--- a/wcore.pas
+++ b/wcore.pas
@@ -1,8 +1,3 @@
-{ Copyright (C) 2005 Bas Steendijk and Peter Green\r
-  For conditions of distribution and use, see copyright notice in zlib_license.txt\r
-  which is included in the package\r
-  ----------------------------------------------------------------------------- }\r
-\r
 unit wcore;\r
 \r
 {\r
@@ -30,6 +25,9 @@ interface
     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
@@ -37,8 +35,8 @@ interface
       prevtimer:tltimer;\r
       nexttimer:tltimer;\r
       interval:integer;        {miliseconds, default 1000}\r
-      enabled:boolean;\r
       nextts:integer;\r
+      property enabled:boolean read fenabled write setenabled;\r
       constructor create(aowner:tcomponent);override;\r
       destructor destroy;override;\r
     end;\r
@@ -60,9 +58,10 @@ procedure addtask(ahandler:ttaskevent;aobj:tobject;awparam,alparam:longint);
 procedure disconnecttasks(aobj:tobject);\r
 procedure exitmessageloop;\r
 procedure processmessages;\r
+procedure wcoreinit;\r
 \r
 var\r
-  onshutdown:procedure(s:string);\r
+  onshutdown:procedure(s:ansistring);\r
 \r
 implementation\r
 \r
@@ -96,6 +95,13 @@ end;
 \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
@@ -307,11 +313,8 @@ var
                                  lpszMenuName  : nil;\r
                                  lpszClassName : 'wcoreClass');\r
 \r
-procedure messageloop;\r
-var\r
-  MsgRec : TMsg;\r
+procedure wcoreinit;\r
 begin\r
-\r
   if Windows.RegisterClass(MyWindowClass) = 0 then halt;\r
   //writeln('about to create wcore handle, hinstance=',hinstance);\r
   hwndwcore := CreateWindowEx(WS_EX_TOOLWINDOW,\r
@@ -334,6 +337,14 @@ begin
   {$endif}\r
 \r
 \r
+end;\r
+\r
+procedure messageloop;\r
+var\r
+  MsgRec : TMsg;\r
+\r
+begin\r
+\r
   while GetMessage(MsgRec, 0, 0, 0) do begin\r
     TranslateMessage(MsgRec);\r
     DispatchMessage(MsgRec);\r
@@ -354,12 +365,13 @@ end;
 \r
 function ProcessMessage : Boolean;\r
 var\r
-    Msg : TMsg;\r
+    MsgRec : TMsg;\r
 begin\r
     Result := FALSE;\r
-    if PeekMessage(Msg, hwndwcore, 0, 0, PM_REMOVE) then begin\r
+    if PeekMessage(MsgRec, 0, 0, 0, PM_REMOVE) then begin\r
       Result := TRUE;\r
-      DispatchMessage(Msg);\r
+      TranslateMessage(MsgRec);\r
+      DispatchMessage(MsgRec);\r
     end;\r
 end;\r
 \r
@@ -370,3 +382,4 @@ end;
 \r
 \r
 end.\r
+\r