Pascal - Como Deixar Um Programa Bonito?

[Guest --Isaac --]

Opa galera, meu professor de programação pediu um projeto em pascal e já está quase todo pronto, só que queria deixa-lo mais bonito :rolleyes:

Algm sabe usar um modo de fazer isso? como usar a biblioteca graph? Se algm puder colocar os codigos prontos só para serem implementados nos programa...

Bordas, centralização, cores, animações..... Qualquer coisa para deixa-lo sem akela cara de MS-DOS puro eu tow aceitando...

As únicas coisas que eu fiz foi trocar a cor do fundo para azul e a do texto para branco, alem de um logotipozinho em ASCII...

:D

[Guest --george --]

add no MSN..

no_identity99@hotmail.com

[ficsummer]

Olá a todos,

o que eu sei um pouco é usar as bordas ,cores e fundo...

exemplos:BORDA:

procedure borda;

var i:integer;

begin

for i := 1 to 80 do

begin

gotoxy(i,1); write(#205);

gotoxy(1,1);write(#201);

gotoxy(i,48);write(#205);

gotoxy(80,1);write(#187);

end;

for i:= 2 to 48 do

begin

gotoxy(1,i);write(#186);

gotoxy(1,48);write(#200);

gotoxy(80,i);write(#186);

gotoxy(80,48);write(#188);

end;

Como devem saver esses: #200,188,são da tabela ASCII.

Cores :podem ser usadas como:textcolor(nomedacoremingles); ow textcolor(5);-> cada numeração representa uma cor ,a apartir de 16 pisca)

fundo:textbackground(nomeemingles);

Mas quero aprender sobre a biblioteca GRAPH ,não sei nada.

[Guest aloysiofilth]

eu também to com o mesmo problema, borda eu consegui colocar mas umas coisas mais fodas nem consigo também se alguém souber da uma dica ai!

[Guest Visitante]

ppl ng me pode ajudar em como por o texto a piscar??

já tentei por textcolor(17) e não da...alguém me pode ajudar??

é mesmo urgente...

[Micheus]

ppl ng me pode ajudar em como por o texto a piscar??

já tentei por textcolor(17) e não da...alguém me pode ajudar??

que eu me lebre, basta que você adicione 128 ($80 em hexa) ao valor da cor do texto que você quer setar. tipo: Yellow +128 ou 12+128 ...