V
vital
вобсчем нуна разукрасить текст примерно в таком формате
текст [цвет$ текст] текст (почти как в форуме )
причем сообщение идет с сокета, но это уже мелочи..
Я пробовал делать примерно так
писал сейчас руками поэтому возможны опечатки и небольшие несоответствия тому как делал в коде.
ЗЫ.
что-то мне подсказывает что запостил тему я не там..
текст [цвет$ текст] текст (почти как в форуме )
причем сообщение идет с сокета, но это уже мелочи..
Я пробовал делать примерно так
Код:
var
j:integer;
msg:string;
clr:tcolor;
...
msg:=socket.receivetext;
clr:=richedit.font.color;
for j:=0 to length(msg) -1 do
begin
if msg[j]='[' then
begin
richedit.selstart;
if copy(msg,j,pos('$',msg)='clred' then
begin
richedit.selattributes.color:=clred;
end;
end
else if msg[j]=']' then
begin
richedit.selattributes.color:=clr;
end;
end;
richedit.text:=richedit.text+msg[j];
писал сейчас руками поэтому возможны опечатки и небольшие несоответствия тому как делал в коде.
ЗЫ.
что-то мне подсказывает что запостил тему я не там..