DrawColumnCell (aktieven Feld anders darstellen)

[marabu]

Ahoi Karstadt,

ich würde im Anschluß noch ein Rechteck zeichnen:

Delphi-Quellcode:

procedure DbGrib_DrawColumnCell_Einstellung(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  r: TRect;
begin
  with Sender as TPDJXPDBGrid do
  begin
    if Odd(DataSource.DataSet.RecNo) then
    begin
      Canvas.Font.Color := Dbgrib_schrift_farbe1;
      Canvas.Brush.Color := Dbgrib_farbe_1;
    end else
    begin
      Canvas.Font.Color := Dbgrib_schrift_farbe2;
      Canvas.Brush.Color := Dbgrib_farbe_2;
    end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
    r := Rect;
    InflateRect(r, -1, -1);
    Canvas.Brush.Color := clBlue;
    FrameRect(r);  
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu