Скачать: CL | DM;

Псих - TRxRichEdit   Найти похожие ветки 

← →
Deadlock   (2003-05-02 04:59) [0]

Короче все просто:

Если делать так:
Procedure AddParsedMessage(s: String; Color: TColor);
Var
res : String;
Begin
With Form1.Memo1 Do
Begin
selAttributes.Color := Color;
Lines.Add(s);
selAttributes.Color := clBlack;
End;
End;
AddParsedMessage("Test",Clblue);

то добавляется текст цвета фона, а если так:
Procedure AddParsedMessage(s: String; Color: TColor);
Var
res : String;
Begin
With Form1.Memo1 Do
Begin
selAttributes.Color := Clblue;
Lines.Add(s);
selAttributes.Color := clBlack;
End;
End;
то все поет и пляшет...текст синий...
в чем трабла?

---

← →
Deadlock   (2003-05-02 05:42) [1]

забейте

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c