$PBExportHeader$w_datetime.srw $PBExportComments$Window to chage date/tiem for File Services example forward global type w_datetime from w_response end type type st_filedate from u_st within w_datetime end type type st_filetime from u_st within w_datetime end type type sle_date from u_sle within w_datetime end type type sle_time from u_sle within w_datetime end type type cb_ok from u_cb within w_datetime end type type cb_cancel from u_cb within w_datetime end type end forward global type w_datetime from w_response int X=947 int Y=697 int Width=769 int Height=517 boolean TitleBar=true string Title="File Date/Time" st_filedate st_filedate st_filetime st_filetime sle_date sle_date sle_time sle_time cb_ok cb_ok cb_cancel cb_cancel end type global w_datetime w_datetime event open;call super::open;String ls_Parm ls_Parm = Message.StringParm sle_date.text = Left(ls_Parm, 8) sle_time.text = String(Time(Right(ls_Parm, 8)), "hh:mm am/pm") end event on w_datetime.create int iCurrent call w_response::create this.st_filedate=create st_filedate this.st_filetime=create st_filetime this.sle_date=create sle_date this.sle_time=create sle_time this.cb_ok=create cb_ok this.cb_cancel=create cb_cancel iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=st_filedate this.Control[iCurrent+2]=st_filetime this.Control[iCurrent+3]=sle_date this.Control[iCurrent+4]=sle_time this.Control[iCurrent+5]=cb_ok this.Control[iCurrent+6]=cb_cancel end on on w_datetime.destroy call w_response::destroy destroy(this.st_filedate) destroy(this.st_filetime) destroy(this.sle_date) destroy(this.sle_time) destroy(this.cb_ok) destroy(this.cb_cancel) end on type st_filedate from u_st within w_datetime int X=51 int Y=37 int Width=252 string Text="File Date:" Alignment Alignment=Right! long TextColor=41943040 end type type st_filetime from u_st within w_datetime int X=51 int Y=145 int Width=252 int Height=69 boolean BringToTop=true string Text="File Time:" Alignment Alignment=Right! long TextColor=41943040 end type type sle_date from u_sle within w_datetime int X=334 int Y=29 int Width=270 int TabOrder=10 long TextColor=41943040 long BackColor=1090519039 end type type sle_time from u_sle within w_datetime int X=334 int Y=141 int Width=270 int TabOrder=20 boolean BringToTop=true long TextColor=41943040 long BackColor=1090519039 end type type cb_ok from u_cb within w_datetime int X=115 int Y=273 int Width=243 int TabOrder=30 string Text="OK" boolean Default=true end type event clicked;call super::clicked;String ls_Date, ls_Time If Not IsDate(sle_date.text) Or Not IsTime(sle_Time.text) Then MessageBox("File Services", "Invalid Date/Time", Exclamation!) Return End if ls_Date = String(Date(sle_date.text), "mm/dd/yy") ls_Time = String(Time(sle_time.text), "hh:mm:ss") CloseWithReturn(Parent, ls_Date + ls_Time) end event type cb_cancel from u_cb within w_datetime int X=407 int Y=273 int Width=243 int TabOrder=40 boolean BringToTop=true string Text="Cancel" end type event clicked;call u_cb::clicked;CloseWithReturn(Parent, "") end event
File: w_datetime.srw
Size: 3203
Date: Tue, 22 Jan 2008 23:27:08 +0100
Size: 3203
Date: Tue, 22 Jan 2008 23:27:08 +0100
- w_response w_datetime(srw)
- u_st st_filedate
- u_st st_filetime
- u_sle sle_date
- u_sle sle_time
- u_cb cb_ok
- u_cb cb_cancel