Code: Select all
SetGadgetColor(frmMain_txt_1,#PB_Gadget_FrontColor,#Black)
example:
Code: Select all
For i = 1 To 10
Debug i
SetGadgetColor(frmMain_txt_i,#PB_Gadget_FrontColor,#Black) ??????
Next
Code: Select all
SetGadgetColor(frmMain_txt_1,#PB_Gadget_FrontColor,#Black)
Code: Select all
For i = 1 To 10
Debug i
SetGadgetColor(frmMain_txt_i,#PB_Gadget_FrontColor,#Black) ??????
Next
Code: Select all
Dim gad(10)
frmMain_txt_1 = TextGadget(#PB_Any,?,?,?,?,"")
gad(1) = frmMain_txt_1
frmMain_txt_2 = TextGadget(#PB_Any,?,?,?,?,"")
gad(2) = frmMain_txt_2
.
.
For g = 1 To 10
SetGadgetColor(gad(g),#PB_Gadget_FrontColor, #Black)
Next
Code: Select all
Global gadtotal
Global Dim gadnum(999)
Procedure AddGad(num)
gadtotal+1
gadnum(gadtotal)=num
EndProcedure
OpenWindow(0,300,300,130,110,"test",#PB_Window_SystemMenu)
AddGad(ButtonGadget(#PB_Any,10,10,100,25,"button 1"))
AddGad(ButtonGadget(#PB_Any,10,40,100,25,"button 2"))
AddGad(ButtonGadget(#PB_Any,10,70,100,25,"button 3"))
For g=1 To gadtotal
DisableGadget(gadnum(g),1)
Next
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
Code: Select all
;-TOP
Enumeration Windows
#Main
EndEnumeration
Enumeration Gadgets
#TextGadget1
#TextGadget2
#TextGadget3
#Button
EndEnumeration
Enumeration Status
#MainStatusBar
EndEnumeration
Procedure Main()
#MainStyle = #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget
If OpenWindow(#Main, #PB_Ignore, #PB_Ignore, 300, 200, "Window" , #MainStyle)
TextGadget(#TextGadget1, 5, 5, 200, 25, "Text 1")
TextGadget(#TextGadget2, 5, 35, 200, 25, "Text 2")
TextGadget(#TextGadget3, 5, 65, 200, 25, "Text 3")
ButtonGadget(#Button, 5, 95, 120, 25, "Set")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case #Button
For i = #TextGadget1 To #TextGadget3
SetGadgetColor(i, #PB_Gadget_FrontColor, #Red)
Next
EndSelect
EndSelect
ForEver
EndIf
EndProcedure : Main()