Panels [gelöst]

[Thomas]

Ich möchte ein Panel-Gadget erstellen, wo nur die laschen zu sehen sind.
Ungefähr so wie im PB-Editor, weil da ist kein "ganzes" Panelgadget zu sehen^^.

[RSBasic]

@Thomas
Der PB Editor hat auch den "normalen" PanelGadget, du brauchst nur die Position auf 0 stellen.

[AND51]

Stimmt nicht! Um nur die Laschen (Registerkarten) zu sehen, stellt man die Höhe des PanelGadgets() auf #PB_Panel_TabHeight!

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    PanelGadget     (0, 8, 8, 306, 203)
      AddGadgetItem (0, -1, "Panel 1")
      AddGadgetItem (0, -1,"Panel 2")
    CloseGadgetList()
    ResizeGadget(0, #PB_Ignore,  #PB_Ignore, #PB_Ignore, GetGadgetAttribute(0, #PB_Panel_TabHeight))
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Nicht böse gemeint, aber da kann man auch selbst drauf kommen.

[Thomas]

Ich stelle mir das halt so vor:

Des laden vom Bild kann etwas dauern ... (Freenet ist zurzeit extreeeem laaaam!)

[AND51]

Haste meinen Code nicht ausprobiert?

[RSBasic]

@Thomas

Code: Alles auswählen

If OpenWindow(0,0,0,500,500,"Windows-Vorlage",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    PanelGadget(1,50,50,200,20)
    AddGadgetItem(1,-1,"Panel 1")
    AddGadgetItem(1,-1,"Panel 2")
    AddGadgetItem(1,-1,"Panel 3")
  EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Thomas]

Haste meinen Code nicht ausprobiert?

dochdoch ...

Code: Alles auswählen

 If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
    PanelGadget     (0, 0, 8, 322, 203) 
      AddGadgetItem (0, -1, "Panel 1") 
      AddGadgetItem (0, -1,"Panel 2") 
    CloseGadgetList() 
    ResizeGadget(0, #PB_Ignore,  #PB_Ignore, #PB_Ignore, GetGadgetAttribute(0, #PB_Panel_TabHeight ) - 2) 
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
  EndIf

Ist auch das mit dem "-2" erlaubt?
(also, dass es bei anderen nicht zu Darstellungsfehlern kommt ...)

[RSBasic]

@Thomas
>(also, dass es bei anderen nicht zu Darstellungsfehlern kommt ...)
Mit XP-Skin nicht, ohne ja.

[Thomas]

@Thomas
>(also, dass es bei anderen nicht zu Darstellungsfehlern kommt ...)
Mit XP-Skin nicht, ohne ja.

Bei meinem, oder deinem Code?
Welche Darstellungsfehler?

[RSBasic]

@Thomas
>(also, dass es bei anderen nicht zu Darstellungsfehlern kommt ...)
Mit XP-Skin nicht, ohne ja.

Bei meinem, oder deinem Code?
Welche Darstellungsfehler?