PureBoard

Verfasst: **21.01.2009 20:35**

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 ?

Verfasst: **21.01.2009 20:47**

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

Verfasst: **21.01.2009 20:51**

Kaeru Gaman hat geschrieben:
... 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 !!!!

Verfasst: **24.01.2009 12:33**

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.

Verfasst: **24.01.2009 13:59**

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

Verfasst: **24.01.2009 14:23**

sag ich doch iregendwo war einer.

Verfasst: **24.01.2009 14:37**

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

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

PureBoard

SetWinBackgroundImage()

SetWinBackgroundImage()