[OOP] inherited Problem

[bttb930]

naja, soo schwer ist das doch nicht:

umgangssprachlich:

geht:

Delphi-Quellcode:

{Als Farbe wähle grau}  sgNr.Canvas.brush.Color := clGray;
{Male das Rechteck aus} sgNr.Canvas.FillRect (Rect);
(Gebe Text aus}         sgNr.Canvas.TextOut(rect.Left,rect.Top,sgNr.Cells [ACol,ARow]);
{Ruf die Vorfahrfunktion auf - die malt das
ganze Feld nochmal mit der Farbe grau } inherited;

Das heißt eigentlich reicht

Delphi-Quellcode:

sgNr.Canvas.brush.Color := clGray;
inherited;

und der zweite code geht nicht:

Delphi-Quellcode:

{male das rechteck normal} inherited;   // rechtsbündig ist aus Vorgänger
{setze farba auf grau - die farbe des hintergrunds ändert sich dadurch noch nicht, da
der hintergrund hier nicht gezeichnet wird!} sgNr.Canvas.brush.Color := clGray;
{jetzt male das rechteck aus, also übermale alles was mit inherited gemalt wurde} sgNr.Canvas.FillRect (Rect);
{und nun gib text aus} sgNr.Canvas.TextOut(rect.Left,rect.Top,sgNr.Cells [ACol,ARow]);

jetzt klar?