PureBoard

Verfasst: **16.03.2007 15:09**

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

Verfasst: **16.03.2007 15:47**

; 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 !

Verfasst: **16.03.2007 15:57**

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

Verfasst: **16.03.2007 16:00**

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

Verfasst: **16.03.2007 17:41**

PureLust hat geschrieben:@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

Verfasst: **30.03.2007 16:57**

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.

Verfasst: **30.03.2007 17:08**

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

Verfasst: **31.03.2007 01:33**

Bin beeindruckt ...

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

PureBoard

Einzelne Panels aus einem PanelGadget entfernen.

Einzelne Panels aus einem PanelGadget entfernen.