fix some line ending issues and add a license header to wmessages.pas

git-svn-id: file:///svnroot/lcore/trunk@41 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lcore.pas b/lcore.pas
index 4be20f40b328ee8c968514e4c1c6b87b302cf11f..69da11ea8089e1bebbe7b3377755c778463691d4 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -73,8 +73,8 @@ interface
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;\r
 \r
     tlcomponent = class(tcomponent)\r
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;\r
 \r
     tlcomponent = class(tcomponent)\r

-    private
-      procedure releasetaskhandler(wparam,lparam:longint);
+    private\r
+      procedure releasetaskhandler(wparam,lparam:longint);\r

     public\r
       procedure release; virtual;\r
       destructor destroy; override;\r
     public\r
       procedure release; virtual;\r
       destructor destroy; override;\r


@@ -283,15 +283,15 @@ begin
   inherited destroy;\r
 end;\r
 \r
   inherited destroy;\r
 end;\r
 \r

-procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
-begin
-  free;
-end;
+procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);\r
+begin\r
+  free;\r
+end;\r

 \r
 \r
 procedure tlcomponent.release;\r
 begin\r
 \r
 \r
 procedure tlcomponent.release;\r
 begin\r

-  addtask(releasetaskhandler,self,0,0);
+  addtask(releasetaskhandler,self,0,0);\r

 end;\r
 \r
 procedure tlasio.release;\r
 end;\r
 \r
 procedure tlasio.release;\r

diff --git a/lmessages.pas b/lmessages.pas
index 3aafdca70b52e0287a725a50fa36f4cd371502a3..9807e42dc01db88cf262b8ae67e0df45926daf17 100755 (executable)
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -409,11 +409,11 @@ begin
       //we have to get the window procedure while the structurelock\r
       //is still held as the window could be destroyed from another thread\r
       //otherwise.\r
       //we have to get the window procedure while the structurelock\r
       //is still held as the window could be destroyed from another thread\r
       //otherwise.\r

-      if window <> nil then begin
+      if window <> nil then begin\r

         windowproc := window.windowproc;\r
         windowproc := window.windowproc;\r

-      end else begin
-        windowproc := nil;
-      end;
+      end else begin\r
+        windowproc := nil;\r
+      end;\r

     finally\r
       structurelock.release;\r
     end;\r
     finally\r
       structurelock.release;\r
     end;\r

diff --git a/wmessages.pas b/wmessages.pas
index fed92590636fca101080c47c4042ed4cba167fb3..4574d9857ba859079d558af5955683270b04f0f5 100644 (file)
--- a/wmessages.pas
+++ b/wmessages.pas
@@ -1,3 +1,8 @@
+{ 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 wmessages;\r
 //this unit contains varions functions and types to make it easier to write\r
 //code that works with both real windows messages and lmessages\r
 unit wmessages;\r
 //this unit contains varions functions and types to make it easier to write\r
 //code that works with both real windows messages and lmessages\r