Forum Delphi.cz

Delphi => Obecné => Téma založeno: delirium 29-06-2020, 13:44:02

Název: DBgrid, zmena farby riadkov
Přispěvatel: delirium 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.
Název: Re:DBgrid, zmena farby riadkov
Přispěvatel: delirium 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.