private function aufrufen/Graphics.Fileformats

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