PureBoard

Verfasst: **09.07.2009 17:54**

Hey Ho
hab eine kleine Frage. Wenn ich viele Textgadget's hab und die alle in ein und der selbe Farbe färbe wird das ziehmlich viel. Kann man das nicht mit einem Befehl machen ? Also Text = Rot und alle Texte werden Rot gefärbt.

Guß Zim und danke an alle die Helfen

Verfasst: **09.07.2009 18:02**

also Gagdet-NUmmer einfach -1 nehmen ...
aber das muss vorher geschehen ... glaub ich

Verfasst: **09.07.2009 18:05**

STARGÅTE hat geschrieben:also Gagdet-NUmmer einfach -1 nehmen ...
aber das muss vorher geschehen ... glaub ich

da bist Du IMO auf dem selben falschen Dampfer, wie ich es grade war.
Farbe, nicht Font.

Grüße ... Kiffi

Verfasst: **09.07.2009 18:10**

Also mit Farbe gehts nicht. Vllt sollte man einfach eine "for next" Schleife machen ?

Verfasst: **09.07.2009 18:13**

The_Dark_Zim-.- hat geschrieben:Vllt sollte man einfach eine "for next" Schleife machen ?

japp. Bietet sich bei TextGadgets sowieso an (sofern Du sie nicht im weiteren
Verlauf verwenden willst). Diese kannst Du dann mit #PB_ANY erstellen.

Grüße ... Kiffi

Verfasst: **09.07.2009 18:34**

Geht wunderbar

Code: Alles auswählen

        For gadget = 12 To 22
        SetGadgetColor(gadget, #PB_Gadget_BackColor, RGB(0, 0, 100))
        SetGadgetColor(gadget, #PB_Gadget_FrontColor, RGB(255, 255, 255))
        Next

Gruß Zim und danke an alle

Verfasst: **10.07.2009 14:01**

Du könntest auch das hier machen:

Code: Alles auswählen

Enumeration
  #erster_Eintrag
  #String_0
  #text_1
  ....
  ...
  ...
  ...
  #Gadget_1
  #letzter_Eintrag_der_Enumeration
EndEnumeration


For gadget = #erster_Eintrag To #letzter_Eintrag_der_Enumeration
  If GadgetType(gadget)=#PB_GadgetType_Text
    SetGadgetColor(gadget, #PB_Gadget_BackColor, RGB(0, 0, 100)) 
    SetGadgetColor(gadget, #PB_Gadget_FrontColor, RGB(255, 255, 255)) 
  EndIf
Next

...dann ist`s egal, welche Nummer die Textgadgets haben.

Verfasst: **10.07.2009 14:07**

Ich hab das auch immer so wie marco2007 gemacht.
Aber da es ja auch #PB_Compiler_EnumerationValue gibt, möchte ich das hier demonstrieren. Einfach als letztes vor deine Event-Schleife setzen:

Code: Alles auswählen

For n=0 To #PB_Compiler_EnumerationValue
	If GadgetType(n) = #PB_GadgetType_Text
		SetGadgetColor(n, #PB_Gadget_BackColor, RGB(0, 0, 100))
		SetGadgetColor(n, #PB_Gadget_FrontColor, RGB(255, 255, 255))
	EndIf
Next

Verfasst: **10.07.2009 16:03**

ich würde trotzdem die von Kiffi vorgeschlagene Variante vorziehen.

alle Gadgets mit Statischer Anzahl kann mit mit einer normalen Enumeration erzeugen,
diejenigen die man in einer Schleife ansprechen will, erzeugt man mit #PB_Any
und rückspeichert die ID in einem Array oder einer Liste.

Verfasst: **10.07.2009 17:36**

Rote Textgadgets kann man sich aber am einfachsten mit Macros erstellen:

Code: Alles auswählen

Macro RedTextGadget(ID, x, y, width, height, Text, Flags)
   ; ...
EndMacro

Was in das Macro kommt, kann man sich ja denken.

PureBoard

Textfarbe

Textfarbe