--> Archiwum Forum
dzony600 [ Generaďż˝ ]
Turbo Pascal - problem z "ramką"
Chciałbym, aby ramka otoczyła prostokąt tylko na krawędzi. Niestety, gdy chcę to zrobić pętla wyświetla ciąg znaków, ale potem przechodzi do następnego wiersza i efekt jest widoczny na zdjęciu. Proszę o porady, może robię to zupełnie źle ?
matisf [ Konsul ]
To musi byc tekstowo?
Ja bym zrobil graficznie, ale nie mam kopi pascala przy sobie a z pamieci to ciezko
dzony600 [ Generaďż˝ ]
No raczej tekstowo, przerabiamy moduł CRT i z tablicy ASCII ma być obramowanie.
dzony600 [ Generaďż˝ ]
up
dzony600 [ Generaďż˝ ]
przedostatni ^
dzony600 [ Generaďż˝ ]
ostatni
Ambitny Łoś [ Wielki Przedwieczny ]
Zamiast tego jednego fora, zrób dwa takie:
for i:=1 to x2-x1+1 do
begin
gotoxy(i,y2-y1+1);
write('=');
end;
for i:=1 to x2-x1+1 do
begin
gotoxy(i,1);
write('=');
end;
Nie wiem czemu działa, ale działa :D
dzony600 [ Generaďż˝ ]
[7] Dzięki, ale też przesuwa pierwszą linię i efekt jest taki sam jak u mnie :/
Może zrobiłeś to na "ekranie głównym"? Ja chcę to dać w okienku.
Ehh, znalazłem procedurę ukrywającą kursor, ale to też nic nie daje. Zawsze po wyświetleniu ostatniego znaku przechodzi do następnej linii i obramowanie szlag trafia.
j.a.c.k [ tdcc ]
powiększ okienko o 1 z boku i daj ten sam kolor tła, nie wiem jak inaczej :D
dzony600 [ Generaďż˝ ]
zawsze jakieś rozwiązanie, tylko wtedy to całe window nie ma sensu :)
dzony600 [ Generaďż˝ ]
teraz już naprawdę ostatni :P