use better hash function (FNV-1a)

[lcore.git] / unitwindowobject.pas

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index cc7f1e1f15307898b2475eeee79589e762d28af8..414f975ee0d38dbb2663372b2485db63c59bfda4 100644 (file)
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -9,7 +9,7 @@ interface
 \r
 uses\r
   classes,\r
 \r
 uses\r
   classes,\r

-  {$ifdef win32}\r
+  {$ifdef mswindows}\r

     windows,messages,wmessages,\r
   {$else}\r
     lmessages,\r
     windows,messages,wmessages,\r
   {$else}\r
     lmessages,\r


@@ -34,7 +34,7 @@ type
     function killtimer(id:taddrint):boolean;\r
     procedure postmessage(msg,wparam,lparam:taddrint);\r
     procedure messageloop;\r
     function killtimer(id:taddrint):boolean;\r
     procedure postmessage(msg,wparam,lparam:taddrint);\r
     procedure messageloop;\r

-    {$ifdef win32}\r
+    {$ifdef mswindows}\r

       procedure processmessages; virtual;\r
       function processmessage:boolean;\r
     {$endif}  \r
       procedure processmessages; virtual;\r
       function processmessage:boolean;\r
     {$endif}  \r


@@ -118,7 +118,7 @@ begin
     '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil);\r
   //swriteln('about to check result of createwindowex');\r
   if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed');\r
     '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil);\r
   //swriteln('about to check result of createwindowex');\r
   if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed');\r

-  //swriteln('about to store reference to self in extra windo memory');\r
+  //swriteln('about to store reference to self in extra window memory');\r

   setwindowlongptr(hwndmain,0,taddrint(self));\r
   //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16));\r
 end;\r
   setwindowlongptr(hwndmain,0,taddrint(self));\r
   //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16));\r
 end;\r


@@ -141,6 +141,7 @@ begin
   windows.postmessage(hwndmain,msg,wparam,lparam);\r
 end;\r
 \r
   windows.postmessage(hwndmain,msg,wparam,lparam);\r
 end;\r
 \r

+{$ifdef mswindows}\r

 function twindowobjectbase.ProcessMessage : Boolean;\r
 var\r
     MsgRec : TMsg;\r
 function twindowobjectbase.ProcessMessage : Boolean;\r
 var\r
     MsgRec : TMsg;\r


@@ -157,13 +158,16 @@ procedure twindowobjectbase.processmessages;
 begin\r
   while processmessage do;\r
 end;\r
 begin\r
   while processmessage do;\r
 end;\r

+{$endif}\r

 \r
 procedure twindowobjectbase.messageloop;\r
 var\r
   MsgRec : TMsg;\r
 begin\r
   while GetMessage(MsgRec, hwnd(0), 0, 0) do begin\r
 \r
 procedure twindowobjectbase.messageloop;\r
 var\r
   MsgRec : TMsg;\r
 begin\r
   while GetMessage(MsgRec, hwnd(0), 0, 0) do begin\r

+    {$ifdef mswindows}\r

     TranslateMessage(MsgRec);\r
     TranslateMessage(MsgRec);\r

+    {$endif}\r

     DispatchMessage(MsgRec);\r
     if exitloopflag then exit;\r
     {if not peekmessage(msgrec,0,0,0,PM_NOREMOVE) then onidle}\r
     DispatchMessage(MsgRec);\r
     if exitloopflag then exit;\r
     {if not peekmessage(msgrec,0,0,0,PM_NOREMOVE) then onidle}\r