pascalzim

[Mr_DD]

alguem sabe como fazer tipo aquelas barras de loading em que aquilo vai aparecendo consoante vai carregando no pascal?
eu sei que tem uma funçao para fazer essa cena mas ja nao me lembro qual é :S

 

[seravath]

Faz uma coisa desse tipo:

program teste;
uses wincrt;
var i:integer;

begin
clrscr;
readkey;
writeln('Carregando');
textcolor(white);
textbackground(blue);
gotoxy(10,16);
for i:=1 to 50 do
begin
delay(110);
write(chr(178)); <font color=green><---- Colocas um simbolo </font id=green>
end;
textbackground(black);
textcolor(yellow);
gotoxy(28,20);
write('INICIO !!!!!!');
readkey;
end.


Atenção: Não tou a ver como defino as cores.. ajuda-me nessa parte já agora.. take care

 

[Mr_DD]

as cores tao bem é assim

 

[Mr_DD]

thnks pela ajuda