Autor Téma: DBgrid, zmena farby riadkov  (Přečteno 122 krát)

Offline delirium

  • Nováček
  • *
  • Příspěvků: 4
  • Karma: 0
DBgrid, zmena farby riadkov
« kdy: 29-06-2020, 13:44:02 »
Zdar,

poprosim o radu, mozno trivialnu, ako dokopat DBGrid, ktory "nacita/otvori" databazu .DBF a zaroven je nastaveny INDEX (ten sa bude menit uzivatelom) podla, ktoreho sa data zobrazia, aby bol kazdy druhy riadok pri zobrazeni napr. zeleny.

Bez INDEXu to funguje ok, ale pri pouziti INDEXu je problem, cisla riadkov sa menia podla vybraneho INDEXu.

Vid. priklad priloha obrazkov.

Dakujem za radu.

Delphi 7.

m.

Offline delirium

  • Nováček
  • *
  • Příspěvků: 4
  • Karma: 0
Re:DBgrid, zmena farby riadkov
« Odpověď #1 kdy: 29-06-2020, 14:19:35 »
Sorry damy/pani, vyriesene tymto kodom,

var
  rh: Integer;
begin
  with MyDBGrid(DBGrid1), Canvas do
    if State = [] then
    begin
      rh := MyDBGrid(DBGrid1).DefaultRowHeight;
      if dgRowLines in DBGrid1.Options then
        Inc(rh);
      if ((rect.top div rh) and 1) <> 0 then
      begin
        Brush.Color := clBtnHighlight;  // your background color!
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
    end;
end;

Dik.

m.

Poprosim uzatvorit tuto temu, dakujem.