Ho fatto una procedura che crea una finestra, ma ha qualcosa che non va
Non capisco perché quando metto la finestra con queste dimensioni 80x25, tutto va a capo di una riga e scompare il bordo superiore.codice:procedure window(x,y,w,h,f,b:integer;sfondo,titolo:string); var i,j:integer; begin {creazione bordo superiore} gotoxy(x,y); textcolor(f); textbackground(b); write('Ú'); w:=w-3; for i:=0 to w do begin write('Ä'); end; write('¿'); {metto il titolo} gotoxy(x+1,y); textcolor(b); write(' '); textcolor(f); write(titolo); textcolor(b); write(' '); textcolor(f); {creazione bordi laterali e centro} w:=w+1; h:=h-1; for j:=1 to h do begin gotoxy(x,y+j); write('³'); for i:=1 to w do begin write(sfondo); end; write('³'); end; {creazione bordo inferiore} h:=h+1; gotoxy(x,y+h); write('À'); w:=w-1; for i:=0 to w do begin write('Ä'); end; write('Ù'); end;

Rispondi quotando
?

