Mudar font no chat

Delphi

10/03/2009

ola pessoal....

eu fiz um chat... funciona blz...

soh que eu queria mudar a font em tempo de execusão...

mais naum seria soh pra mim...

por exemplo...

eu vou mudar a minha font para arial,12,negrito,inclinado e com a cor verde.

só q a pessoa q esta conversando comigo tb tem q ver essas cores na minha letra... e a dela fique do jeito q ela queira...


vc podem me ajudar a fazer issu??


obrigado


qualquer duvida me perguntem...


abraçoss


Felipe_b350

Felipe_b350

Curtidas 0

Respostas

Walter Faria

Walter Faria

10/03/2009

entao, boa tarde.

no client do chat, vc vai ter que enviar ( protocolo junto com a msg ): ex


function FormatarMessage(Msg, UsuarioOrigem, UsuarioDestino, Cor, Fonte: String): String;
begin
result:= ´msg=´ + UsuarioOrigem + ´#´ + UsuarioDestino + ´´ + msg + ´´ + Cor + ´´ + Fonte;
end;

IdTCPClient1.WriteLn(FormatarMessage(lbEdtMsg.Text,lbEdtNick.Text,
cmbUsuario.Text,
cbCor.text, cbFonte.tex));



Dai no evento recber a msg vc trata tipo de fonte e cor entendeu ?
apesar dasta minha ideia , pode ser q nao seja a maneira correta.
Vc poderia me passar seu Chat , pra mim da uma olhada , dai posso ate te ajudar melhor . walter@rwconsultoria.com.br


GOSTEI 0
Felipe_b350

Felipe_b350

10/03/2009

olha muito obrigado...
pode ter certeza q eu irei t enviar o meu chat....

só q soh tem uma coisa...

eu não estou utilizando o [b:85667e5fe1]IdTCPClient[/b:85667e5fe1] e sim o TClientSocket...


GOSTEI 0
POSTAR