Bild skalieren/Anpassen

[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.

[STARGÅTE]

Dafür gibt es WindowWidth() und WindowHeight()

[True29]

kannst du nicht schnell mal bitte ein Beispiel schreiben , weis leider nicht wie du das meinst
danke.

[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

[True29]

danke gleich mal testen