Image viewer done in Delphi2010. Solid code for learning and teaching. User can browse for image file, do resize, srtetch and center.

const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width &g