PureBoard

Verfasst: **25.01.2009 15:14**

hjbremer hat geschrieben:Beispiel: Verknüpfte Enumerations

edel hat geschrieben:@hjbremer

Was bringt ihm das denn?

yo, bringt nämlich GANIX!

das Panel ist ein Gadget kein Statusbar, fertig!

ein Statusbar ist aber kein Gadget, kann also in seiner eigenen Enum hocken.

dein Hinweis ist ja nett und richtig, HaJott, hat aber mit dem vorliegenden Kontext nix zu schigge.

Verfasst: **25.01.2009 16:38**

Hallo Zusammen,

ts-soft hat geschrieben:Naja, Du nimmst eine Procedure zum erstellen eines Reiters. Desweiteren
verwendeste Arrays für die ID. In einer Schleife rufst Du dann die
Procedure auf um die Reiter zu erstellen.

Hm, versuche nun schon einige Zeit dies hinzubekommen, klappt aber nicht. Hab jetzt alles wieder auf den Urzustand gesetzt.

Verstehe leider noch nicht, wie ich das so machen kann, das was ts-soft geschrieben hat.

Krieg es auch nicht hin es in dem Code einzubauen:

Code: Alles auswählen

    If UseGadgetList(WindowID(#Window_0))
        PanelGadget(#Panel10, 5, 5, 685,400)
            AddGadgetItem(#Panel10,-1,"Informationen")
                PanelGadget(#Panel11, 5, 5, 675, 350)
                  AddGadgetItem (#Panel11, -1, "Info Suche")
                    StringGadget(#BruttoWert, 90, 50, 170, 20, "")
                    StringGadget(#Buchtxt, 90, 70, 170, 20, "")
                    StringGadget(#OpNr, 90, 90, 170, 20, "")
                    StringGadget(#ObjektNr, 90, 110, 170, 20, "")
                    StringGadget(#KtoNr,90,130,170,20,"")
                    TextGadget(#Text_0, 10, 50, 70, 20, "Brutto-Wert:", #PB_Text_Right)
                    TextGadget(#Text_1, 10, 70, 70, 20, "Buchungstext:", #PB_Text_Right)
                    TextGadget(#Text_2, 10, 90, 70, 20, "OpNr:", #PB_Text_Right)
                    TextGadget(#Text_3, 10, 110, 70, 20, "Objekt-Nr.:", #PB_Text_Right)
                    TextGadget(#Text_4, 10, 130,70,20, "KontoNr:", #PB_Text_Right)
                    ListIconGadget(#Listview_0, 250, 190, 550, 170," ",80)
                    ListIconGadget(#Listview_0, 10, 200, 650, 120, "", 80,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_MultiSelect|#PB_ListIcon_HeaderDragDrop)
                    SendMessage_(GadgetID(#Listview_0), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, #LVS_EX_LABELTIP)
                    ButtonGadget(#SuchButton0, 90, 170, 120, 20, "Suche starten")
                CloseGadgetList()
            AddGadgetItem(#Panel10,-1,"Korrekturen")
            CloseGadgetList()
     EndIf

Muss ich dann nicht auch bei der Variante von ts-soft, diese drei Zeilen angeben, damit das erstellt wird?

Code: Alles auswählen

        PanelGadget(#Panel10, 5, 5, 685,400)
            AddGadgetItem(#Panel10,-1,"Informationen")
                PanelGadget(#Panel11, 5, 5, 675, 350)

Habe versucht noch weitere "Register Reiter" auf der Ebene des Panels "Informationen" zu integrieren. Bei meiner Anfänger - Version krieg ich das hin, aber bei dem Vorschlag von ts-soft krieg ich keinen Ansatz hin.
Ich dachte, das es dann einfacher wäre, weitere "Register Reiter" bei dem Ansatz von ts-soft nachträglich zu integrieren.

Ich komm einfach nicht weiter. Sorry. Könnte vielleicht jemand da noch mal helfen?? Wäre toll. Danke.

Verfasst: **25.01.2009 19:38**

Meinetwegen machst du eine Procedure Reiter(Reitertitel.s). Dort schreibst du dann
AddGadgetItem() und so weiter rein. Dann rufst du diese Funktion weiter unten
wieder auf.

Verfasst: **25.01.2009 19:42**

Hallo Andesdaf,

vielen Dank für Deine Hilfe.

Verfasst: **25.01.2009 19:51**

bitte. wenn noch fragen auftreten, kannst du ja noch mal posten...

Verfasst: **25.01.2009 20:43**

[OT]Will da jemand ein Finanzbuchhaltungsprogramm machen?

[/OT]

Verfasst: **25.01.2009 22:14**

Zur Anregung:

Code: Alles auswählen

Enumeration ; windows
  #frmMain
  ; ...
EndEnumeration

Enumeration ; gadgets
  #Panel
  ; ...
EndEnumeration

Enumeration ; panelitemcontrols
  #btnOk
  #btnCancel
  ; nur panelitems
  ; ...
EndEnumeration

#MaxTabs = 10
Global Dim Tabs(#MaxTabs -1, 1)

Procedure AddTab(Nr)
  OpenGadgetList(#Panel)
  AddGadgetItem(#Panel, Nr, "Tab " + Str(Nr))
  Tabs(Nr, #btnOk) = ButtonGadget(#PB_Any, 10, 10, 60, 60, "Ok")
  Tabs(Nr, #btnCancel) = ButtonGadget(#PB_Any, 70, 10, 60, 60, "Cancel")
  CloseGadgetList()
EndProcedure

OpenWindow(#frmMain, #PB_Ignore, #PB_Ignore, 200, 200, "", #PB_Window_SystemMenu)
PanelGadget(#Panel, 10, 10, 180, 180)

Define i
For i = 0 To #MaxTabs - 1
  AddTab(i)
Next
While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

Verfasst: **25.01.2009 23:20**

Hallo ts-soft,

ts-soft hat geschrieben:Zur Anregung:

vielen Dank für Dein Beispiel.

Verfasst: **29.01.2009 22:31**

Vielleicht darf ich hier mal anknüpfen, ich glaube meine Frage passt gut dazu.

ts-soft hat geschrieben:
Code: Alles auswählen
Procedure AddTab(Nr)
  OpenGadgetList(#Panel)
  AddGadgetItem(#Panel, Nr, "Tab " + Str(Nr))
  [...]

PB 4.30-Hilfe hat geschrieben:OpenGadgetList(#Gadget [, Eintrag])

[...]

Die folgenden Gadgets werden von OpenGadgetList() unterstützt:

- ContainerGadget()
- PanelGadget() : Der optionale 'Eintrag' Parameter muss angegeben werden.
- ScrollAreaGadget()

Weiß jemand, was es mit dem optionalen 'Eintrag'-Parameter auf sich hat? Weder in der Hilfe noch im Forum konnte ich finden, was der Parameter bedeutet und welche Werte man dafür benutzen kann/soll.

Gruß, Little John

Verfasst: **29.01.2009 22:38**

Wohl die Itemnummer.

PureBoard

PanelGadget geht nicht ?