Seite 1 von 1
Bild skalieren/Anpassen
Verfasst: 19.08.2012 13:09
von True29
grüßt euch
Code: Alles auswählen
If CreateImage(#BILD_HAUPT, 1500,850)
If StartDrawing(ImageOutput(#BILD_HAUPT))
DrawImage(ImageID(#BILD_FRAME),0,0)
StopDrawing()
EndIf
ImageGadget(#BILD_GADGET, 0, 0, 1024, 768, ImageID(#BILD_HAUPT))
EndIf
den Code würde ich nun so gerne erweitern das er das Bild an die Fenstergrößte anpasst.
Re: Bild skalieren/Anpassen
Verfasst: 19.08.2012 13:28
von STARGÅTE
Dafür gibt es WindowWidth() und WindowHeight()
Re: Bild skalieren/Anpassen
Verfasst: 19.08.2012 13:40
von True29
kannst du nicht schnell mal bitte ein Beispiel schreiben , weis leider nicht wie du das meinst
danke.
Re: Bild skalieren/Anpassen
Verfasst: 19.08.2012 13:48
von computerfreak
so gehts :
Code: Alles auswählen
Enumeration
#BILD_HAUPT
#BILD_FRAME
#BILD_GADGET
EndEnumeration
OpenWindow(0,100,100,800,600,"",#PB_Window_SizeGadget) ; Fenster
;Dein Code :
If CreateImage(#BILD_HAUPT, 1500,850)
If StartDrawing(ImageOutput(#BILD_HAUPT))
DrawImage(ImageID(#BILD_FRAME),0,0)
StopDrawing()
EndIf
ResizeImage(#BILD_HAUPT,WindowWidth(0),WindowHeight(0)) ; ! Bild An Fenster anpassen ( das erste mal )
ImageGadget(#BILD_GADGET, 0, 0, 1024, 768, ImageID(#BILD_HAUPT))
EndIf
Repeat
event = WindowEvent()
If event = #PB_Event_SizeWindow
ResizeImage(#BILD_HAUPT,WindowWidth(0),WindowHeight(0))
SetGadgetState(#BILD_GADGET,ImageID(#BILD_HAUPT)) ; Beim ändern der Größe ändert das Bild sein Handle
EndIf
ForEver
Re: Bild skalieren/Anpassen
Verfasst: 19.08.2012 13:52
von True29
danke gleich mal testen