Index

Package: Mouse

Description

package Allegro.Mouse is
Allegro 4.4.2 - Mouse routines

Types

Cursor_Type

type Cursor_Type is private;

A_Mouse_Callback

type A_Mouse_Callback is
        access procedure( flags : Integer );

Constants & Global variables

MOUSE_CURSOR_NONE (Cursor_Type)

MOUSE_CURSOR_NONE      : constant Cursor_Type;

MOUSE_CURSOR_ALLEGRO (Cursor_Type)

MOUSE_CURSOR_ALLEGRO   : constant Cursor_Type;

MOUSE_CURSOR_ARROW (Cursor_Type)

MOUSE_CURSOR_ARROW     : constant Cursor_Type;

MOUSE_CURSOR_BUSY (Cursor_Type)

MOUSE_CURSOR_BUSY      : constant Cursor_Type;

MOUSE_CURSOR_QUESTION (Cursor_Type)

MOUSE_CURSOR_QUESTION  : constant Cursor_Type;

MOUSE_CURSOR_EDIT (Cursor_Type)

MOUSE_CURSOR_EDIT      : constant Cursor_Type;

MOUSE_FLAG_MOVE (Unsigned_32)

MOUSE_FLAG_MOVE        : constant Unsigned_32;

MOUSE_FLAG_LEFT_DOWN (Unsigned_32)

MOUSE_FLAG_LEFT_DOWN   : constant Unsigned_32;

MOUSE_FLAG_LEFT_UP (Unsigned_32)

MOUSE_FLAG_LEFT_UP     : constant Unsigned_32;

MOUSE_FLAG_RIGHT_DOWN (Unsigned_32)

MOUSE_FLAG_RIGHT_DOWN  : constant Unsigned_32;

MOUSE_FLAG_RIGHT_UP (Unsigned_32)

MOUSE_FLAG_RIGHT_UP    : constant Unsigned_32;

MOUSE_FLAG_MIDDLE_DOWN (Unsigned_32)

MOUSE_FLAG_MIDDLE_DOWN : constant Unsigned_32;

MOUSE_FLAG_MIDDLE_UP (Unsigned_32)

MOUSE_FLAG_MIDDLE_UP   : constant Unsigned_32;

MOUSE_FLAG_MOVE_Z (Unsigned_32)

MOUSE_FLAG_MOVE_Z      : constant Unsigned_32;

MOUSE_BUTTON_LEFT (Unsigned_32)

MOUSE_BUTTON_LEFT      : constant Unsigned_32;
For use with Mouse_B

MOUSE_BUTTON_RIGHT (Unsigned_32)

MOUSE_BUTTON_RIGHT     : constant Unsigned_32;

MOUSE_BUTTON_MIDDLE (Unsigned_32)

MOUSE_BUTTON_MIDDLE    : constant Unsigned_32;

Subprograms & Entries

Disable_Hardware_Cursor

procedure Disable_Hardware_Cursor;

Enable_Hardware_Cursor

procedure Enable_Hardware_Cursor;

Get_Mouse_Mickeys

procedure Get_Mouse_Mickeys
( mickeyx, mickeyy: A_Integer );

Get_Mouse_Sprite

function Get_Mouse_Sprite return A_Bitmap;

Install_Mouse

function Install_Mouse return Integer;

Mouse_X_Focus

function Mouse_X_Focus return Integer;

Mouse_Y_Focus

function Mouse_Y_Focus return Integer;

Mouse_X

function Mouse_X return Integer;

Mouse_Y

function Mouse_Y return Integer;

Mouse_Z

function Mouse_Z return Integer;

Mouse_B

function Mouse_B return Integer;

Mouse_Pos

function Mouse_Pos return Integer;

Mouse_Freeze_Flag

function Mouse_Freeze_Flag return Integer;

Mouse_On_Screen

function Mouse_On_Screen return Integer;

Mouse_Needs_Poll

function Mouse_Needs_Poll return Integer;

Poll_Mouse

function Poll_Mouse return Integer;

Position_Mouse

procedure Position_Mouse
( x, y: Integer );

Position_Mouse_Z

procedure Position_Mouse_Z
( z: Integer );

Remove_Mouse

procedure Remove_Mouse;

Scare_Mouse

procedure Scare_Mouse;

Scare_Mouse_Area

procedure Scare_Mouse_Area
( x, y, w, h: Integer );

Select_Mouse_Cursor

procedure Select_Mouse_Cursor
( cursor: Cursor_Type );

Set_Mouse_Callback

procedure Set_Mouse_Callback
( cb: A_Mouse_Callback );

Set_Mouse_Cursor_Bitmap

procedure Set_Mouse_Cursor_Bitmap
( cursor: Cursor_Type;
bmp: A_Bitmap );

Set_Mouse_Range

procedure Set_Mouse_Range
( x1, y1, x2, y2: Integer );

Set_Mouse_Speed

procedure Set_Mouse_Speed
( xspeed, yspeed: Integer );

Set_Mouse_Sprite

procedure Set_Mouse_Sprite
( sprite: A_Bitmap );

Set_Mouse_Sprite_Focus

procedure Set_Mouse_Sprite_Focus
( x, y: Integer );

Show_Mouse

procedure Show_Mouse
( bmp: A_Bitmap );

Show_OS_Cursor

function Show_OS_Cursor
( cursor: Cursor_Type ) return Integer;

Unscare_Mouse

procedure Unscare_Mouse;