From: plugwash <plugwash@p10link.net>
Date: Sun, 15 Feb 2009 03:29:21 +0000 (+0000)
Subject: fix some line ending issues and add a license header to wmessages.pas
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/5131f0f4f11d06c8d638c798dc1445fa52092510?ds=sidebyside;hp=0cf8242b7bb005541896b8ab6363b147ff22f454

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 4be20f4..69da11e 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -73,8 +73,8 @@ interface
     TSendData          = procedure (Sender: TObject; BytesSent: Integer) of object;
 
     tlcomponent = class(tcomponent)
-    private
-      procedure releasetaskhandler(wparam,lparam:longint);
+    private
+      procedure releasetaskhandler(wparam,lparam:longint);
     public
       procedure release; virtual;
       destructor destroy; override;
@@ -283,15 +283,15 @@ begin
   inherited destroy;
 end;
 
-procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
-begin
-  free;
-end;
+procedure tlcomponent.releasetaskhandler(wparam,lparam:longint);
+begin
+  free;
+end;
 
 
 procedure tlcomponent.release;
 begin
-  addtask(releasetaskhandler,self,0,0);
+  addtask(releasetaskhandler,self,0,0);
 end;
 
 procedure tlasio.release;
diff --git a/lmessages.pas b/lmessages.pas
index 3aafdca..9807e42 100755
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -409,11 +409,11 @@ begin
       //we have to get the window procedure while the structurelock
       //is still held as the window could be destroyed from another thread
       //otherwise.
-      if window <> nil then begin
+      if window <> nil then begin
         windowproc := window.windowproc;
-      end else begin
-        windowproc := nil;
-      end;
+      end else begin
+        windowproc := nil;
+      end;
     finally
       structurelock.release;
     end;
diff --git a/wmessages.pas b/wmessages.pas
index fed9259..4574d98 100644
--- a/wmessages.pas
+++ b/wmessages.pas
@@ -1,3 +1,8 @@
+{ Copyright (C) 2005 Bas Steendijk and Peter Green
+  For conditions of distribution and use, see copyright notice in zlib_license.txt
+  which is included in the package
+  ----------------------------------------------------------------------------- } 
+      
 unit wmessages;
 //this unit contains varions functions and types to make it easier to write
 //code that works with both real windows messages and lmessages