 | Il codice propone una cornice verde con ombra su un piano di lavoro riempito di caratteri '▒';
su richiesta modifica poi il cursore del Mouse obbligandolo a cambiare
il colore del carattere che sta coprendo (senza operare modifiche su
di esso)
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_CambiaCur2;
USES Crt,
giobe;
VAR pixel:boolean;
puls,colore,sfondo,inizio,fine:word;
col:integer;
tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{*
Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice3 ( 6,28,26,11,15,2,7,0,2,2);
Cornice1 (10,38, 5, 3,15,2,1,1);
textcolor(15);
gotoxy (31,7); write('Controllo del COLORE');
KeyClickMessage2 (tasto,puls,15,1,
'modificare il cursore ');
TextBackground (2);
gotoxy (40,11); write('*');
VediMouse;
FOR sfondo:=0 to 15 DO
FOR colore:=0 to 15 DO
begin
ViaMouse;
IF sfondo<10 THEN col:=32 ELSE col:=31;
gotoxy (col,15);
write('sfondo ',sfondo,' colore ', colore ,' ');
CambiaCur2(sfondo,colore);
gotoxy(40,11);
VediMouse;
pixel:=false; {coordinate in caratteri}
SetMouse (pixel,40,11); {colonna,riga}
AspettaKeyClick (tasto,puls);
IF tasto=Chr(27) THEN
begin
colore:=15; sfondo:=15;
end;
end;
VIAcur; ViaMouse;
KeyClickMessage2 (tasto,puls,15,1,
'terminare il programma');
TextBackground(0);{************************************}
ClrScr;
{* Aspetta un tasto o il click di un*}
gotoxy (1,25); {*
pulsante del Mouse e torna a DOS *}
RipCur;
{************************************}
END.
|
|
