Anpassung der Größe des Forms beim laden eines Bildes.

[Flash68]

Hallo zusammen,

ich lade in eine Image-Komponente Bilder über folgenden Code:

Delphi-Quellcode:

LoadPictureFromBlob(FRM_Bild.IMG_Bild.Picture,dm_Buecher.Ads_BuecherCover);
    frm_Bild.showmodal

Was auch ohne Probleme klappt, allerdings ist die Grüße der Bilder unterschiedlich und ich habe entweder schwarze Streifen oder das Bild ist nicht ganz zusehen.

Stretch und Proportional der komponente stehen schon auf True.

Es scheint mir das sich das Form nicht anpasst obwohl ich es auch Autosize stehen habe.

Kann mir jemand helfen das ich die Bilder bei ihrem Aufruf in der richtigen Größe sehen kann?

Gruß Flash

[Popov]

Bei Stretch passt sich ja nicht das Formular an, sondern das Bild in der Komponenten.

Da mußt das Formular anpassen. Am besten machst du das in OnActivate. Also zuerst laden, dann mit ShowModal aufrufen und zuletzt in OnActivate eine Berechnung durchführen.

Zuerst aus dem Bild die Größe ermitteln. Nicht die Größe von TImage, sondern von dem Bild, z. B. Image.Picture.Bitmap.Width. Hier kriegst du die Höhe und Breite des Bildes her. Dann ClentWidth und ClientHeight anpassen, nicht Form.Width und Height. So wild das Formular an das Bild angepasst.

//Edit:

Würde so aussehen. Und mach auch Stretch und Proportional aus.

Delphi-Quellcode:

procedure Tfrm_Bild.FormActivate(Sender: TObject);
begin
  ClientWidth := Image1.Picture.Width;
  ClientHeight := Image1.Picture.Height;
end;

[himitsu]

Image.Picture.Bitmap.xxx geht natürlich nur, wenn es sich auch wirklich um ein Bitmap handelt. (wenn nicht, dann wird das Bild zerstört/gelöscht und durch ein leeres bitmap ersetzt)

Ich bin mir jetzt nicht genau sicher wie, aber Image.Picture.Width oder Image.Picture.Graphic.Width sollte gehn.
Nja, statt erst im OnActivate kann man die Größe der Form und des TImage auch gleich direkt nach dem Laden des Bildes anpassen.

[Popov]

Image.Picture.Width geht. Und nein, ich würde es nicht irgendwo anders anpassen. Dann lagerst du den entscheidenden Code für die Unit in eine andere Unit aus. Möglich, aber versteh und wundere dich mal in einem Jahr warum sich das Formular an das Bild von Zauberhand anpaßt

Und weil wir schon da sind noch zwei Tipps. Das Formular mit dem Bild muß ja wieder geschlossen. Möglichkeit 1:

Delphi-Quellcode:

procedure Tfrm_Bild.Image1Click(Sender: TObject);
begin
  Close
end;

Dann braucht man nicht ein Close einbauen oder auf den roten Button klicken. Besser ist aber wenn das Formular von Zauberhand verschwindet. Dazu darf das Bild-Formular nicht ShowModal gestartet werden, sondern Show:

Delphi-Quellcode:

  //frm_Bild.ShowModal
  frm_Bild.Show

Dann in Bild-Formular unter FormDeactivate Close einbauen

Delphi-Quellcode:

procedure Tfrm_Bild.FormDeactivate(Sender: TObject);
begin
  Close;
end;

Das Bild wird sichtbar und wenn man danebenklickt, dann wird es automatisch geschlossen

[Flash68]

Danke Popov, deine Tips haben geholfen. Habe den ersten benutzt.

Das mit dem ins Bild clicken hatte ich schon von selbst erkannt, wollte ja nur das Bild sehen und keinen Rand oder einen schliessen Button