Also, TImage hat u. a. die Eigenschaften AutoSize, Center und Strech.
AutoSize passt die Größe der Image-Komponente dem Bild (z. B. Bitmap) an. Hier passt sich die Komponente dem Bild an.
Strech passt sich das Bild an die Image-Komponente an. Das Bild wird zur Not vergrößert oder verkleinert.
Center positioniert das Bild mittig in der Komponente.
Gehen wir man davon aus, dass du das Bild nicht verändern willst. Machst du die Komponente genauso breit wie das Bild und 200 Pixel in der Höhe kleiner wie das Bild und positionierst es mittig, werden oben und unten je 100 Pixel verdeckt. Z. B. so:
Delphi-Quellcode:
Image1.Width := Image1.Picture.Bitmap.Width;
Image1.Height := Image1.Picture.Bitmap.Height - 200;
Image1.Center := True;
Ansonsten das Bild mit Canvas.CopyRect zuschneiden.