 | Il codice mostra l'area su cui il mouse dovrà
passare e rimane in attesa dei 2 eventi necessari per sfruttare a
pieno la ChkKey: passare
sull'area stessa e fare click con
uno dei pulsanti del Mouse.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_ChkClick;
USES Crt,
giobe;
VAR tasto:char;
rig,col1,col2:word;
i:integer;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice1 ( 6,24,31,6,15,4,1,1);
Riempi3 (25,25,15,1,' ');
textbackground(1);textcolor(15); gotoxy (14,25);
write('Prova della Funzione ChkClick');
write('- Premi un tasto per terminare');
textbackground(4);
gotoxy(27,7); write('Copri l''area con il Mouse');
gotoxy(27,8); write(' e se sei sopra fa click ');
gotoxy(27,10); write('********* AREA ***********');
REPEAT
VediMouse;
IF ChkClick (10,27,52) THEN
FOR i:=1 to 26 DO ATTRchr (10,26+i,14,1)
UNTIL keypressed;
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
