Привет всем!
Я использую следующую функцию для записи строк разного цвета:
Код:
procedure AddText(Sender:TsRichEdit;Text: String; Color: TColor = clBlack; Style: TFontStyles = []);
var
today : TDateTime;
begin
today := Time;
Sender.SelAttributes.Color:=Color;
Sender.SelAttributes.Style:=Style;
Sender.Lines.Append('['+TimeToStr(today)+'] '+Text);
SendMessage(Sender.Handle, EM_SCROLL, SB_LINEDOWN, 0);
end;
...
AddText(edt1,'Text',clGreen,[]);
...
Я вызываю данную функцию после выполнения определенной задачи.. что то вроде лога работы программы. Каждые 500 миллисекунд...
то ли она не успевает то ли я где то ошибся.. в общем бывает так, что строки не принимают цвет который я задал...
Как исправить? Заранее спасибо.