[JVCL-Checkins] dev/JVCL3/qcommon QMessages.pas,1.6,1.7 - source cleaning

[André S. <asn...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/qcommon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19299/JVCL3/qcommon

Modified Files:
	QMessages.pas 
Log Message:
source cleaning


Index: QMessages.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qcommon/QMessages.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** QMessages.pas	12 Aug 2004 17:29:34 -0000	1.6
--- QMessages.pas	27 Aug 2004 12:13:06 -0000	1.7
***************
*** 6,10 ****
   All rights reserved.
  
-  Version 0.1
   Description: Wrappers for common VCL control Messages
   Purpose: Reduce coding effort for porting VCL based components to VisualCLX
--- 6,9 ----
***************
*** 31,38 ****
  The Original Code is: QMessages.pas, released on 2004-05-21.
  
- 
  Known Issues:
!   - Under development. It contains all message related stuff, taken from QWindows.
!     No new functionality has been added yet.
  {-----------------------------------------------------------------------------}
  // $Id$
--- 30,35 ----
  The Original Code is: QMessages.pas, released on 2004-05-21.
  
  Known Issues:
! 
  {-----------------------------------------------------------------------------}
  // $Id$
***************
*** 42,54 ****
  interface
  
  uses
!   SysUtils, Classes, Types, SyncObjs,
!   {$IFDEF MSWINDOWS}
!   Windows,
!   {$ENDIF MSWINDOWS}
!   {$IFDEF HAS_UNIT_LIBC}
!   Libc,
!   {$ENDIF HAS_UNIT_LIBC}
!   Qt, QTypes, QForms, QControls, QWindows;
  
  const
--- 39,47 ----
  interface
  
+ {$I jvcl.inc}
+ 
  uses
!   Classes,
!   Qt, QControls, QWindows;
  
  const
***************
*** 153,162 ****
  
  type
    IPerformControl = interface
      ['{B11AA73D-D7C2-43E5-BED8-8F82DE6152AB}']
      function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
    end;
! //
! 
    PMessage = ^TMessage;
    TMessage = packed record
--- 146,160 ----
  
  type
+ (*
    IPerformControl = interface
      ['{B11AA73D-D7C2-43E5-BED8-8F82DE6152AB}']
      function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
    end;
! *)
!   PMessage = QWindows.PMessage;
!   {$NODEFINE PMessage}
!   TMessage = QWindows.TMessage;
!   {$NODEFINE TMessage}
! (*
    PMessage = ^TMessage;
    TMessage = packed record
***************
*** 166,170 ****
      Result: Integer;
    end;
! 
    TMsg = packed record
      hwnd: QWidgetH;
--- 164,171 ----
      Result: Integer;
    end;
! *)
!   TMsg = QWindows.TMsg;
!   {$NODEFINE TMsg}
! (*
    TMsg = packed record
      hwnd: QWidgetH;
***************
*** 175,178 ****
--- 176,180 ----
      pt: TPoint;
    end;
+ *)
  
    TWMScroll = packed record
***************
*** 219,223 ****
--- 221,235 ----
    end;
  
+   TWMTimer = record
+     Msg: Cardinal;
+     TimerID: Longint;
+ //    TimerProc: T;
+     Ignored: LongBool;
+     Result: Longint;
+   end;
+ 
  
+ (*
+ asn: currently defined in QWindows.
  { Message }
  function Perform(Control: TControl; Msg: Cardinal; WParam, LParam: Longint): Longint;
***************
*** 227,231 ****
  function SendMessage(Handle: QWidgetH; Msg: Integer; WParam, LParam: Longint): Integer; overload;
  //function SendMessage(AControl: TWidgetControl; Msg: Integer; WParam, LParam: Longint): Integer; overload;
- 
  type
    TApplicationHook = function(Sender: QObjectH; Event: QEventH): Boolean of object;
--- 239,242 ----
***************
*** 233,239 ****
  procedure InstallApplicationHook(Hook: TApplicationHook); // not threadsafe
  procedure UninstallApplicationHook(Hook: TApplicationHook); // not threadsafe
! 
  implementation
! 
  const
    QEventType_CMDispatchMessagePost = QEventType(Integer(QEventType_ClxUser) - 1);
--- 244,250 ----
  procedure InstallApplicationHook(Hook: TApplicationHook); // not threadsafe
  procedure UninstallApplicationHook(Hook: TApplicationHook); // not threadsafe
! *)
  implementation
! (*
  const
    QEventType_CMDispatchMessagePost = QEventType(Integer(QEventType_ClxUser) - 1);
***************
*** 371,380 ****
  end;
  
! (*)
  function SendMessage(AControl: TWidgetControl; Msg: Integer; WParam, LParam: Longint): Integer;
  begin
    Result := SendMessage(AControl.Handle, Msg, WParam, LParam);
  end;
! (*)
  
  function SendMessage(Handle: QWidgetH; Msg: Integer; WParam, LParam: Longint): Integer;
--- 382,391 ----
  end;
  
! {
  function SendMessage(AControl: TWidgetControl; Msg: Integer; WParam, LParam: Longint): Integer;
  begin
    Result := SendMessage(AControl.Handle, Msg, WParam, LParam);
  end;
! }
  
  function SendMessage(Handle: QWidgetH; Msg: Integer; WParam, LParam: Longint): Integer;
***************
*** 483,486 ****
    if Assigned(AppHookList) then
      FinalizeAppHookList;
! 
  end.
--- 494,497 ----
    if Assigned(AppHookList) then
      FinalizeAppHookList;
! *)
  end.