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 ?