 | Poiché Box1 non
provvede a salvare i caratteri presenti sul monitor, prima di coprirli
con l’area colorata,
l’immagine originale è persa
irrimediabilmente.
|
Esempio di
Applicazione |
|
 |
 |
 |
PROGRAM Prova_Box1;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
TextBackground (0);
ClrScr;
ViaCur;
{*****************************}
{* Traccia la finestra chiusa*}
Box1(2,3,10,12,15,1,'#');{*
tra la riga2,colonna3 e la*}
{* riga10, colonna12 SENZA *}
{* CORNICE, con caratteri '#'*}
{* color Bianco Brillante(15)*}
{* su Blu(1)
*}
{*****************************}
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
