Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Wie kann ich die angezeigte Größe des Images ermitteln?
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)
|