Hallo allerseits,

ich möchte mit Delphi ein Bild skalieren und dann als Hintergrundbild einrichten. Für das skalieren selber finde ich mit Sicherheit eine Howto (wenn jemand einen Link hat: immer her damit *g*) aber dann müsste ich das Bild als neues Bild speichern (Temp oder so) und setzen, richtig?

Vielleicht hat ja schon jemand mal so etwas gemacht und kann mir da einen Rat geben, thx


Moderiert von Narses: Topic aus Algorithmen, Optimierung und Assembler verschoben am Do 25.02.2010 um 23:53

Zum setzen des Desktophintergrund hab ich das hier in meinen Untiefen gefunden:

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: 7: 8: procedure SetBackground(const AFilename: String); begin if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(AFilename), SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then RaiseLastOSError; End;

Ja nee mein Problem ist nicht unbedingt das setzen des Bildes selber, das mach mein Prog. ja jetzt schon. Zum einen interessiert mich wie ich ein Bild "mal so schnell" und vor allem ressourcenschonend skaliere und was ich dann mit dem skalierten bild mache - eben save2newfile oder?

Hmm, naja, ich würde mal sagen, du lädst das Bild in ein Image, ziehst das Image größer (Stretch=True, Proportional=True, AutoSize=False)...hmm, und dann ist die Frage, wie man an das größere Bild rankommt.

Ich glaub nicht dass man das Image einfach wieder mit SaveToFile speichert und dann ists größer, musst du mal testen. Ansonsten kannst du z.B. noch probieren Picture.Bitmap z.B. abzuspeichern (wenn du ein bmp geladen hast).

Du kannst das Bild mit StretchDraw in ein Bitmap zeichnen. Ob du dieses Bitmap dann nur zur Laufzeut verwendest, oder abspeicherst, bleibt dir dann selbst überlassen. Es gibt auch noch andere Funktionen mit mehr Optionen, mit denen man auch schönere Stretch Ergebnisse erhalten kann, glaube StretchBlt und StretchBltMode waren das.

Okay, ich werde mich mal zu StretchBlt schlau machen und danke schonmal an dieser Stelle.