ďťż

Ładny brzuch

Jak zrobić, żeby w dosie wyswietlić jakiś tekst w ramce? Oczywiście w Turbo Pascalu
Użytkownik Steerow edytował ten post 20 styczeń 2006, 15:45


Jak zrobić, żeby w dosie wyswietlić jakiś tekst w ramce? Oczywiście w Turbo Pascalu

Jeszcze jakieś inteligentne propozycje?

Moze przejdz w tryb graficzny i tam wypisz co trzeba? Byloby ladniej i prosciej.


procedure wRamce(s:string; x, y:byte); var i, _x, _y:byte; begin _x:=wherex; _y:=wherey; gotoxy(x,y); writeln(s); for i:=0 to length(s)+3 do begin gotoxy(x+i-2,y-1); write('▓'); gotoxy(x+i-2,y+1); write('▓'); end; gotoxy(x-2,y); write('▓'); gotoxy(x+length(s)+1,y); write('▓'); gotoxy(_x,_y); end;x, y - lewy i górny róg :)
Użytkownik Cyrkiel edytował ten post 20 styczeń 2006, 16:21
Jak wpisać ▓ ?
Użytkownik Steerow edytował ten post 20 styczeń 2006, 23:46

Jak wpisać ▓  ? Lewy alt+178 na numerycznej ;)

Ja proponuje ver z trochę innym rodzajem ramki:procedure DrawTextFrame(str:string; x, y:byte); var  i,strlen,_x,_y:byte; begin  _x:=wherex;  _y:=wherey;  strlen:=length(str)+2;  gotoxy(x,y);  write(#201);  for i:=1 to strlen do    write(#205);  write(#187);  gotoxy(x,y+1);  write(#186,' ',str,' ',#186);  gotoxy(x,y+2);  write(#200);  for i:=1 to strlen do    write(#205);  write(#188);  gotoxy(_x,_y); end;
Użytkownik reVis edytował ten post 21 styczeń 2006, 13:26
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •