Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

MultiColor LisBox, RichEdit ili nesto trece...

[es] :: Pascal / Delphi / Kylix :: MultiColor LisBox, RichEdit ili nesto trece...

[ Pregleda: 2404 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.cpe.vektor.net.



+6 Profil

icon MultiColor LisBox, RichEdit ili nesto trece...26.05.2007. u 23:37 - pre 205 meseci
Pozdrav! Ja takodje radim seminarski, skoro sam pri kraju (a poceo sam juche :D), medjutim treba mi jedna stvar! Treba korisniku da prikazujem neki jednostavan log i recimo da u tom logu odredjene linije budu drugacije boje (npr. greske crvene, upozorenja plava ...). Da li neko zna gde mog naci neki prostu komponentu koja ima mogucnost MultiColor redova! Hvala unapred! ;)

P.S. Jel postoji nesto tako u JCL/JVCL paketu, poshto nisam uspeo da nadjem!
 
Odgovor na temu

_deran_

Član broj: 69493
Poruke: 252
*.adsl.sezampro.yu.



+1 Profil

icon Re: MultiColor LisBox, RichEdit ili nesto trece...27.05.2007. u 00:25 - pre 205 meseci
mmmm... TListBox? :)
 
Odgovor na temu

viking13
Aleksandar Milanovic
SBB
Novi Beograd

Član broj: 131741
Poruke: 190
89.216.193.*



Profil

icon Re: MultiColor LisBox, RichEdit ili nesto trece...27.05.2007. u 00:42 - pre 205 meseci
Listbox.

Podesiš mu style na lbOwnerDrawFixed.

A u OnDrawItem odradiš farbanje po svojoj želji.

Evo ti jednostavna primer koji farba tekst u svakoj trećoj liniji u zelenu, crvenu ili svetlo plavu.

Code:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TListBox do
  begin
    Canvas.FillRect(Rect);
    case Index mod 3 of
      0: Canvas.Font.Color := clGreen;
      1: Canvas.Font.Color := clRed;
      2: Canvas.Font.Color := clSkyBlue;
    end;
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
  end;
end;


Ti naravno ne gledaš koja je linija po redu, nego kakav je tip poruke.

Easy?
viking ®
 
Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.cpe.vektor.net.



+6 Profil

icon Re: MultiColor LisBox, RichEdit ili nesto trece...27.05.2007. u 08:53 - pre 205 meseci
Hvala :D! Znao sam da moze preko OwnerDraw ali nikad sa tim nisam radio :D! Hvala jos jednom ;)!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: MultiColor LisBox, RichEdit ili nesto trece...

[ Pregleda: 2404 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.