Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Andorra 2d StretchDraw (https://www.delphipraxis.net/153350-andorra-2d-stretchdraw.html)

Noobmaster 29. Jul 2010 21:01

Andorra 2d StretchDraw
 
Hallo Leute!
Also irgendwie finde ich, dass manche Sachen, die Andorra 2d betreffen besser erklärt werden sollten. So steht im 2. Tutorial die Aufforderung die vielen Funktionen doch einmal auszuprobieren. Da ich ein Bild verkleinert zeichnen will, benutze ich natürlich die Funktion StretchDraw.
Delphi-Quellcode:
procedure StretchDraw(Dest:TAdDraw;const DestRect:TAdRect;PatternIndex:integer);
So weit so gut, aber was soll ich denn als DestRect angeben? Ich habe sämtliche Internetseiten durchstöbert, aber nirgends finde ich eine passende Erklärung beziehungsweise ein Beispiel.
Delphi-Quellcode:
AdImageList.Find('Bild').StretchDraw(AdDraw,x,0)
Was muss ich jetzt an Stelle des "x" hinschreiben?
Danke schonmal für die Antworten

igel457 29. Jul 2010 22:03

AW: Andorra 2d StretchDraw
 
Eine kurzer Blick in die Dokumentation...
http://andorracommons.sourceforge.ne...ge.StretchDraw

...und dann eine kurze Suche nach "AdRect"...
http://andorracommons.sourceforge.ne...x.php?q=AdRect

...liefert dir einen Verweis auf die Funktion "AdRect" aus der Unit "AdTypes"...
http://andorracommons.sourceforge.ne...AdTypes.AdRect

die eine TAdRect Struktur, die von der StretchDraw Funktion gebraucht wird, zurückliefert. Einfach die Koordinaten, wohin du dein Bild haben willst angeben (X1, Y1, X2, Y2)

Oder du verwendest die Funktion AdBounds (jaja, ich gebe zu, das ist jetzt nicht so einfach zu finden... ;-)), wo du einfach X, Y, Breite und Höhe angeben kannst, und du bekommst ein entsprechendes Rechteck in der TAdRect Struktur zurück.

Lange rede, kurzer Sinn, schreib einfach
Delphi-Quellcode:
TAdImage.StretchDraw(AdDraw, AdBounds(x, y, w, h), 0);

Noobmaster 30. Jul 2010 08:33

AW: Andorra 2d StretchDraw
 
Achso....Ich war da tatsächlich gelandet (also in der Documentation), konnte aber nicht viel damit anfangen, weil ich nicht wusste - beziehungsweise gar nicht auf die Idee kam - dass man eine Funktion als Parameter benutzen kann.
Na dann tut es mir leid und ich nehme alles zurück :-).
Danke für die rasche, einfache Antwort.

jfheins 30. Jul 2010 11:06

AW: Andorra 2d StretchDraw
 
Kleine Korrektur: Man kann nur selten "eine Funktion als Parameter benutzen" - und das wird hier auch nicht getan.

Eine Funktion hat aber einen Rückgabewert, der sich als Parameter einer anderen Funktion benutzen lässt. ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz