[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 ?

[Jelly]

Von welchen Eigenschaften sprichst du denn ? Wie greifst du auf dein Objekt zu ?

[Muetze1]

Moin!

Zitat von Hansa:

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 ?

Wie sollte auch? Inherited bewirkt den Aufruf des überschriebenen Codes und damit wird die Zelle ordentlich gemalt mit links- bzw. rechtsbündigen Text. Danach kommst du und übermalst die gesamte Zelle mit weiss bzw. grau und gibst dann den Text fest bei X, Y aus.

Wie sollte da noch irgendwas rechts- oder linksbündig zu sehen sein?

MfG
Muetze1

[Hansa]

Zitat von Muetze1:

Moin!
Wie sollte auch? Inherited bewirkt den Aufruf des überschriebenen Codes und damit wird die Zelle ordentlich gemalt mit links- bzw. rechtsbündigen Text. Danach kommst du und übermalst die gesamte Zelle mit weiss bzw. grau und gibst dann den Text fest bei X, Y aus.

Wieso das ? Inherited überschreibt nichts, sondern übernimmt das, was im Vorgänger defininiert wurde und führt es aus. Danach erst kommt der Rest dran.

[Muetze1]

Moin!

Zitat von Hansa:

Zitat von Muetze1:

Moin!
Wie sollte auch? Inherited bewirkt den Aufruf des überschriebenen Codes und damit wird die Zelle ordentlich gemalt mit links- bzw. rechtsbündigen Text. Danach kommst du und übermalst die gesamte Zelle mit weiss bzw. grau und gibst dann den Text fest bei X, Y aus.

Wieso das ? Inherited überschreibt nichts, sondern übernimmt das, was im Vorgänger defininiert wurde und führt es aus. Danach erst kommt der Rest dran.

Und was habe ich geschrieben? Wenn du Inherited hinschreibst, dann rufst du die Methode der Vorgängerklasse auf - somit malt die Vorgängerklasse zu dem Zeitpunkt alles richtig. Wenn er fertig ist, dann kommt er wieder zu deinem Code zurück und fängt an mit FillRect erstmal alles wieder über zu pinseln und danach mit TextOut() den Text auszugeben.

Somit:

- Wo behaupte ich, das inherited irgendwas überschreibt? Ich habe behauptet du übermalst was, ja.
- Und wie du schon richtig erkannt hast: "Danach erst kommt der Rest dran" - richtig, dein Code - und was macht der? - Er malt auf dem kompletten Rect der Zelle...
- was ist daran unverständlich?

MfG
Muetze1

[Hansa]

Zitat von Muetze1:

- was ist daran unverständlich?

Nur keine Aufregung. Ich habe das inherited jetzt später aufgerufen und es geht. Aber es ist nicht so ganz nachzuvollziehen, warum ich die Farbe setzten kann, dann das inherited aufrufe wegen rechtsbündig usw. und es geht. Umgekehrt aber nicht. Konnte eben noch nie gut malen. 8) Also hat irgendwas mehr Priorität. Wäre nett, wenn du mir sagen würdest was das ist und weshalb. Es geht also nur hier drum (Objects sind im Zusammenhang uninteressant) :

geht :

Delphi-Quellcode:

sgNr.Canvas.brush.Color := clGray;
sgNr.Canvas.FillRect (Rect);
sgNr.Canvas.TextOut(rect.Left,rect.Top,sgNr.Cells [ACol,ARow]);
inherited;   // erst jetzt aufrufen, da Farben jetzt neu gesetzt !
             // rechtsbündig ist aus Vorgänger

geht nicht :

Delphi-Quellcode:

inherited;   // rechtsbündig ist aus Vorgänger
sgNr.Canvas.brush.Color := clGray;
sgNr.Canvas.FillRect (Rect);
sgNr.Canvas.TextOut(rect.Left,rect.Top,sgNr.Cells [ACol,ARow]);

[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?