Unit U_Mouse

Uses
Classes, Interfaces, Objects and Records
Types
Variables

Description

 

Overview

Functions and Procedures

Function Mouse_Test: Boolean;
Function Mouse_Nb_Button: Integer;
Procedure Hide_Mouse;
Procedure Show_Mouse;
Function Mousek: Integer;
Function Mousex: Integer;
Function Mousey: Integer;
Procedure Mouse_X_Y(Var X, Y : Integer);
Procedure Mouse_X_Y_K(Var X, Y, K : Integer);
Procedure Setmouse(X, Y : Integer);
Procedure Mouse_Cadre(X_Min, Y_Min, X_Max, Y_Max : Integer);
Procedure Mouse_Cadre_Horiz(X_Min, X_Max : Integer);
Procedure Mouse_Cadre_Vert(Y_Min, Y_Max : Integer);
Function Mousex_Txt: Integer;
Function Mousey_Txt: Integer;
Procedure Mouse_X_Y_Txt(Var X, Y : Integer);
Procedure Mouse_X_Y_K_Txt(Var X, Y, K : Integer);
Procedure Setmouse_Txt(X, Y : Integer);
Procedure Mouse_Cadre_Txt(X_Min, Y_Min, X_Max, Y_Max : Integer);
Procedure Mouse_Cadre_Horiz_Txt(X_Min, X_Max : Integer);
Procedure Mouse_Cadre_Vert_Txt(Y_Min, Y_Max : Integer);

Constants

Mouse_Curs : Boolean = False;
Mouse_On : Boolean = False;

Description

Functions and Procedures

Function Mouse_Test: Boolean;

Fonctions et proc‚dures diverses.

Function Mouse_Nb_Button: Integer;

est vraie si la souris est install‚e et reconnue

Procedure Hide_Mouse;

renvoie le nombre de boutons de la souris

Procedure Show_Mouse;

cache le curseur de la souris et met Mouse_Curs … FALSE

Function Mousek: Integer;

montre le curseur de la souris et met Mouse_Curs … TRUE

Function Mousex: Integer;

Fonctions et proc‚dures pour les modes graphiques.

Function Mousey: Integer;

renvoie l'abscisse de la souris

Procedure Mouse_X_Y(Var X, Y : Integer);

renvoie l'ordonn‚e de la souris

Procedure Mouse_X_Y_K(Var X, Y, K : Integer);

renvoie les coordonn‚es de la souris

Procedure Setmouse(X, Y : Integer);

renvoie les coordonn‚es et l'‚tat des boutons de la souris

Procedure Mouse_Cadre(X_Min, Y_Min, X_Max, Y_Max : Integer);

positionne la souris en (X, Y)

Procedure Mouse_Cadre_Horiz(X_Min, X_Max : Integer);

empŠche la souris de sortir du cadre sp‚cifi‚

Procedure Mouse_Cadre_Vert(Y_Min, Y_Max : Integer);

empŠche la souris de sortir de la bande d‚finie par les colonnes

Function Mousex_Txt: Integer;

Fonctions et proc‚dures pour les modes textes.

Function Mousey_Txt: Integer;

renvoie l'abscisse de la souris en mode texte

Procedure Mouse_X_Y_Txt(Var X, Y : Integer);

renvoie l'ordonn‚e de la souris en mode texte

Procedure Mouse_X_Y_K_Txt(Var X, Y, K : Integer);

renvoie les coordonn‚es de la souris en mode texte

Procedure Setmouse_Txt(X, Y : Integer);

renvoie les coordonn‚es et l'‚tat des boutons de la souris en mode texte

Procedure Mouse_Cadre_Txt(X_Min, Y_Min, X_Max, Y_Max : Integer);

positionne la souris en (X, Y) en mode texte

Procedure Mouse_Cadre_Horiz_Txt(X_Min, X_Max : Integer);

empŠche la souris de sortir du cadre sp‚cifi‚ en mode texte

Procedure Mouse_Cadre_Vert_Txt(Y_Min, Y_Max : Integer);

empŠche la souris de sortir de la bande d‚finie par les colonnes en mode texte

Constants

Mouse_Curs : Boolean = False;

Auteur: Pr‚martin Patrick. Date: 26/01/1991. 30/01/1991. 10/02/1991. 15/02/1991. 28/02/1991. 23/03/1991. Langage: Turbo Pascal 4.0 15/08/1991. 19/08/1991. 26/08/1991. 27/11/1991. Langage: Turbo Pascal 6.0

But: Utilisation de la souris … partir du Turbo Pascal.

Mouse_On : Boolean = False;

True si le curseur de la souris est visible, False dans le cas contraire.

My libraries for Turbo Pascal (c) 1990-2025 Patrick PREMARTIN - Powered by PasDoc
Generated by PasDoc 0.16.0.