CalendarGadget

Синтаксис

Function CalendarGadget(ByVal gadget As long, ByVal x As long, ByVal y As long, ByVal w As long, ByVal h As long,ByVal Style As long=0) As HWND

Описание

Календарь.

Поставить указатель на число можно функцией SetStateCalendar.
Получить число из гаджета можно функцией GetStateCalendar.
Установить шрифт можно функцией SetGadgetFont.
В Linux можно изменить цвет с помощью SetGadgetColor

Параметры

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

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

Style - Только для Windows. Для этого параметра можно использовать расширенные стили(ExStyle) функции OpenWindow

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,400,300)
CalendarGadget(1,10,10,220,220)
ButtonGadget(2,250,100,130,25,"Получить дату")
TextGadget(3,250,140,130,20,"")
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetGadgetText(3,Str(GetStateCalendar(1)))
     EndIf
  EndIf
Loop

Результат

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