Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bild an eine Bestimmte Stelle in TImage Laden (https://www.delphipraxis.net/111929-bild-eine-bestimmte-stelle-timage-laden.html)

kroete 11. Apr 2008 21:24


Bild an eine Bestimmte Stelle in TImage Laden
 
Hi.

Im Informatik Unterricht programmieren wir zur Zeit Schiffe versenken als Netzwerkspiel. Dazu wollen wir die Spielfläche grafisch etwas aufpeppen.
Die Fläche besteht aus einem TImage, das mit Linien in ein 10*10 Gitter eingeteilt ist (im Canvas gezeichnet). Wie kann ich nun an einer bestimmten Stelle (von der 4 Eckpunkte bekannt sind) ein Bild laden? Geht das überhaupt?

Danke schonmal

Matze 11. Apr 2008 21:34

Re: Bild an eine Bestimmte Stelle in TImage Laden
 
Hallo,

du kannst ein Bitmap (vermutlich auch ein TJPEGImage) per

Delphi-Quellcode:
Image1.Canvas.Draw(...);
an eine beliebige Stelle des Images zeichnen.

Grüße

kroete 11. Apr 2008 22:06

Re: Bild an eine Bestimmte Stelle in TImage Laden
 
Danke, jetzt habe ich nur noch ein Problem: ich lade eine Bitmap über eine ImageList. Allerdings passt die nicht unbedingt in das Feld... Kann man die Grösse dynamisch anpassen?

Pfoto 11. Apr 2008 22:21

Re: Bild an eine Bestimmte Stelle in TImage Laden
 
Hallo kroete,

es gibt auch:
Delphi-Quellcode:
Image1.Canvas.StretchDraw([TRect], [TGraphic]);
Wobei die Qualität nicht optimal ist,
besser ist ein Resampling.
Such einfach mal im Forum...

Gruß
Pfoto

kroete 11. Apr 2008 22:34

Re: Bild an eine Bestimmte Stelle in TImage Laden
 
Ja aber funktioniert das auch, wenn ich das Bild aus einer TImageList mit ImageList1.Draw(...) zeichnen lasse?

_frank_ 12. Apr 2008 01:16

Re: Bild an eine Bestimmte Stelle in TImage Laden
 
also mit strecken wird das nicht gehen...da wirst du das bil der imaglist erstmal in ein temporäres TBitmap kopieren müssen und dieses per StretchDraw o.ä. auf dein Wirk-Bitmap kopieren...

HTH Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:16 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