SetGadgetData()

Синтаксис

SetGadgetData(#Gadget , Value)

Описание

Сохраняет заданное значение в указанном Гаджете. Это значение позже можно прочитать с помощью функции GetGadgetData(). Это позволяет связать пользовательское значение с любым Гаджетом.

Параметры

#Gadget	Номер идентифицирующий указанный Гаджет.
Value	Значение, которое требуется связать с Гаджетом.

Возвращаемое значение

Ничего.

Пример

; Этот код использует SetGadgetData для связывания индекса для массива Messages()
; с каждой кнопкой. Это делает цикл событий более простым,
; поскольку не каждый Гаджет должен обрабатываться отдельно.
;
Dim Messages.s(2)
Messages(0) = "Доброе утро"
Messages(1) = "Привет Мир"
Messages(2) = "Нечего сказать"
If OpenWindow(0, 0, 0, 190, 100, "SetGadgetData", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 10, 10, 80, 20, "Кнопка"): SetGadgetData(0, 1)
    ButtonGadget(1, 10, 40, 80, 20, "Кнопка"): SetGadgetData(1, 2)
    ButtonGadget(2, 10, 70, 80, 20, "Кнопка"): SetGadgetData(2, 1)
    ButtonGadget(3, 100, 10, 80, 20, "Кнопка"): SetGadgetData(3, 2)
    ButtonGadget(4, 100, 40, 80, 20, "Кнопка") ; Будет иметь значение 0, потому что ничего еще не установлено
    ButtonGadget(5, 100, 70, 80, 20, "Кнопка")
    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Value = GetGadgetData(EventGadget())
            MessageRequester("Message", Messages(Value))
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

GetGadgetData(), GetGadgetItemData(), SetGadgetItemData()

Поддерживаемые OS

Все