 | Il codice propone una cornice magenta con ombra su un piano di lavoro riempito di caratteri '▒'
e provvede a fissare il movimento del cursore del Mouse al suo
interno; su richiesta ne libera poi l'azione a pieno schermo, prima di
terminare.
|
Esempio di
Applicazione |
|
 |
 |
 |
PROGRAM
Prova_BoxMouse;
USES Crt,
giobe;
VAR pixel:boolean;
tasto:char; puls:word;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
VediMouse;
{************************************}
Cornice3 ( 6,29,23,11,15,5,7,0,2,2);
pixel:=false; {coordinate in caratteri}
SetMouse (pixel,40,11); {colonna,riga}
pixel:=false; {coordinate in caratteri}
BoxMouse(6,29,16,51,pixel);{rig1,col1,rig2,col2,pixel}
KeyClickMessage1 (tasto,puls,15,1,
'passare a tutto schermo');
RecupCorn ( 6,29,23,11,2);
pixel:=false; {coordinate in caratteri}
BoxMouse(0,0,24,79,pixel);
{rig1,col1,rig2,col2,pixel}
KeyClickMessage1 (tasto,puls,15,1,
'terminare il programma ');
ViaMouse;
TextBackground(0);{************************************}
ClrScr;
{* Aspetta un tasto o il click di un*}
gotoxy (1,25); {*
pulsante del Mouse e torna a DOS *}
RipCur;
{************************************}
END.
|
|
