SetWinBackgroundImage()

[X360 Andy]

Gibts für den Befehl auch eine "neue" Version ?

Hier wieso ich das brauche..
http://www.purearea.net/pb/CodeArchiv/W ... essage1.pb


Bis auf den Befehl hab ich alles auf 4.XX angepasst.
Nur finde ich nichts was den Befehlt ersetzt ( Hilfe --> Änderungen PB , steht auch nichts )

Kann mir jemand helfen ?

[Kaeru Gaman]

das war noch nie ein nativer befehl....

... und was hat das Move-Beispiel damit zu tun?


eine möglichkeit:
http://www.purebasic.fr/german/viewtopi ... 731#210731
ganzes topic:
http://www.purebasic.fr/german/viewtopic.php?t=17502

[X360 Andy]

... und was hat das Move-Beispiel damit zu tun?

Code: Alles auswählen

;- Diese code is auch im link enthalten 
If hwnd 
    SetWindowColor(#InfoWin, RGB($51,$AA,$AE)) 
   --> ;If Background : SetWinBackgroundImage(hwnd, Background) : EndIf 
    SetForegroundWindow_(hwnd) 
  
    CreateGadgetList(hwnd) 

Thx für die links
EDIT
Mit dem Code hab jetzt alles hinbekommen , danke !!!!

[Andesdaf]

dieser Befehl ist aus der SkinWin UserLib. Kann also nicht nativ in PB
mitgeliefert sein. Hatten wir auch schonmal, wenn ich jetzt nur wüsste, wo.

[mk-soft]

Hatten wir schon mal

Code: Alles auswählen

UseJPEGImageDecoder() 
UsePNGImageDecoder() 
UseTIFFImageDecoder() 
UseTGAImageDecoder() 


Procedure.l Window_Form1()
  If OpenWindow(0,149,202,400,300, "...", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
    Brush.LOGBRUSH\lbStyle=#BS_PATTERN
    Brush\lbColor=#DIB_RGB_COLORS
    Brush\lbHatch=ImageID(1)
    SetClassLong_(WindowID(0),#GCL_HBRBACKGROUND,CreateBrushIndirect_(Brush))
    InvalidateRect_(WindowID(0), #Null, #True)
    If CreateGadgetList(WindowID(0))
      ProcedureReturn WindowID(0)
    EndIf
  EndIf
EndProcedure

DateiName$ = OpenFileRequester("Bild", "", "", 0)
Debug DateiName$
Debug LoadImage(1,DateiName$,#PB_Image_DisplayFormat)
Debug ResizeImage(1, GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN))
If Window_Form1()

  Repeat
    event = WaitWindowEvent()
  Until event = #PB_Event_CloseWindow
EndIf 

keine ahnung mehr wo der Code her kam

FF

[Andesdaf]

sag ich doch iregendwo war einer.

[Kaeru Gaman]

jaaa... die SetClassLong-Lösung dümpelte auch noch irgendwo rum...

irgendwie sollte sich mal jemand erbarmen und so Kniffe sammeln...