GroupGadget

Синтаксис

Function GroupGadget(ByVal gadget As long, ByVal x As long, ByVal y As long, ByVal w As long, ByVal h As long, ByRef text As String="") As HWND

Описание

Гаджет-рамка с текстом для визуальной группировки гаджетов.

Установить текст в заголовок рамки можно функцией SetGadgetText
Получить текст из заголовка можно функцией GetGadgetText
Установить цвет заголовка можно функцией SetGadgetColor. В Linux с подсистемой GTK2 можно установить только цвет текста
Получить цвет заголовка можно функцией GetGadgetColor. В Linux с подсистемой GTK2 можно получить только цвет текста
Установить шрифт заголовка можно функцией SetGadgetFont

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и размеры

text - заголовок в рамке

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,300,300)
GroupGadget(1,10,10,260,240,"Group")
ButtonGadget(2,100,100,60,30,"button")
TextGadget(3,150,150,60,30,"Text")
SetGadgetFont(1,LoadFont("arial",15))
SetGadgetColor(1,0,255,2)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then MessBox("Сообщение","Это кнопка")
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents