$PBExportHeader$u_tabpg_monthcal.sru $PBExportComments$Month Calendar Control demo tabpage forward global type u_tabpg_monthcal from u_base_tabpg end type type uo_monthcal from u_comctl_monthcal within u_tabpg_monthcal end type type cb_set_date from u_base_button within u_tabpg_monthcal end type type cb_get_date from u_base_button within u_tabpg_monthcal end type type cb_set_today from u_base_button within u_tabpg_monthcal end type type cb_get_today from u_base_button within u_tabpg_monthcal end type type cb_set_color from u_base_button within u_tabpg_monthcal end type end forward global type u_tabpg_monthcal from u_base_tabpg long PictureMaskColor=553648127 long TabBackColor=79416533 string Text="Month Calendar" uo_monthcal uo_monthcal cb_set_date cb_set_date cb_get_date cb_get_date cb_set_today cb_set_today cb_get_today cb_get_today cb_set_color cb_set_color end type global u_tabpg_monthcal u_tabpg_monthcal on u_tabpg_monthcal.create int iCurrent call super::create this.uo_monthcal=create uo_monthcal this.cb_set_date=create cb_set_date this.cb_get_date=create cb_get_date this.cb_set_today=create cb_set_today this.cb_get_today=create cb_get_today this.cb_set_color=create cb_set_color iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.uo_monthcal this.Control[iCurrent+2]=this.cb_set_date this.Control[iCurrent+3]=this.cb_get_date this.Control[iCurrent+4]=this.cb_set_today this.Control[iCurrent+5]=this.cb_get_today this.Control[iCurrent+6]=this.cb_set_color end on on u_tabpg_monthcal.destroy call super::destroy destroy(this.uo_monthcal) destroy(this.cb_set_date) destroy(this.cb_get_date) destroy(this.cb_set_today) destroy(this.cb_get_today) destroy(this.cb_set_color) end on type uo_monthcal from u_comctl_monthcal within u_tabpg_monthcal int X=37 int Y=32 boolean BringToTop=true end type type cb_set_date from u_base_button within u_tabpg_monthcal int X=951 int Y=32 int TabOrder=10 boolean BringToTop=true string Text="Set Date" end type event clicked;call super::clicked;Date ld_date ld_date = Date(1960,9,16) uo_monthcal.of_set_date(ld_date) end event type cb_get_date from u_base_button within u_tabpg_monthcal int X=951 int Y=160 int TabOrder=20 boolean BringToTop=true string Text="Get Date" end type event clicked;call super::clicked;Date ld_date ld_date = uo_monthcal.of_get_date() MessageBox("Date", String(ld_date)) end event type cb_set_today from u_base_button within u_tabpg_monthcal int X=951 int Y=288 int TabOrder=30 boolean BringToTop=true string Text="Set Today" end type event clicked;call super::clicked;Date ld_date ld_date = Date(1960,9,16) uo_monthcal.of_set_today(ld_date) end event type cb_get_today from u_base_button within u_tabpg_monthcal int X=951 int Y=416 int TabOrder=40 boolean BringToTop=true string Text="Get Today" end type event clicked;call super::clicked;Date ld_date ld_date = uo_monthcal.of_get_today() MessageBox("Today", String(ld_date)) end event type cb_set_color from u_base_button within u_tabpg_monthcal int X=951 int Y=544 int TabOrder=50 boolean BringToTop=true string Text="Set Color" end type event clicked;call super::clicked;ULong lul_color lul_color = RGB(0, 255, 0) uo_monthcal.of_set_color(uo_monthcal.MCSC_MONTHBK, lul_color) end event
File: u_tabpg_monthcal.sru
Size: 3412
Date: Tue, 22 Aug 2017 17:30:57 +0200
Size: 3412
Date: Tue, 22 Aug 2017 17:30:57 +0200
- u_base_tabpg u_tabpg_monthcal(sru)
- u_comctl_monthcal uo_monthcal
- u_base_button cb_set_date
- u_base_button cb_get_date
- u_base_button cb_set_today
- u_base_button cb_get_today
- u_base_button cb_set_color