ContainerGadget

Gadget ››
Parent Previous Next

ContainerGadget

Синтаксис

Function ContainerGadget(ByVal gadget As Long, ByVal x As Long,ByVal y As Long,ByVal w As Long, ByVal h As Long, ByVal parameter As Long=0) As HWND

Описание

Контейнер для нескольких гаджетов. Удобен тогда, когда нужно у групп гаджетов менять расположение или прятать все сразу и в других ситуациях. Установить цвет в гаджет можно функцией SetGadgetColor. Получить цвет из гаджета можно функцией GetGadgetColor

Параметры

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

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

parameter - стиль, только для Windows (смотрите ниже)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim Shared  As HWND ph
ph=OpenWindow("",10,10,500,500)
ContainerGadget(4,100,0,300,300)
ButtonGadget(1,10,10,100,20)
ButtonGadget(2,10,40,100,30)
ImageGadget(3,200,200,100,100,Load_image("E:\WINDOWS\system32\oobe\images\merlin.gif",&hf0f0f0))
function tt() As Integer
  Static As Integer x,y
  x=Rnd*200
  y=Rnd*200
  Resizegadget(4,x,y)
  SetGadgetColor(4,x*Rnd*100000,0,1)
  Return 1
End Function
SetTimer(ph,1,500,Cast(Any Ptr,@tt))
Do
  Var ev=WindowEvent
  If ev=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad