PureBoard

nee, du hast ein komma zuviel

ts-soft hat geschrieben:

Code: Alles auswählen

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

LoadImage(1,"hintergrund.bmp")
If Window_Form1()

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

Den Pfad zum Bild bitte anpassen
MfG
Thomas

cooler code, sowas hab ich schon lange gesucht... aber wie sieht der code für pb 3.3 aus und warum geht bei mir keine creategadgetlist()....

--------------

ok, problem hat sich von selbst gelößt!

hab nochmal eine frage: wie kann ich es verhindern dass das bild sich ständig wiederholt?