Ho fatto una procedura che crea una finestra, ma ha qualcosa che non va
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;
Non capisco perché quando metto la finestra con queste dimensioni 80x25, tutto va a capo di una riga e scompare il bordo superiore.