program animacja;
uses graph,crt;
var gd,gm,width,radius,i:integer;
begin
gd:=detect;initgraph(gd,gm,'C:\tp\BGI');
if graphresult<>grok then halt(1);
for i:=1 to 300 do
begin
settextstyle(6,0,6);
setcolor(yellow);
outtextXY(-100+i,150,'TEKST TEKST');
delay(10);
end;
readln;
end.
uses graph,crt;
var gd,gm,width,radius,i:integer;
begin
gd:=detect;initgraph(gd,gm,'C:\tp\BGI');
if graphresult<>grok then halt(1);
for i:=1 to 300 do
begin
settextstyle(6,0,6);
setcolor(yellow);
outtextXY(-100+i,150,'TEKST TEKST');
delay(10);
end;
readln;
end.
tylko jest mały problem bo ten tekst się rozmazuje ;d.
@down
ooo właśnie nie mogłem sobie tej komendy przypomnieć :D
dzięki wielkie! : ]
Zakładki