tStringGrid mit eigener Zeichenroutine --> Selektionsproblem

[grenzgaenger]

Hallo Kollegen,

jetzt hab ich die Lösung gefunden...

Delphi-Quellcode:

procedure tSEStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
begin
 inherited;
 if not Odd(ARow) and not ((gdFixed in aState) or (gdSelected in aState)) then
 begin
  Canvas.Brush.Color := clWebMintcream; 
  Canvas.FillRect(aRect);
  Canvas.TextOut(aRect.Left+2, aRect.Top+2, Cells[ACol, ARow]);
 end;
end;

die Selektion musste noch ausgeschlossen werden.

Grüsse und noch einen schönen Abend
gg