 | Subito dopo viene
tentata l'operazione inversa, a partire dal trattino di una linea di pixel
in alto, ma
solo alcune delle 15 possibilità sono disponibili.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_CambiaCur1;
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,4,7,0,2,2);
Cornice1 (10,38, 5, 3,15,4,1,1);
textcolor(15);
gotoxy (31,7); write('Controllo DIMENSIONE');
KeyClickMessage2 (tasto,puls,15,1,
'modificare il cursore ');
fine:=15;
FOR inizio:=15 Downto 0 DO
begin
ViaMouse;
textbackground(4);
gotoxy (32,15);
write('inizio ',inizio,' fine ', fine,' ');
CambiaCur1
(inizio,15);
pixel:=false; {coordinate in caratteri}
SetMouse (pixel,40,11); {colonna,riga}
gotoxy(40,11);
VediMouse;
AspettaKeyClick (tasto,puls);
IF tasto=Chr(27) THEN inizio:=0;
end;
FOR fine:=0 To 15 DO
begin
ViaMouse;
textbackground(4);
gotoxy (32,15);
write('inizio ',inizio,' fine ', fine,' ');
CambiaCur1
(0,fine);
pixel:=false; {coordinate in caratteri}
SetMouse (pixel,40,11); {colonna,riga}
gotoxy(40,11);
VediMouse;
AspettaKeyClick (tasto,puls);
IF tasto=Chr(27) THEN fine:=15;
end;
VIAcur; ViaMouse;
KeyClickMessage2 (tasto,puls,15,1,
'terminare il programma');
{************************************}
ClrScr;
{* Aspetta un tasto o il click di un*}
gotoxy (1,25); {*
pulsante del Mouse e torna a DOS *}
RipCur;
{************************************}
END.
|
|
