private function aufrufen/Graphics.Fileformats

[Gruber_Hans_12345]

Gibt es irgendeine Möglichkeit eine private Funktion aufzurufen?

Ich müßte von TPicture die private function ReadData/WriteData aufrufen

ich kann diese funktion nicht nachbauen, da mir der Zugriff auf die variable/funktion FileFormats - verwehrt bleibt

gibt es hier irgendwelche workarounds?

[himitsu]

private Funktionen sind ja grad privat, damit keiner von außerhalb drauf zugreifen kann

[Gruber_Hans_12345]

stimmt schon, aber auf private properties kann man ja (wenn auch so richtig dirty) zugreifen ... deshalb die frage, ob es auch solche workarounds für proceduren gibt?

[himitsu]

es gibt ReadDate/WriteData auch nochmal im Protected-Abschnitt und auf diese kannst du in einer Ableitung zugreifen

[Gruber_Hans_12345]

Zitat von himitsu:

es gibt ReadDate/WriteData auch nochmal im Protected-Abschnitt und auf diese kannst du in einer Ableitung zugreifen

aber nur bei TGraphics und nicht bei TPicture ...

[hoika]

Hallo,

TPicture enthält ein property Graphic, reicht das nicht ?

TPicture ist ja nur ein Container für ein TGraphic.


Heiko

[Gruber_Hans_12345]

Zitat von hoika:

Hallo,

TPicture enthält ein property Graphic, reicht das nicht ?

TPicture ist ja nur ein Container für ein TGraphic.


Heiko

nein, da ich auch mitspeichern muß/soll von welchen Typ das Element ist, und dann auch wieder laden kann ...

[himitsu]

Delphi-Quellcode:

type TMyPicture = class(TPicture)
    procedure Save;
  end;

procedure TMyPicture.Save;
  begin
    //LoadFromStream
    SaveToStream(...);
  end;



// var Picture: TPicture;

TMyPicture(Picture).Save;

[add]
wobei FGraphic ja SaveToStream/LoadFromStream ja frei zugänglich hat

Picture.Graphic.SaveToStream(...);

Delphi-Quellcode:

type TMyGraphic = class(TGraphic)
    procedure Save;
  end;

procedure TMyGraphic.Save;
  begin
    //ReadData(Stream);
    WriteData(Stream);
  end;



// var Picture: TPicture;

TMyGraphic(Picture.Graphic).Save;