DBGrid i naizmenicno obojene vrste

DBGrid i naizmenicno obojene vrste 12.12.2008. u 11:56 · pre 217 meseci #1

O ovoj temi je vec bilo reci ali prethodni postovi mi nisu pomogli.

Hocu da naizmenicno obojim DBGrid ali mi dbGrid2.DataSource.DataSet.RecNo uvek vraca -1, pa to ne mogu da koristim kao kriterijum za promenu boje.

Podaci se nalaze u Query1 a probao sam i sa Query1.RecNo i isto.

Query1 nije prazan jer vec menjam boju fonta u DBGridu, ali u zavisnosti od vrednosti polja, i to radi.

Koristim Delphi5 ako je to od neke vaznosti.

Re: DBGrid i naizmenicno obojene vrste 12.12.2008. u 16:23 · pre 217 meseci #2

Code:

type
  TMyDBGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(TMyDBGrid(DBGrid1).DataLink.ActiveRecord) then
    DBGrid1.Canvas.FillRect(Rect);
end;

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: DBGrid i naizmenicno obojene vrste 15.12.2008. u 08:02 · pre 217 meseci #3

Hvala na odgovoru.

Ovo sada radi dosta bolje.
Jedino kad selektujem neki neparan red vise nemam onu plavu liniju za selektovanu vrstu, jer je verovatno ovim nacinom prefarbam.
Moze li nekako da i ona ostane?

Re: DBGrid i naizmenicno obojene vrste 15.12.2008. u 12:05 · pre 217 meseci #4

> Jedino kad selektujem neki neparan red vise nemam onu plavu liniju za selektovanu vrstu, jer je verovatno ovim nacinom prefarbam.

Možeš ali je moraš sam iscrtati, pomoću State parametra možeš videti kada je ćelija selektovana i tada promeni boju ćelije i na kraju iscrtaj tačkasti rect oko ćelije (koristi DrawFocusRect). Biće ti najlakše ako pogledaš kako je to urađeno u DBGridu, metoda je DrawCell.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Forum kao aplikacija na telefonu

Srodne teme