Unit u_mou

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;

Types

t_mat = array [1..16] of word;
p_mou = ˆt_mou;
t_mou_regs = byte;

Constants

nb_max_mou = 50;

Description

Functions and Procedures

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

Codes de retour: - pointeur vers la souris charg‚e; - NIL si erreur (pas assez de m‚moire, nom de fichier incorrect ...).

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

Codes de retour: - 0 si aucune erreur; - 1 si erreur de sauvegarde; - 2 si NUMBER n'est pas valide; - 3 si ce num‚ro n'est pas affect‚.

function mou_select(number : t_mou_regs) : byte;

Codes de retour: - 0 si pas d'erreur; - 1 si mou = NIL; - 2 si NUMBER n'est pas valide (autre que dans 1..NB_MAX_mou).

function mou_erase(number : t_mou_regs) : byte;

Codes de retour: - 0 si pas d'erreur; - 1 si NUMBER non valide (autre que dans 0..NB_MAX_mou); - 2 si la souris correspondante n'a pas ‚t‚ enregistr‚e par Mou_Register.

procedure mou_clear;

Codes de retour: - 0 si pas d'erreur; - 1 si NUMBER non valide (autre que dans 0..NB_MAX_mou); - 2 si la souris correspondante n'existe pas.

Types

t_mat = array [1..16] of word;
 
p_mou = ˆt_mou;
 
t_mou_regs = byte;
 

Constants

nb_max_mou = 50;

Auteur: Premartin Patrick Date: 21/11/1991. Langage: Turbo Pascal 6.0 But: Procedures et fonctions de changement de la forme de la souris en mode graphique.

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