TImage um GDI+ erweitern

[jping]

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;