Einzelnen Beitrag anzeigen

sk0r

Registriert seit: 1. Mai 2007
181 Beiträge
 
Delphi 7 Enterprise
 
#1

TImage Bitmap vergrößern

  Alt 9. Mär 2013, 14:06
Hallo,

ich habe mal eine Frage:

und zwar möchte ich gerne im Resize Event meiner Form die größe meines Bitmaps von meiner TImage Instanz dynamisch verändern.

Dazu habe ich folgende Code in der Form1 Resize Methode implementiert (diesen durch Google Suche gefunden).
Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Width := ClientWidth;
  Image1.Height := ClientHeight;
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
end;
Leider ist das Ergebnis nicht wie gewünscht:
http://www.abload.de/img/resizes7qln.png

Ich möchte ja, dass die Bitmap in diesem Beispiel Fall immer die ganze Form bedeckt.

Durch den Button Klick gebe ich die Abmessungen meiner Form, des TImages und des TImage.Picture.Bitmap aus.

Was habe ich hier falsch gemacht bzw. vergessen?

Vielen Dank und MfG
  Mit Zitat antworten Zitat