[fpc-devel] Saving TImage Bitmap as shown
nathan.wild at gmail.com
Sat Mar 15 19:13:33 CET 2014
Is there any way to tell a TImage to save it's Bitmap as-shown? I need to
do some relatively simple image resizing in order to ensure images display
properly in another application. To do this they need to be a fixed size
(512x768), but I need to preserve their aspect ratio by adding padding to
the top, bottom and sides, as required.
For example, if my source image is 100x100, I can scale it up to 512x512
easily enough, but I need have the end result image be 512x768 with padding
(solid colour, etc.) at the top and bottom to ensure it is centred.
If you take a TImage control, load the 100x100 example image, set:
Width := 512;
Height := 768;
Centered := TRUE;
Proportional := TRUE;
Stretch := TRUE;
The image it contains will display in exactly the way I am after. I am
just not sure how to tell the TImage to save THAT image.
Thanks for any help...
*Nathan T. Wild*
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the fpc-devel