Hallo,

wenig aussagekräftiger Titel, es ist aber auch eine recht allgemeine Frage. Ich hab eine einfache Zeichenprozedur. Dieser will ich eine Objektliste übergeben, also etwa:

markieren

Delphi-Quellcode:

procedure myclass.DrawObjects(myobjects : TObjectList<ObjectType>);
var
  i : integer;
begin
  for i := 0 to myobjects.count -1 do
    begin
     ...
    end;
end;

Nun soll die Zeichenprozedur ja im OnPaint-Event der PaintBox aufgerufen werden.

markieren

Delphi-Quellcode:

procedure myclass.OnPaint (Sender : TObject);
begin
  DrawObjects(...);
end;

Nun hat aber das event ja nur den Sender als Argument. Ich kann ihr also nicht die Objektliste übergeben, damit dann die OnPaint-Prozedur die Objektliste weiter an die Paint-Prozedur übergibt. Alternativ kann ich dann ja nur die Objektliste in der Klasse generell verfügbar machen und sie nur einemal übergeben. Lässt sich das auch eleganter machen?

danke und gruß
tom

Auf den Aufruf der Paint-Routine hast du keinen Einfluss. Weder darauf, wann sie aufgerufen wird und wie. Innerhalb der Paint-Routine muss die zu zeichnende Objektliste (sinnvollerweise in der Klasse) verfügbar sein. Der Inhalt der Liste oder die aktuelle Instanz kann natürlich variieren.

Ich würde ein Feld in der Klasse anlegen, das von der Paint-Routine genutzt wird. Du kannst dann ja an anderer STelle diesem Feld die passende Liste zuweisen.

Oder die Referenz in den .Tag scheiben, wenn du die Klasse nicht verändern willst/kannst.

Danke. Gut, ich kann natürlich die Objektliste in der ganzen Klasse verfügbar machen, ich dachte halt, es wäre eleganter, ich könnte sie nur als Parameter übergeben.

Aber danke!

Ich würde diese nicht der Klasse, sondern pro Instanz bereitstellen; entweder als Eigenschaft oder halt im Tag

Danke. Aber auch wenn ich theoretisch weiss, was der Unterschied zwischen Klasse und Instanz ist, wie sähe das praktisch aus?

Ich hab jetzt eine Klasse "TDesigner", von der ich im Hauptform eine Instanz erzeuge. In der Klasse hab ich die Objektliste drin als public und natürlich auch die Draw und OnPaint. Also:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TDesigner = Class(TObject)

    private
      Graphics : IGPGraphics;
      ABrush: IGPBrush;
      APen: IGPPen;
      AFont : IGPFont;

    public
      Destination_PB : TPaintBox;
      MyObjects : TObjectList<TDesignerObject>;
      procedure Initialize;
      procedure Draw;
      procedure AddObject(objecttype : TDesignerObjectType; x,y,d : integer);
      procedure Dest_PaintMe (Sender : TObject);
  end;