Einzelne Panels aus einem PanelGadget entfernen.

[ThoPie]

Hallo,
ich würde gern je nach Bedarf einzelne Panel aus einem PanelGadget ausblenden. Geht so etwas?
ThoPie

[bobobo]

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Panel_0
  #Button_0
  #Button_1
EndEnumeration
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 380, 20, 140, 40, "hin")
      ButtonGadget(#Button_1, 380, 60, 140, 40, "wech")
      ;- Panel0
      PanelGadget(#Panel_0, 50, 30, 250, 140)
      AddGadgetItem(#Panel_0, -1, "Tab 1")
      AddGadgetItem(#Panel_0, -1, "Tab 2")
      AddGadgetItem(#Panel_0, -1, "Tab 3")
      AddGadgetItem(#Panel_0, -1, "Tab 4")
      CloseGadgetList()
    EndIf
  EndIf
EndProcedure
Open_Window_0()
i=CountGadgetItems(#Panel_0)-1 
Repeat
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
  If Event = #PB_Event_Gadget
    If GadgetID = #Panel_0
    ElseIf GadgetID = #Button_1
      RemoveGadgetItem(#Panel_0, i)
      i-1
    ElseIf GadgetID = #Button_0
      AddGadgetItem(#Panel_0, -1,"Tab "+Str(i+2))
      i+1
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End

Ansonsten .. Hilfe lesen macht kluch !

[PureLust]

@bo³:

ich schätze mal, er wollte wissen wie er aus einem PanelGadget mit z.B. 5 existierenden Panels eins der Panel (z.B. das 2te) ausblenden kann.

[ts-soft]

Man kann das Panel disablen (nicht anwählbar)
http://www.purebasic.fr/english/viewtop ... anelgadget

[bobobo]

@bo³:

ich schätze mal, er wollte wissen wie er aus einem PanelGadget mit z.B. 5 existierenden Panels eins der Panel (z.B. das 2te) ausblenden kann.

und ? soll er doch das zweite ausblenden ..das hat ne Nummer und ist ansprechbar so wie im Code oben

[Xaby]

Aus der PB-Hilfe

RemoveGadgetItem(): entfernt eine Schaltfläche

Der englische Code ist etwas unsinnig, es ist zwar ein TAB ausgeblendet, aber man kann ohne Maus nicht mehr weiterschalten.
Das ist ungünstig. Dann lieber den Tab nicht anschalten oder?


Aber kann mir einer von euch sagen, wie ich gleichberechtigte PANEL-TABs unter einander bekomme?

Das sieht man ja oft. Ne Reihe TABs oben und daunter eine. Und alle sind in der selben Ebene.

Geht das ohne Weiteres? Als Beispiel: Im jaPBe rechts, wenn man die Panels zusammen schiebt, gehen sie übereinander.

[edel]

Beispiel :

Code: Alles auswählen

hwnd = OpenWindow(0,0,0,300,300,"leer")

CreateGadgetList(hwnd)
hTC = PanelGadget(0,0,0,300,300)

style = GetWindowLong_(hTC,#GWL_STYLE)
SetWindowLong_(hTC,#GWL_STYLE,style|#TCS_MULTILINE)


For i = 0 To 10
  AddGadgetItem(0,-1,"")
Next

Repeat : Until WaitWindowEvent() = 16

[Xaby]

Bin beeindruckt ...

Wie ihr das immer nur macht. Wo findet ihr immer die Lösungen?
Träumt ihr nachts davon und ihr habt Visionen ...