Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Wie kann ich die angezeigte Größe des Images ermitteln?

  Alt 4. Okt 2012, 16:42
Delphi-Quellcode:
Procedure GetFittingHW(OuterW,OuterH:Integer;var InnerW,InnerH:Integer);
var
 vh:Double;
begin
    Assert((OuterW<>0) and (OuterH<>0),'Division durch 0');

    if (InnerW /OuterW) < (InnerH /OuterH) then vh := (InnerH /OuterH)
    else vh := (InnerW /OuterW);

    Assert((vh<>0) ,'Division durch 0');

    InnerW := Round(InnerW/vh);
    InnerH := Round(InnerH/vh);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
 w,h:Integer;
begin
  w := image1.Picture.Width;
  h := image1.Picture.Height;
  GetFittingHW(Image1.Width,image1.Height,w,h);
  Showmessage(Format('Breite: %d Höhe %d',[w,h]));
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi ( 4. Okt 2012 um 16:48 Uhr)
  Mit Zitat antworten Zitat