samjones@worldnet.com Guest
|
Posted: Fri Oct 27, 2006 6:49 am Post subject: TImage resize |
|
|
What is the preferred way to resize the bitmap associated with a
TImage?
This seems to works, its it the best way?
procedure TForm1.FormResize(Sender: TObject);
var
bitmap: TBitmap;
begin
//Note: Image1.Align = alClient
bitmap: TBitmap.Create;
bitmap.Width := Image1.Width;
bitmap.Height := Image1.Height;
Image1.Picture.Graphic := bitmap;
bitmap.Free;
RedrawImage;
end; |
|