Kako obojiti jedan red / cell u DBGrid ~ like komponenti i kojoj?

Dakle, preporucite neku komponentu u kojoj se redovi ekstremno lako boje, i koja ima mogucnost da u zavisnosti od value nekog polja da boju fontu...

Potpis

And don't be mad at me for crying for humanity,
call it pretensions but I got good intentions,
to keep my sanity, I'm hoping, fuck, there's gotta be
an answer to their strategies and their evil inventions... ~Looptroop

To mozes uraditi i sa obicnom (DB)Grid komponentom. U OnDrawCell eventu na osnovu vrednosti celije postavis Brush.Color i Font.Color (ili mozda jos neki atribut za font... recimo bold) na zeljenu vrednost. Brush.Color je boja pozadine, a Font>Color je boja texta. Kad to sve podesis pozoves samo DefaultDraw (ne secam se kako se tacno zove funkcija) i ona ce sa definisanim bojama iscrtati celiju.

Potpis

Play Store

samo da se nadovezem na Srki-ja, i da "konkretninje" objasnim :)
evo kako sam ja odradio,
na property DrawDolumnCell, DBGrid-a sam stavio code:

If odd(izvorPodataka.DataSet.RecNo) then
tabelaIzbora.Canvas.Brush.Color:=nekaBoja
else
tabelaIzbora.Canvas.Brush.Color:=nekaDrugaBoja;

tabelaIzbora.DefaultDrawColumnCell(Rect,DataCol,Column,State);

ovaj code mi daje za rezultat da mi svaki neparan red bude obojen u nekaDrugaBoja, a paran u nekaBoja!

evo ti jos jedan primer kako se boji red koji je selektovan:
if (gdSelected in State) then
begin
DBGrid1.Canvas.Font.Color := clPurple;
DBGrid1.Canvas.Brush.Color := clLime;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top,Column.Field.AsString);
end
else
begin
DBGrid1.Canvas.Font.Color := clBlue;
DBGrid1.Canvas.Brush.Color := clAqua;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top,Column.Field.AsString);
end;

poz :wave:

@tamnicar
U onaj drugi primer treba da se doda provera kako je poravnat tekst u koloni:


Ovo mozes da stavis u poseban unit i svakoj Dbg u projektu dodelis za OnDrawColumnCell, onda svi gridovi ce se isto iscrtavati. Lose je koristiti specijalizovano npr. DBGrid1 kda imas Sender. Takodje treba da TDBGrid.DefaultDrawing stavis na false.

Btw. jel zna neko kako bez pisanja f-je koja sabira sirine column-a dobiti zbirnu sirinu svih polja (potrebno za iscrtavanje focucRect sa ivicama).

Imate zanimljivih tekstova na About.com - pogledajte na primer http://delphi.about.com/od/usedbvcl/l/aa031699.htm

Ovo je sve OK..

mene zanima kako da obojim pojedine redove dbgrid-a na klik dugmeta,
koje se nalazi na istoj formi kao i dbgrid, npr. da ofarba sve redove koji imaju vrijednost -1 za neko polje...

Hvala

Potpis

Give me six hours to chop down a tree and I will spend the first four sharpening the axe.

U pravu si... ovo ce ofarbati te kolone... ali kako to uciniti na buttonclick ili na neki drugi event:)

Pozdrav

Potpis

Give me six hours to chop down a tree and I will spend the first four sharpening the axe.

Dodaj jednu boolean promenljivu... recimo Oboji: Boolean i pritiskom na zeljeno dugme taj flag postavi na True ili slicno i kada primis OnDrawColumnCell event prvo proveris flag i na osnovu njega odlucujes kojom bojom sta da bojis.

Potpis

Play Store

Vazi li to i kada je dbgrid vec nacrtan na formu tj kada se to dugme nalazi na istoj formi kao i db grid*

Potpis

Give me six hours to chop down a tree and I will spend the first four sharpening the axe.

Naravno da vazi. Kad promenis flag samo pozoves DBGrid.Refresh i grid ce se ponovo iscrtati.

Potpis

Play Store

WOW radi hvala puno ...samo me jos interesuje kako obojiti citav red a ne samo celiju u kojoj je podatak

Hvala jos jednom ;)

Potpis

Give me six hours to chop down a tree and I will spend the first four sharpening the axe.