Hier die fertige Version. Falls es jemanden interessiert.
Hab zwar noch keine Möglichkeit gefunden, die Grafik aus TImage.Picture zu übernehmen,
somit erfolgt die Auswahl über den Dateinamen.
Gruß
Jörg
Delphi-Quellcode:
procedure TMyImage.Paint;
var
graphics : TGPGraphics;
Image: TGPImage;
begin
if UseGDIPlus and (self.ComponentState <> [csDesigning]) and (self.PictureResource.Dateiname <> '') then begin
graphics := TGPGraphics.Create(GetDC(self.Parent.Handle));
Image:= TGPImage.Create(self.PictureResource.Dateiname);
try
graphics.SetSmoothingMode(Self.SmoothingMode);
graphics.SetInterpolationMode(self.InterpolationMode);
graphics.DrawImage(Image, self.Left ,self.Top,self.width-1,self.height-1);
finally
if assigned( Image)
then Image.Free;
if assigned( graphics)
then graphics.Free;
end;
end else
inherited;
end;