Problem beim Anzeigen des Gadget

[RSBasic]

Hi ihr, ich habe ein Problem. Ich habe ein Fenster programmiert und habe als Titelleiste eine Grafik eingebunden. Darauf habe ich eine Titelleiste-Grafik eingebunden. Bei jeden Fenster habe ich den Textgadget darauf erstellt.. So dass ich immer einen anderen Titel bei verschiedenen Fenser habe. Aber mein Problem ist, wenn ich mein Fenster verschiebe, dann verschwindet mein Text auf der Grafik. Wie kann ich das Problem beheben?
Alternative: Oder soll ich anders machen, aber wie?

[Fluid Byte]

Ausführbarer Quelltext bitte!

[Rubiko]

Poste doch mal 'nen kurzen Code bei dem das Problem auftritt, macht's bestimmt für viele einfacher dein Problem zu verstehen

EDIT: mist, da war jemand schneller

[RSBasic]

Hi, ich musste leider alles umprogrammieren, aber jetzt habe ich geschaft.
Hier ist mein Code:

Code: Alles auswählen

LoadImage(1,"Titelleiste.bmp",0)
If OpenWindow(0,0,0,500,500,"Programm",#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    TextGadget(1,2,2,100,16,"Programm",0)
    ImageGadget(2,0,0,0,0,ImageID(1),0)
  EndIf 
  SetGadgetColor(1,#PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(1,#PB_Gadget_BackColor,RGB(0,53,213))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Bilddatei hier herunterladen:
http://88.134.201.145/Titelleiste.bmp

Bitte helft mir

[RSBasic]

Hi, ich musste leider alles umprogrammieren, aber jetzt habe ich geschaft.
Hier ist mein Code:

Code: Alles auswählen

LoadImage(1,"Titelleiste.bmp",0)
If OpenWindow(0,0,0,500,500,"Programm",#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    TextGadget(1,2,2,100,16,"Programm",0)
    ImageGadget(2,0,0,0,0,ImageID(1),0)
  EndIf 
  SetGadgetColor(1,#PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(1,#PB_Gadget_BackColor,RGB(0,53,213))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Bilddatei hier herunterladen:
http://88.134.201.145/Titelleiste.bmp

Bitte helft mir

Problem: Wenn man mein Fenster außerhalb des Bildschirms verschiebt, dann verschwindet mein Text.

[Rubiko]

Code: Alles auswählen

LoadImage(1,"Titelleiste.bmp",0)
If OpenWindow(0,0,0,500,500,"Programm",#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))    
    If ImageGadget(2,0,0,0,0,ImageID(1),0)
      TextGadget(1,2,2,100,16,"Programm",0)
    EndIf
  EndIf
  SetGadgetColor(1,#PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(1,#PB_Gadget_BackColor,RGB(0,53,213))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf 

So gehts, leider kann ich dir jetzt nicht genau erklähren warum man ein if/endif benutzen muss, kann jemand helfen?

EDIT: ich bemerke grad, man braucht kein if/endif, das textgadget muss beim Code nur nach dem imagegadget() erstellt werden

[Fluid Byte]

Es liegt nicht an der If/EndIf Kondition sondern an der Reihenfolge wie du die gadgets erstellst.

Funktioniert:

Code: Alles auswählen

ImageGadget(2,0,0,0,0,ImageID(0),0)
TextGadget(1,2,2,100,16,"Programm",0)

Funktioniert nicht:

Code: Alles auswählen

TextGadget(1,2,2,100,16,"Programm",0)
ImageGadget(2,0,0,0,0,ImageID(0),0)

[RSBasic]

@Rubiko
Vielen Dank für deine Hilfe und dein Code. Es funktioniert ohne Probleme. THX

@Fluid Byte
Danke dir auch, dein Code hat auch prima geklappt. THX

[Fluid Byte]

@Fluid Byte
Dein Beispiel habe ich immernoch Probleme, aber es hat sich erledigt. Dank an @Rubiko

Ich weiss! Weil es genau andersrum funktioniert als ich es gepostet hab!

[RSBasic]

@Fluid Byte