hier ein Auszug meines aktuellen Projekts:
Code: Alles auswählen
Dim stringarray$ (5,50)
Dim gadgetlive (600)
Global gadgetlive.i
Global stringarray$
Enumeration 10 Step 1
#windownum
#fontnum
#fontnumWD
#panelgadgetnum
#savefilenum
#loadfilenum
#emailcheck
#biccheck
EndEnumeration
Procedure Disabling (gadget.i)
If IsGadget(gadget)
Select GadgetType(gadget)
Case #PB_GadgetType_ComboBox, #PB_GadgetType_Date, #PB_GadgetType_Button
DisableGadget(gadget, 1)
Case #PB_GadgetType_String
SendMessage_(GadgetID(gadget),#EM_SETREADONLY,1,0)
SetGadgetColor(gadget, #PB_Gadget_BackColor, $FFFFFF)
SetGadgetColor(gadget, #PB_Gadget_FrontColor, $000000)
EndSelect
gadgetlive (gadget) = 1
EndIf
EndProcedure
Ich wollte in einer Funktion auf das Array gadgetlive() zugreifen. Wo ist mein Denkfehler?