PureBoard

Verfasst: **19.11.2007 19:04**

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^^.

Verfasst: **19.11.2007 19:08**

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

Verfasst: **19.11.2007 19:10**

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.

Verfasst: **19.11.2007 19:16**

Ich stelle mir das halt so vor:
Bild

Des laden vom Bild kann etwas dauern ...

(Freenet ist zurzeit extreeeem laaaam!)

Verfasst: **19.11.2007 19:19**

Haste meinen Code nicht ausprobiert?

Verfasst: **19.11.2007 19:20**

@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

Verfasst: **19.11.2007 19:20**

AND51 hat geschrieben: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 ...)

Verfasst: **19.11.2007 19:22**

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

Verfasst: **19.11.2007 19:24**

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

Bei meinem, oder deinem Code?

Welche Darstellungsfehler?

Verfasst: **19.11.2007 19:27**

Thomas hat geschrieben:
RSBasic hat geschrieben:@Thomas
>(also, dass es bei anderen nicht zu Darstellungsfehlern kommt ...)
Mit XP-Skin nicht, ohne ja.
Bei meinem, oder deinem Code?
Welche Darstellungsfehler?

PureBoard

Panels [gelöst]

Panels [gelöst]