freepascal.compiler/rtl/morphos/inputevent.pas

{
    $Id$
    This file is part of the Free Pascal run time library.
    Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>

    input.device event definitions unit for MorphOS/PowerPC

    MorphOS port was done on a free Pegasos II/G4 machine 
    provided by Genesi S.a.r.l. <www.genesi.lu>

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}

{$PACKRECORDS 2}
unit inputevent;

interface

uses exec, utility, timer;


{ * input.device event definitions
  * Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
  * }

const
  IECLASS_NULL = $00;     
  IECLASS_RAWKEY = $01;     
  IECLASS_RAWMOUSE = $02;     
  IECLASS_EVENT = $03;     
  IECLASS_POINTERPOS = $04;     
  IECLASS_TIMER = $06;     
  IECLASS_GADGETDOWN = $07;     
  IECLASS_GADGETUP = $08;     
  IECLASS_REQUESTER = $09;     
  IECLASS_MENULIST = $0A;     
  IECLASS_CLOSEWINDOW = $0B;     
  IECLASS_SIZEWINDOW = $0C;     
  IECLASS_REFRESHWINDOW = $0D;     
  IECLASS_NEWPREFS = $0E;     
  IECLASS_DISKREMOVED = $0F;     
  IECLASS_DISKINSERTED = $10;     
  IECLASS_ACTIVEWINDOW = $11;     
  IECLASS_INACTIVEWINDOW = $12;     
  IECLASS_NEWPOINTERPOS = $13;     
  IECLASS_MENUHELP = $14;     
  IECLASS_CHANGEWINDOW = $15;     

{$ifndef IECLASS_NEWMOUSE}
 const
   IECLASS_NEWMOUSE = $16;     
{$endif}


const
  IECLASS_MAX = $16;     
  IESUBCLASS_COMPATIBLE = $00;     
  IESUBCLASS_PIXEL = $01;     
  IESUBCLASS_TABLET = $02;     
  IESUBCLASS_NEWTABLET = $03;     

type
  PIEPointerPixel = ^TIEPointerPixel;
  TIEPointerPixel = record
    iepp_Screen : Pointer;
    iepp_Position : record
      X : Integer;
      Y : Integer;
    end;
  end;

  PIEPointerTablet = ^TIEPointerTablet;
  TIEPointerTablet = record
    iept_Range : record
      X : Word;
      Y : Word;
    end;
    iept_Value : record
      X : Word;
      Y : Word;
    end;
    iept_Pressure : Integer;
  end;

  PIENewTablet = ^TIENewTablet;
  TIENewTablet = record
    ient_CallBack : PHook;
    ient_ScaledX : Word;
    ient_ScaledY : Word;
    ient_ScaledXFraction : Word;
    ient_ScaledYFraction : Word;
    ient_TabletX : DWord;
    ient_TabletY : DWord;
    ient_RangeX : DWord;
    ient_RangeY : DWord;
    ient_TagList : PTagItem;
  end;


const
  IECODE_UP_PREFIX = $80;     
  IECODE_KEY_CODE_FIRST = $00;     
  IECODE_KEY_CODE_LAST = $77;     
  IECODE_COMM_CODE_FIRST = $78;     
  IECODE_COMM_CODE_LAST = $7F;     
  IECODE_C0_FIRST = $00;     
  IECODE_C0_LAST = $1F;     
  IECODE_ASCII_FIRST = $20;     
  IECODE_ASCII_LAST = $7E;     
  IECODE_ASCII_DEL = $7F;     
  IECODE_C1_FIRST = $80;     
  IECODE_C1_LAST = $9F;     
  IECODE_LATIN1_FIRST = $A0;     
  IECODE_LATIN1_LAST = $FF;     
  IECODE_LBUTTON = $68;     
  IECODE_RBUTTON = $69;     
  IECODE_MBUTTON = $6A;     
  IECODE_NOBUTTON = $FF;     
  IECODE_NEWACTIVE = $01;     
  IECODE_NEWSIZE = $02;     
  IECODE_REFRESH = $03;     
  IECODE_REQSET = $01;     
  IECODE_REQCLEAR = $00;     
  IEQUALIFIER_LSHIFT = $0001;     
  IEQUALIFIER_RSHIFT = $0002;     
  IEQUALIFIER_CAPSLOCK = $0004;     
  IEQUALIFIER_CONTROL = $0008;     
  IEQUALIFIER_LALT = $0010;     
  IEQUALIFIER_RALT = $0020;     
  IEQUALIFIER_LCOMMAND = $0040;     
  IEQUALIFIER_RCOMMAND = $0080;     
  IEQUALIFIER_NUMERICPAD = $0100;     
  IEQUALIFIER_REPEAT = $0200;     
  IEQUALIFIER_INTERRUPT = $0400;     
  IEQUALIFIER_MULTIBROADCAST = $0800;     
  IEQUALIFIER_MIDBUTTON = $1000;     
  IEQUALIFIER_RBUTTON = $2000;     
  IEQUALIFIER_LEFTBUTTON = $4000;     
  IEQUALIFIER_RELATIVEMOUSE = $8000;     
  IEQUALIFIERB_LSHIFT = 0;     
  IEQUALIFIERB_RSHIFT = 1;     
  IEQUALIFIERB_CAPSLOCK = 2;     
  IEQUALIFIERB_CONTROL = 3;     
  IEQUALIFIERB_LALT = 4;     
  IEQUALIFIERB_RALT = 5;     
  IEQUALIFIERB_LCOMMAND = 6;     
  IEQUALIFIERB_RCOMMAND = 7;     
  IEQUALIFIERB_NUMERICPAD = 8;     
  IEQUALIFIERB_REPEAT = 9;     
  IEQUALIFIERB_INTERRUPT = 10;     
  IEQUALIFIERB_MULTIBROADCAST = 11;     
  IEQUALIFIERB_MIDBUTTON = 12;     
  IEQUALIFIERB_RBUTTON = 13;     
  IEQUALIFIERB_LEFTBUTTON = 14;     
  IEQUALIFIERB_RELATIVEMOUSE = 15;     

{ * NewMouse events. }
{$ifndef NM_WHEEL_UP}
 const
   NM_WHEEL_UP = $7a;     
{$endif}
{$ifndef NM_WHEEL_DOWN}
 const
   NM_WHEEL_DOWN = $7b;     
{$endif}
{$ifndef NM_WHEEL_LEFT}
 const
   NM_WHEEL_LEFT = $7c;     
{$endif}
{$ifndef NM_WHEEL_RIGHT}
 const
   NM_WHEEL_RIGHT = $7d;     
{$endif}
{$ifndef NM_BUTTON_FOURTH}
 const
   NM_BUTTON_FOURTH = $7e;     
{$endif}

type
  PInputEvent = ^TInputEvent;
  TInputEvent = record
    ie_NextEvent : PInputEvent;
    ie_Class : Byte;
    ie_SubClass : Byte;
    ie_Code : Word;
    ie_Qualifier : Word;
    ie_position : record
    case longint of
      0 : ( ie_xy : record
              ie_x : Integer;
              ie_y : Integer;
            end );
      1 : ( ie_addr : Pointer );
      2 : ( ie_dead : record
              ie_prev1DownCode : Byte;
              ie_prev1DownQual : Byte;
              ie_prev2DownCode : Byte;
              ie_prev2DownQual : Byte;
            end );
    end;
    ie_TimeStamp : TTimeval;
  end;


implementation

end.

{
  $Log$
  Revision 1.1  2004-11-16 13:32:21  karoly
   * initial revision

}