dbGrid Zeile farbig markieren und fokusieren

[DeddyH]

Was mir gerade auffällt:

Zitat:

Delphi-Quellcode:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   With (Sender as TStringGrid) do
  begin
    if (gdSelected in State) then
      Canvas.Brush.Color:= clYellow
    else if (gdFixed in State) then //then was?
    else
      if UnterschiedFeststellen(2, ARow) then //2 ist die 3. Spalte, ist das richtig?
      Begin
        canvas.Brush.Color:= clWhite;
        Canvas.Font.Color:= clBlack;
      end
      else
      begin //<-- fehlte
        Canvas.Brush.Color:= clBtnFace;
        Canvas.Font.Color:= clBlack;
      end;  //<-- fehlte auch
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
  end;
end;