doch geschafft
Nach dem Zuweisen des Bitmaps wird mal das Img grau ausgemalt und statt STRETCH_HALFTONE wird STRETCH_DELETESCANS verwendet
Hier der neue Code:
Delphi-Quellcode:
[...]
try
Jpg.LoadFromFile(Open);
Bmp.PixelFormat:= pf24bit;
Bmp.Assign(Jpg);
Img.Picture.Bitmap.Width:= Img.Width;
Img.Picture.Bitmap.Height:= Img.Height;
Img.Picture.Bitmap.Canvas.Brush.Color := clGray;
Img.Picture.Bitmap.Canvas.FillRect(img.Picture.Bitmap.Canvas.ClipRect);
SetStretchBltMode(Img.Picture.Bitmap.Canvas.Handle, STRETCH_DELETESCANS);
// STRETCH_HALFTONE);
SetBrushOrgEx(Img.Picture.Bitmap.Canvas.Handle, 0, 0, nil);
[...]