$PBExportHeader$u_tabpg_datetimepick.sru $PBExportComments$Date and Time Picker Control demo tabpage forward global type u_tabpg_datetimepick from u_base_tabpg end type type cb_set_date from u_base_button within u_tabpg_datetimepick end type type cb_get_date from u_base_button within u_tabpg_datetimepick end type type uo_datetimepick from u_comctl_datetimepick within u_tabpg_datetimepick end type type cb_set_style from u_base_button within u_tabpg_datetimepick end type type cb_set_format from u_base_button within u_tabpg_datetimepick end type end forward global type u_tabpg_datetimepick from u_base_tabpg long PictureMaskColor=553648127 long TabBackColor=79416533 string Text="Date Time Picker" cb_set_date cb_set_date cb_get_date cb_get_date uo_datetimepick uo_datetimepick cb_set_style cb_set_style cb_set_format cb_set_format end type global u_tabpg_datetimepick u_tabpg_datetimepick on u_tabpg_datetimepick.create int iCurrent call super::create this.cb_set_date=create cb_set_date this.cb_get_date=create cb_get_date this.uo_datetimepick=create uo_datetimepick this.cb_set_style=create cb_set_style this.cb_set_format=create cb_set_format iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_set_date this.Control[iCurrent+2]=this.cb_get_date this.Control[iCurrent+3]=this.uo_datetimepick this.Control[iCurrent+4]=this.cb_set_style this.Control[iCurrent+5]=this.cb_set_format end on on u_tabpg_datetimepick.destroy call super::destroy destroy(this.cb_set_date) destroy(this.cb_get_date) destroy(this.uo_datetimepick) destroy(this.cb_set_style) destroy(this.cb_set_format) end on type cb_set_date from u_base_button within u_tabpg_datetimepick int X=951 int Y=32 boolean BringToTop=true string Text="Set Date" end type event clicked;call super::clicked;Date ld_date ld_date = Date(1960,9,16) uo_datetimepick.of_set_date(ld_date) end event type cb_get_date from u_base_button within u_tabpg_datetimepick 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_datetimepick.of_get_date() MessageBox("Date", String(ld_date)) end event type uo_datetimepick from u_comctl_datetimepick within u_tabpg_datetimepick int X=37 int Y=32 boolean BringToTop=true end type type cb_set_style from u_base_button within u_tabpg_datetimepick int X=951 int Y=288 int TabOrder=30 boolean BringToTop=true string Text="Set Style" end type event clicked;call super::clicked;uo_datetimepick.of_set_style(4, True) end event type cb_set_format from u_base_button within u_tabpg_datetimepick int X=951 int Y=416 int TabOrder=20 boolean BringToTop=true string Text="Set Format" end type event clicked;call super::clicked;String ls_format ls_format = "MM/dd/yyyy" uo_datetimepick.of_set_format(ls_format) end event
File: u_tabpg_datetimepick.sru
Size: 2949
Date: Tue, 22 Aug 2017 17:30:57 +0200
Size: 2949
Date: Tue, 22 Aug 2017 17:30:57 +0200
- u_base_tabpg u_tabpg_datetimepick(sru)
- u_base_button cb_set_date
- u_base_button cb_get_date
- u_comctl_datetimepick uo_datetimepick
- u_base_button cb_set_style
- u_base_button cb_set_format