Unit mouse

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

Overview

Classes, Interfaces, Objects and Records

Name	Description
Record `t_mou`

Functions and Procedures

function mou_load(nom_fich : string) : p_mou;

function mou_save(nom_fich : string; number : t_mou_regs) : byte;

function mou_register(mou : p_mou; number : t_mou_regs) : byte;

function mou_select(number : t_mou_regs) : byte;

function mou_erase(number : t_mou_regs) : byte;

procedure mou_clear;

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);

Types

t_mat = array [1..16] of word;

p_mou = ˆt_mou;

t_mou_regs = byte;

Constants

Mouse_Curs : Boolean = False;

Mouse_On : Boolean = False;

nb_max_mou = 50;

Left_Button = 1;

Right_Button = 2;

Middle_Button = 4;

Description

Functions and Procedures

function mou_load(nom_fich : string) : p_mou;

******************************************************************************** Routines de gestion des fichiers d'extension .MOU Ces fichiers sont cr��s par 'Mouse Maker'.

Vous ne devez utiliser ces routines que dans les modes graphiques. Les modes conseill�s sont EGA, et VGA (les suivants sont � envisager). Les routines fonctionnent sur toutes les cartes, il suffit de poss�der les drivers Microsoft appropri�s. ********************************************************************************

function mou_save(nom_fich : string; number : t_mou_regs) : byte;

Charge le fichier 'nom_fich.MOU' s'il existe. En cas d'erreur, cette fonction renvoie NIL. Si le chargement s'est effectu� sans probl�me, la fonction renvoiera un pointeur sur le fichier voulu.

function mou_register(mou : p_mou; number : t_mou_regs) : byte;

Stocke la souris de num�ro 'Number' dans le fichier 'nom_fich.MOU'. Les codes de retour possibles sont les suivants: 0 - si l'op�ration s'est bien pass�e. 1 - s'il y a eu une erreur de sauvegarde (acc�s disque...), consultez IORESULT. 2 - si 'Number' n'est pas valide: sup�rieur � 'Nb_Max_Mou'. 3 - si ce num�ro n'est pas affect� � une souris.

function mou_select(number : t_mou_regs) : byte;

Affecte le num�ro 'Number' � la souris dont vous passez le pointeur 'Mou'. Les codes de retour sont les suivants: 0 - Aucune erreur n'est apparue. 1 - Si 'Mou' est � NIL. Vous ne pouvez pas affecter ce num�ro. 2 - Si 'Number' n'est pas valide.

function mou_erase(number : t_mou_regs) : byte;

Cette fonction vous permet d'activer une souris graphique choisie. Vous devez en passer le num�ro, et le changement de forme se fera automatiquement. Les codes de retour sont les suivants: 0 - Aucune erreur. 1 - Si 'Number' est invalide (il doit �tre inf�rieur � 'Nb_Max_Mou'). 2 - Si la souris correspondante � 'Number' n'existe pas.

procedure mou_clear;

Supprime la souris de num�ro 'Number'. Les codes de retour sont: 0 - Souris supprim�e sans probl�me. 1 - Si 'Number' est invalide. 2 - Si la souris de rang 'Number' n'existe pas.

Function Mouse_Test: Boolean;

******************************************************************************** Les routines suivantes vous permettront de g�rer les divers traitements � faire avec une souris compatible Microsoft.

Certains probl�mes nous sont apparus lors des tests sur diff�rentes machines, les souris ne r�pondaient pas correctement. Veillez donc lorsque vous achetez une souris � ce qu'elle soit 100% compatible Microsoft, et que le constructeur de votre ordinateur vous la conseille...

Les routines suivantes fonctionnent en mode texte, mais aussi en mode graphique, les �ventuelles conversions de format sont faites automatiquement. ********************************************************************************

Function Mouse_Nb_Button: Integer;

Cette fonction renvoie TRUE si un driver de souris Microsoft est actif. Elle modifie 'Mouse_On'. Vous n'aurez g�n�ralement pas � appeler cette fonction, l'unit� le fait lors du d�marrage de votre application. Il vous suffira de regarder le contenu de la variable bool�enne 'Mouse_On' qui contiendra TRUE si un driver est actif.

Procedure Hide_Mouse;

Cette fonction vous renvoie le nombre de boutons utilis�s par votre souris. Ce nombre peut varier d'un driver � un autre (avec la m�me souris). Il n'est donc qu'indicatif, nous n'avons jamais eu l'occasion de nous en servir.

Procedure Show_Mouse;

Cette proc�dure cache la souris.

Function Mousek: Integer;

******************************************************************************** Les routines suivantes g�rent les souris Microsoft en mode graphique. Aucun test ne sera effectu�, � vous de savoir quoi utiliser... ********************************************************************************

Function Mousex: Integer;

Cette fonction renvoie le code des boutons actifs lors de l'appel � cette fonction. Les codes valides sont: Left_Button, Right_Button, Middle_Button, et leurs combinaisons.

Function Mousey: Integer;

Renvoie l'abscisse courante du point d'action de la souris.

Procedure Mouse_X_Y(Var X, Y : Integer);

Renvoie l'ordonn�e courante du point d'action de la souris.

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

Met dans les variables X, et Y les coordonn�es du point d'action de la souris. X correspond � l'abscisse, Y � l'ordonn�e.

Procedure Setmouse(X, Y : Integer);

Renvois dans X, Y et K les coordonn�es de la souris, et l'�tat des boutons cod�s comme pour la fonction 'Mouse_K'.

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

Positionne la souris aux coordonn�es X (pour l'abscisse) et Y (pour l'ordonn�e). Si la souris est visible, son curseur sera d�plac� automatiquement. Vous ne devriez pas avoir � l'effacer avant l'appel � cette proc�dure.

Procedure Mouse_Cadre_Horiz(X_Min, X_Max : Integer);

Cr�e un cadre � l'ext�rieur duquel la souris ne pourra pas se d�placer. Ses d�placements seront limit�s au rectangle d�fini par les coordonn�es pass�es en param�tres. La souris sera mise dans ce cadre.

Procedure Mouse_Cadre_Vert(Y_Min, Y_Max : Integer);

Limite une bande horizontale hors de laquelle la souris ne pourra pas aller.

Function Mousex_Txt: Integer;

******************************************************************************** Les routines suivantes g�rent les souris Microsoft en mode texte. Aucun test ne sera effectu�, � vous de savoir quoi utiliser... ********************************************************************************

Function Mousey_Txt: Integer;

Renvoie l'abscisse courante de la souris. C'est une abscisse caract�re. Elle peut aller de 1 � 132 (peut-�tre plus suivant la carte que vous poss�dez).

Procedure Mouse_X_Y_Txt(Var X, Y : Integer);

Renvoie l'ordonn�e comprise entre 1 et 43 pour les modes texte les plus puissants sur cartes VGA. Plus de 43 pour les prochaines cartes...

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

Renvoie les coordonn�es X et Y de la souris.

Procedure Setmouse_Txt(X, Y : Integer);

Renvoie les coordonn�es de la souris, ainsi que l'�tat de ses boutons. Voyez leur codage pour la fonction 'Mouse_K'.

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

D�place la souris aux coordonn�es absolues sp�cifiez. Elles doivent absolument �tre dans l'�cran actuel. Aucun test n'est r�alis� � ce sujet.

Procedure Mouse_Cadre_Horiz_Txt(X_Min, X_Max : Integer);

D�finit un cadre hors duquel la souris ne pourra pas se d�placer.

Procedure Mouse_Cadre_Vert_Txt(Y_Min, Y_Max : Integer);

Limite les d�placements de la souris � la bande comprise entre X_Min et X_Max.

Types

t_mat = array [1..16] of word;

Code du bouton du milieu.

p_mou = ˆt_mou;

Matrice utilis�e pour la forme, et pour le fond des souris en mode graphique.

t_mou_regs = byte;

Constants

Mouse_Curs : Boolean = False;

Auteur: Premartin Patrick

Date: 14/01/1992.

Langage: Turbo Pascal (toutes versions � partir de la version 4.0)

But: Regroupement de proc�dures et de fonctions permettant l'utilisation des souris 100% compatibles Microsoft, et gestion des fichiers d'extension .MOU cr��s par 'MOUse Maker'.

Cette unit� est copyright Olf Software. Elle est utilisable par tous, aucune contribution n'est demand�e. Nous vous demandons quand m�me de vous faire conna�tre par nous...Vous pourriez peut-�tre avoir besoin de nos logiciels un jour...

L'unit� est exclusivement distribu�e par Distri Soft Club Route de Champagne 77210 Samoreau France.

Mouse_On : Boolean = False;

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

nb_max_mou = 50;

Indique en permanence si la souris est pr�sente ou pas.

Left_Button = 1;

Indique le nombre maximal de fichiers .MOU simultan�ment en m�moire.

Right_Button = 2;

Code du bouton gauche.

Middle_Button = 4;

Code du bouton droit.

Generated by PasDoc 0.16.0.

My libraries for Turbo Pascal

Unit mouse

Description

Overview

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Description

Functions and Procedures

Types

Constants