Wie benutze ich denn SetStretchBltMode habs zwar mal eingebunden
Delphi-Quellcode:
procedure TForm1.pupImageAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; State: TOwnerDrawState);
begin
try
//InflateRect(ARect,-5,-5) ;
SetStretchBltMode(ACanvas.Handle, STRETCH_HALFTONE);
SetBrushOrgEx(ACanvas.Handle, 0, 0, nil);
//ACanvas.StretchDraw(ARect, Image1.Picture.Graphic) ;
StretchBlt(ACanvas.Handle,0,0,Image1.Picture.Width,Image1.Picture.Height,Image1.Canvas.Handle,0,0, Image1.Picture.Width,Image1.Picture.Height,SRCCOPY);
finally
end;
end;
Bekomme aber ne
Exception "Ein Bild kann nur geändert werden, wenn es einen Bitmap enthält".
Wie schon erwähnt hab ich oben den Text zusammengeknaupt weil ich nicht weiß die Canvas funktioniert.