add panel per knopfdruck.

[jpd]

Hallo PBler,

möchte gerne per knopf druck ein neues panel im panelgadget hinzufügen,

leider wird bei mermaligen clicken der vorherige überschrieben.

eine idee?

Danke
jpd

Code: Alles auswählen

Enumeration 
  #Window_Main 
  #Gadget_String 
  #Gadget_Editor 
  #StatusBar_0
  #Image_green
  #Image_red
  #pan_1
  #add_comp
EndEnumeration
Global WindowWidth = 640 ,  WindowHeight = 480 
Procedure add_panel(win.l,test.l)
  If CreateGadgetList(WindowID(win)) 
      pan_handle.l=PanelGadget (#PB_Any,10,55,WindowWidth-20,WindowHeight-85)
      AddGadgetItem (pan_handle,-1 + test,"Mail"+Str(test))
      EditorGadget(#Gadget_Editor, 10, 10, WindowWidth - 50, WindowHeight - 130) 
      CloseGadgetList()
  EndIf     
 EndProcedure

Procedure open_win()
  WindowTitle.s = "add tab" 
  If OpenWindow(#Window_Main, 0, 0, WindowWidth, WindowHeight, WindowTitle, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered) 
    CreateStatusBar(#StatusBar_0, WindowID(#Window_Main))
  
    If CreateGadgetList(WindowID(#Window_Main)) 
      StringGadget(#Gadget_String, 10, 10, WindowWidth - 20, 20, "") 
      ButtonGadget(#add_comp, 10, 30, WindowWidth - 20, 20, "Add Computer")
    EndIf 
    Quit = #False 
  EndIf 
EndProcedure


open_win()

Repeat 

  Select WaitWindowEvent() 
 
      Case #PB_Event_Gadget 
        Select EventGadget() 
          Case   #add_comp
            add_panel(#Window_Main,i)
            i=i+1
        EndSelect 
      Case #PB_Event_CloseWindow 
        Quit = #True 
     
  EndSelect 
Until Quit 
 

[ts-soft]

Code: Alles auswählen

AddGadgetItem()

Nicht jedesmal ein neues Gadget erstellen, das kann nicht gehen

[jpd]

Hallo TS-Soft,

manchmal ist man einfach nur blind (oder zu blöd) !!

hier die neue variante!

Code: Alles auswählen

Enumeration 
  #Window_Main 
  #Gadget_String 
  #Gadget_Editor 
  #StatusBar_0
  #Image_green
  #Image_red
  #pan_1
  #add_comp
EndEnumeration
Global WindowWidth = 640 ,  WindowHeight = 480 
Procedure.l add_panel(test.l)
 
     
      AddGadgetItem (#pan_1 ,-1 + test,"Mail"+Str(test))
        editorID =EditorGadget(#PB_Any, 10, 10, WindowWidth - 50, WindowHeight - 130) 
      ;CloseGadgetList()
      ProcedureReturn editorID
 EndProcedure

Procedure open_win()
  WindowTitle.s = "add tab" 
  If OpenWindow(#Window_Main, 0, 0, WindowWidth, WindowHeight, WindowTitle, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered) 
    CreateStatusBar(#StatusBar_0, WindowID(#Window_Main))
  
    If CreateGadgetList(WindowID(#Window_Main)) 
     
      StringGadget(#Gadget_String, 10, 10, WindowWidth - 20, 20, "") 
      ButtonGadget(#add_comp, 10, 30, WindowWidth - 20, 20, "Add Computer")
      PanelGadget (#pan_1,10,55,WindowWidth-20,WindowHeight-85)
    EndIf 
    Quit = #False 
  EndIf 
EndProcedure


open_win()

Repeat 

  Select WaitWindowEvent() 
 
      Case #PB_Event_Gadget 
        Select EventGadget() 
          Case   #add_comp
            editorid=add_panel(i)
            Debug editorid
            Debug i
            i=i+1
        EndSelect 
      Case #PB_Event_CloseWindow 
        Quit = #True 
     
  EndSelect 
Until Quit 

Vielen Dank

jpd

[ts-soft]

Jetzt mußte noch dafür sorgen, das auch das letzte Tab aktiviert wird, ansonsten hängt er zwar hinten an, aber den focus hat ein verkehrter

[jpd]

Hi TS-Soft,

danke, durch deine tipps ist dieser beispiel einigermaßen brauchbar geworden.

Für mich auf jeden fall.

jpd

Code: Alles auswählen

Enumeration 
  #Window_Main 
  #Gadget_String 
  #Gadget_Editor 
  #StatusBar_0
  #Image_green
  #Image_red
  #pan_1
  #add_comp
EndEnumeration
Global WindowWidth = 640 ,  WindowHeight = 480 
Procedure.l add_panel(test.l)
  AddGadgetItem (#pan_1 , test,"Mail"+Str(test))
  SetGadgetState(#pan_1,test)
  editorID =EditorGadget(#PB_Any, 10, 10, WindowWidth - 50, WindowHeight - 130) 
  ProcedureReturn editorID
 EndProcedure

Procedure open_win()
  WindowTitle.s = "add tab" 
  If OpenWindow(#Window_Main, 0, 0, WindowWidth, WindowHeight, WindowTitle, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered) 
    CreateStatusBar(#StatusBar_0, WindowID(#Window_Main))
  
    If CreateGadgetList(WindowID(#Window_Main)) 
     
      StringGadget(#Gadget_String, 10, 10, WindowWidth - 20, 20, "") 
      ButtonGadget(#add_comp, 10, 30, WindowWidth - 20, 20, "Add Computer")
      PanelGadget (#pan_1,10,55,WindowWidth-20,WindowHeight-85)
    EndIf 
    Quit = #False 
  EndIf 
EndProcedure


open_win()

Repeat 

  Select WaitWindowEvent() 
 
      Case #PB_Event_Gadget 
        Select EventGadget() 
          Case   #add_comp
            editorid=add_panel(i)
            Debug editorid
            Debug i
            i=i+1
        EndSelect 
      Case #PB_Event_CloseWindow 
        Quit = #True 
     
  EndSelect 
Until Quit 

[ts-soft]

Ich verstehe zwar deinen code nicht, vor allem das i, aber es scheint zu
funktionieren, das ist ja erstmal wichtig

[hardfalcon]

Solange der Compiler ihn versteht, ist ja alles in Butter. Code soll ja auch nicht wartungsfreundlich, sondern kryptisch sein. Code eben, kein Text.

[dysti]

das "i" ist nur der Zähler für die Beschriftung:
Mail0, Mail1,....

[jpd]

Hallo,
hatte vor lange zeit folgendes gepostet...

http://www.purebasic.fr/german/viewtopi ... highlight=

mittlerweile habe ich das so ausgebaut das ich befehle remote über TCP auf ein system ausführe, ziel ist über unterschiedliche tabs die verbundene computer anzuzeigen (i) und in den editorgadget die jewailigen outputs anzeigen.

hoffe das in den nächsten 2 bis drei jahre vielleicht auch 4, fertig bin.

Ciao
jpd