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 ®
Registrovani: 88 ( Zoran Rašković, rade1969, m4rk0, mmiki, Boocy, doktor28, zivi, biotech, 3D-Elite, zorantod, vaske555, jonathan, piri, Kovacevic Vladimir, Micy89, sanibo, kasaad, Zoran Rodic, aleksandar_and, pbenka, Ivan Ivanic, muscorp, time, sorrow, commando, cikaKosta, CNC SHOP, Man-Wolf, mixon76, miki987, r0dfx, symbian_6p, bela.rada, Nemanja, maxxex, Body Bag, touch_master, voja_pfc, senaru92, [REaS0n], -V-O-Y-A-G-E-R-, Milan86, owim, palenta, GoranYu, kubanacc, Mefisto_soad, zoxim, tomasd, tanasko, JohnDou, invazija, beep, Hattalasat, djadju, gfreeman, Milos1992, smars, Cacak, hemarikon, gsumar, Wasil, Flash411, Milan Gligorijevic, mnesa, sipar, mladi MAJSTOR, vane d, _CaRtMan_, Bojan Basic, a1200, zoltanf, pisac, ptak 13., apex, zaraza, vladakru, goran2222, Dush0ica, jockeal, MasterBlaster80, kazil, Silenoz, filipf, phoneflashing, savicnebojsa, bakara, RVP )
MultiColor LisBox, RichEdit ili nesto trece...