Vielfaches der Zahl 4 an Pixel einer Bitmap

[Medium]

Meine Idee:

Delphi-Quellcode:

if CheckBox1.Checked then
 begin
   if FTexturBitmap.Width mod 4 <> 0 then
     cxImage1.Picture.Bitmap.Width := Round(cxImage1.Picture.Bitmap.Width / 4) * 4;
   if FTexturBitmap.Height mod 4 <> 0 then
     cxImage1.Picture.Bitmap.Height := Round(cxImage1.Picture.Bitmap.Height / 4) * 4;
 end;