Dodawanie linijek w roznych kolorach do RichEdita

0

Witam

mam okienko (richEdit) w ktorym zapisuje jakies zdarzenia.
chcialbym zeby mozna bylo dodawac kolejne linijki w roznych kolorach.

do tej pory robilem to tak:

richedit1.selattributes.color := Jakis_kolor;
richedit1.lines.add('jakis napis');

ale niestety jesli ten richedit nie jest aktywna kontrolka (np jest na niewidocznym formularzu)
to kolorki nie dzialaja (bo nie ma zaznaczonego tekstu)...

ustawianie focus'a na richedit jest nie do przyjecia.

czy ma ktos pomysl jak dodawac kolorowe linijki do RichEdit'a?

0

Użyj defatributes.

0

niestety DefAttributes zmienia kolor calosci tekstu, czyli wczesniej dodane linijki tez:/

mi zalezy na tym zeby kazda linijka mogla byc innego koloru...

0

Hmmm, na pierwszej formie mam RichEdit1, Edit1 i Button1 i takie metody:

procedure TForm1.AddText;
begin
  Randomize;
  richedit1.selattributes.color := RGB(Random(256), Random(256), Random(256));
  richedit1.lines.add('jakis napis');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

druga forma ma tylko przycisk i takie metody:

procedure TForm2.Button1Click(Sender: TObject);
begin

  Form1.Edit1.SetFocus;
  Form1.AddText;

end;

procedure TForm2.FormHide(Sender: TObject);
begin
  Form1.RichEdit1.Visible := True;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
   Form1.RichEdit1.Visible := False;
end;

Czyli po jej pokazaniu chowany jest RichEdit1, po kliknięciu focus ustawia się jak widać na Edit1, a zmieniam kolor w RichEdit1, zamykam tę formę, RichEdit1 pojawia się i oczywiście napisy są w różnych kolorach. Może pokaż cokolwiek z kodu, bo jak napisałem SOA#1 ;)

Jacek

1 użytkowników online, w tym zalogowanych: 0, gości: 1