Window Background Image setzen ohne PureTools ??

[nco2k]

hi folks,

nur so aus neugier... wie setzt man ein Image als fenster hintergrund so wie bei SetWinBackgroundImage() aus den PureTools ??

c ya,
nco2k

[ts-soft]

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

[nco2k]

ok danke, muss ich den brush aber nicht vorher noch freigeben bevor ich das programm beende, oder macht das windows automatisch ?!

c ya,
nco2k

[Hroudtwolf]

Einfacher und mit weniger Code gehts so.

Code: Alles auswählen

  If OpenWindow(0,149,202,400,300,#PB_Window_SystemMenu,"") 
 himage.l=loadimage (1,"deinbild.bmp")
hBrush.l = CreatePatternBrush_(hImage.l) 
  SetClassLong_(windowid(0), #GCL_HBRBACKGROUND, hBrush.l) 
  InvalidateRect_(windowid(0),, #NULL, #TRUE) 
Repeat
    event = WaitWindowEvent()
  Until event = #PB_Event_CloseWindow 
DeleteObject_(hBrush.l)
endif 

[freedimension]

Du bist alleinverantwortlich für jeden von dir angelegten Brush und musst ihn daher auch wieder freigeben. Andernfalls kann es (muss aber nicht) zu unschönen Fehlermeldungen kommen wenn man das Programm beendet.

[ts-soft]

Ich denke, das macht PB automatisch (ohne Garantie )

[ts-soft]

@Hroudtwolf
Was ist an Deinem Code einfacher ? Abgesehen davon das Du direkt die Händels verwendest, statt diese mit PB-Funktionen zu ermitteln sehe ich keinen Unterschied. Mein Code ist wahrscheinlich verständlicher

[Hroudtwolf]

@ts-soft

Das kannst du halten wie die Dachdecker.

[bobobo]

@ts-soft

Das kannst du halten wie die Dachdecker.

nicht ganz .. der ts-soft-code funktioniert im Gegensatz zu Deinem
(liegt's an XP?)

[Hroudtwolf]

habs windowid(0) vergessen.
Sorry........