/[lcore]/trunk/lcoremessages.pas
ViewVC logotype

Diff of /trunk/lcoremessages.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by plugwash, Sat Jan 31 00:58:54 2009 UTC revision 42 by plugwash, Tue Feb 17 00:51:40 2009 UTC
# Line 14  Line 14 
14    
15  uses pgtypes,sysutils,bsearchtree,strings,syncobjs;  uses pgtypes,sysutils,bsearchtree,strings,syncobjs;
16    
17    
18    {$if (fpc_version < 2) or ((fpc_version=2) and ((fpc_release < 2) or ((fpc_release = 2) and (fpc_patch < 2)) ))}
19      {$error this code is only supported under fpc 2.2.2 and above due to bugs in the eventobject code in older versions}
20    {$endif}
21    
22  type  type
23    lparam=taddrint;    lparam=taddrint;
24    wparam=taddrint;    wparam=taddrint;
# Line 404  Line 409 
409        //we have to get the window procedure while the structurelock        //we have to get the window procedure while the structurelock
410        //is still held as the window could be destroyed from another thread        //is still held as the window could be destroyed from another thread
411        //otherwise.        //otherwise.
412          if window <> nil then begin
413        windowproc := window.windowproc;        windowproc := window.windowproc;
414          end else begin
415            windowproc := nil;
416          end;
417      finally      finally
418        structurelock.release;        structurelock.release;
419      end;      end;
420      if window <> nil then begin      if assigned(windowproc) then begin
421        result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);        result := windowproc(lpmsg.hwnd,lpmsg.message,lpmsg.wparam,lpmsg.lparam);
422      end else begin      end else begin
423        result := -1;        result := -1;
# Line 485  Line 494 
494    
495  function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): WINBOOL;  function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): WINBOOL;
496  begin  begin
497    result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,PM_REMOVE,true);    result := getmessageinternal(lpmsg,hwnd,wmsgfiltermin,wmsgfiltermax,wRemoveMsg,true);
498  end;  end;
499    
500  function SetEvent(hEvent:THevent):WINBOOL;  function SetEvent(hEvent:THevent):WINBOOL;

Legend:
Removed from v.32  
changed lines
  Added in v.42

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22