Image als Fensterhintergrund

[Kai]

Öhm joa, funktioniert soweit perfekt, nur wollt ich mich nochma versichern
und fragen obs so au korekt ist da mein englisch *hust*

Code: Alles auswählen

Procedure SetBackroundImage(Window, Image)
 Protected Brush.LOGBRUSH, hBrush.l
 If IsImage(Image) <> 0 And IsWindow(Window) <> 0
  Brush\lbStyle = #BS_PATTERN
  Brush\lbColor = #DIB_RGB_COLORS
  Brush\lbHatch = ImageID(Image)
  hBrush = CreateBrushIndirect_(Brush)
  If hBrush <> 0
   SetClassLong_(WindowID(Window), #GCL_HBRBACKGROUND, hBrush)
   InvalidateRect_(WindowID(Window), #Null, #True)
   ProcedureReturn hBrush
  EndIf
  ProcedureReturn #False
 Else
  ProcedureReturn #False
 EndIf
EndProcedure

If OpenWindow(0,149,202,400,300,"",#PB_Window_BorderLess)
 Define hImg.l = LoadImage(#PB_Any, GetHomeDirectory() + "Desktop\Backround.bmp")
 If hImg <> 0
  Define hBrush.l = SetBackroundImage(0, hImg)
 EndIf
EndIf

While WaitWindowEvent() <> #PB_Event_CloseWindow: Wend
If hBrush <> 0
 DeleteObject_(hBrush)
EndIf

[AND51]

Also ich kann dir schon mal sagen, dass da gggganz viele G's fehlen

So muss es heißen:
Backround => Background
Das ist doch schon viel besser

Ich habe den Code getestet, er funktioniert . Aber erst nach 10x Kompilieren und nachdem ich germekt habe, dass der PNG-Decoder nicht drin war...

[Kai]

Auf gut Deutsch, ausser paar unwichtige kleinigkeiten OK.