Het gaat hierbij dus specifiek om een stuk uit het originele plaatje te halen en dat later weer te gebruiken.
Dus gee resize maar Crop
Op aangeven van GolezTrol heb ik de boel omgedraaid echter met het zelfde resultaat
Code:
pict := TPngImage.Create;
bitmap:=TBitmap.Create;
try
pict.LoadFromFile(FResourcePath+'\projectie-139-muziek-couplet-2-1.png');
Bitmap.Canvas.Rectangle(rect(0,0,800,600));
Bitmap.Canvas.CopyRect(rect(0,0,800,600),pict.Canvas,rect(0,0,1600,1200));
finally
pict.Free;
end;
bitmap.SaveToFile(FResourcePath+'\test_crop.bmp');
bitmap.Free;
Bookmarks