AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Denkproblem: Skalierungsfaktor
Thema durchsuchen
Ansicht
Themen-Optionen

Denkproblem: Skalierungsfaktor

Ein Thema von DGL-luke · begonnen am 14. Mai 2005 · letzter Beitrag vom 14. Mai 2005
 
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#1

Denkproblem: Skalierungsfaktor

  Alt 14. Mai 2005, 13:21
ich habe eine paintbox/ein image mit einer bestimmten breite und höhe. jetzt will ich in diese ein bitmap einfügen, das hineinpasst, aber nicht verzerrt ist.

ich hab da jetzt mal diese funktion geschrieben, die mir einen streckfaktor zurückliefern sollte:

Delphi-Quellcode:
function getfactor(horig,worig,hmax,wmax:integer):real;
begin
if horig>worig then // height bigger than width -> it will be scaled to width!
 result:=wmax / horig
else
 result := hmax / worig;

{
let's assume i have a bitmap with 250x300, which shall be scaled to a paintbox with
100x100. then the original height has to be scaled to 100, making a factor 100/300 = 0.3
}

end;
sie funktioniert aber nicht. meine theoretischen überlegungen sind also offenbar falsch....

was muss ich also anders machen?
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz