Warum wird die erste Spalte nicht eingefärbt ?

[JoelH]

ich hab diesen Code geschrieben

Delphi-Quellcode:

procedure Gridcolor(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState; geldrows : Array of Integer);
var check : boolean;
    i : integer;
begin
  with Sender as TStringgrid do
  begin
    WITH Canvas DO
    BEGIN
      check := false;
      for i := 0 to length(geldrows)-1 do
      begin
        if ACol = geldrows[i] Then check := true;
      end;
      if (ARow > 0) then
      begin
        if (check) then
          Brush.Color := schriftfarbe
        else
          Brush.Color := gridhintergrund;
      end;
      //if (row = ARow) then Brush.Color := schriftfarbe XOR 65655;
      if (State = [gdSelected]) then Brush.Color := schriftfarbe XOR 65655;
      FillRect(Rect);
      TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
    END;
  end;
end;

wichtig sind hier folgende Zeilen

Delphi-Quellcode:

      //if (row = ARow) then Brush.Color := schriftfarbe XOR 65655;
      if (State = [gdSelected]) then Brush.Color := schriftfarbe XOR 65655;

sie sollten beide das selbe machen, die Zeile die selected ist anders einfärben. Tun sie auch, zumindestens fast. Die auskommentierte Zeile tut wie befohlen und markierte alle selektierte Zellen (rowSelect ist an) aber die zweite lässt die erste Spalte unengefärbt

Warum nur ?

[Hansa]

      if (ARow > 0) then Die Spalten werden ab 0 gezählt, so auf die Schnelle, ohne Garantie.

[JoelH]

@Hansa
es geht um die erste Spalte, nicht die erste Reihe

Bei einem DBGrid ist es leider das selbe Phänomen, leider kann ich hier nicht auch die row zurückgreifen bzw. weis leider nicht wie ich an diese ran komme da ja die Parameterübergabe wie folgt ist

Delphi-Quellcode:

procedure DBGridcolor(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState;geldrows : Array of Integer);

Da hab ich ja leider nicht row und ARow Wie heissen die bein einem DBGrid ?

[Sharky]

Hai JoelH,

schaue dir doch mal mein Beispiel in der Code-Library an. Eventuell hilft Dir das ja weiter.

[JoelH]

joo,
muss heissen
if (gdSelected in State) then und nicht
if (State = [gdSelected]) then sowas aber auch.

[Sharky]

Zitat von JoelH:

joo,
muss heissen
....sowas aber auch.

So geht es einmal manchmal http://www.sharkys-home.de/smiles/zaehneputzen.gif

Nachtrag zu deiner Frage bzgl. Row:

Da ein DBGrid ja mit einem Query oder vergleichbar verbunden ist müsstest Du diese Info über Query1.RecNo herausbekommen.