 | Per il corretto funzionamento è necessario passare
loro il parametro pixel,
di tipo boolean; se esso è fissato al valore vero
la misura lasciata nelle variabili word ColMou
e
RigMou
è espressa in pixel; in caso contrario le coordinate sono
espresse in caratteri.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_ColMou;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice3 (10,25,29,7,15,1,7,0,2,1);
Riempi3 (25,25,15,1,' ');
textbackground(1);textcolor(15); gotoxy (14,25);
write('Prova Movimento del Mouse ');
write('- Premi un tasto per terminare');
IF Mouse THEN
begin
VediMouse;
gotoxy (29,12); write(' riga colonna ');
gotoxy (28,14); write('pixelY pixelX ');
REPEAT
textcolor(14);
pixel:=false;
gotoxy (36,12);
IF rigMOU(pixel)<10 THEN
write(' ');
write(rigMOU(pixel));
gotoxy (48,12);
IF ColMou(pixel)<10 THEN
write('
');
write(ColMou(pixel));
pixel:=true;
gotoxy (35,14);
IF rigMOU(pixel)<100 THEN
IF rigMOU(pixel)>10
THEN write(' ')
ELSE
write(' ');
write(rigMOU(pixel));
gotoxy (47,14);
IF ColMou(pixel)<100 THEN
IF ColMou(pixel)>10
THEN write(' ')
ELSE
write(' ');
write(ColMou(pixel))
UNTIL keypressed;
end
ELSE
begin
gotoxy (27,13); write('Il MOUSE NON è presente !!!');
end;
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
