|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: aus TImage (gestretcht) ohne Verluste zuschneiden / kopieren
27. Dez 2010, 12:03
Mach Dir eine Umrechenfunktion der Du Image als Parameter mitgibst und die ein Rect als Ergebnis zurückgibt.
Hier prüfen ob Icon assigned ist
oder Graphic assigend
oder Bitmap assigend
vom jeweiligen Element die Höhe und Breite ziehen und Result aus dem Paramter Image.Width/Height zu den gefunden Werten umrechnen.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|