--> Archiwum Forum
Booshman™ [ Pretorianin ]
Turbo Pascal - HELP
sprawa wyglada tak: mam juz gotowy programik- kodowanie metada RSA i chcialem go upiekszyc kolorowymi ramkami itd w trybie graficznym, problem polega na tym ze nie mam pojecia jak polaczyc tryb graficzny z tekstowym,
kombinowale ze wstawieniem okien ale nic to nie dalo, w tej chwili mam albo ramki albo txt, albo txt w trybie graficznym-
czyli brak mozliwosci wpisywania danych(chyba ze jest na to jakis sposob ktorego jeszcze nie poznalem)
Jakies pomysly?
Booshman™ [ Pretorianin ]
... ?
aka [ Chor��y ]
znalazlem u siebie w archiwum taka procedurke do pobierania tekstu w trybie graficznym:
procedure pobierz(x,y:byte;var l:string;var dl:byte;var ch:char);
var
bl:boolean;
i,j:integer;
begin
gotoxy(x,y);
for i:=1 to dl do write(#46);
gotoxy(x,y);
write(l);
bl:=false;
j:=0;
repeat
gotoxy(x+j,y);
bufor;
ch:=readkey;
case ch of
#32..#42,#44..#122,#134,#136,#141,#143,#151,#152,#157,#162,#164,#165,
#168,#169,#171,#189,#190,#224,#227,#228:
if ((j<dl)and(length(l)<>dl)) then begin
j:=j+1;
insert(ch,l,j);
gotoxy(x,y);
write(l);
end;
#13,#27,#43:begin
bl:=true;
dl:=length(l);
end;
#0:begin
ch:=readkey;
case ch of
#72,#80:begin
bl:=true;
dl:=length(l);
end;
#75:if j<>0 then j:=j-1;
#77:if ((j<dl)and(j<>length(l))) then j:=j+1;
#83:begin
delete(l,j+1,1);
gotoxy(x,y);
write(l);
if j<dl then write(#46);
gotoxy(x+length(l),y);
end;
end;
end;
#8:if j<>0 then begin
delete(l,j,1);
j:=j-1;
gotoxy(x,y);
write(l);
gotoxy(x+length(l),y);
write(#46);
end
end;
until bl;
gotoxy(x,y);
write(l);
end;
powodzenia :)