[OOP] inherited Problem

[Hansa]

Hi,

bin immer noch an meinem Stringgrid dran. 8)

Ich leite das von einem Vorfahr-Objekt ab. In diesem ist definiert, daß z.B. Zahlen rechtsbündiig, mit 2 Nachkommastellen usw. angezeigt werden. Je nach Lage will ich nun diese Zellen farblich besser unterscheiden können:

Delphi-Quellcode:

procedure TfrmAn.sgNrDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  inherited;
  EditObject := TEditObject (sgNr.Objects [ACol,ARow]);
  if EditObject.Editable then
    sgNr.Canvas.brush.Color := clWhite
  else
    sgNr.Canvas.brush.Color := clGray;
  sgNr.Canvas.FillRect (Rect);
  sgNr.Canvas.TextOut(rect.Left,rect.Top,sgArtNr.Cells [ACol,ARow]);
end;

Das rechtsbündige usw. steckt in dem "inherited" drin. Wird der Code ausgeführt, so ändert sich zwar, wie gewollt, die Farbe, aber die geerbten Eigenschaften sind nicht da. Was könnte das sein ?