/*
###########################################################################
# (@)PACKAGE:Win32::GUI::DateTime
#
# $Id: DateTime.xs,v 1.3 2004/05/08 17:32:41 lrocher Exp $
#
###########################################################################
*/
#include "GUI.h"
void
DateTime_onPreCreate(NOTXSPROC LPPERLWIN32GUI_CREATESTRUCT perlcs) {
perlcs->cs.lpszClass = DATETIMEPICK_CLASS;
perlcs->cs.style = WS_VISIBLE | WS_CHILD;
}
BOOL
DateTime_onParseOption(NOTXSPROC char *option, SV* value, LPPERLWIN32GUI_CREATESTRUCT perlcs) {
BOOL retval = TRUE;
if(strcmp(option, "-align") == 0) {
if(strcmp(SvPV_nolen(value), "left") == 0) {
SwitchBit(perlcs->cs.style, DTS_RIGHTALIGN, 0);
} else if(strcmp(SvPV_nolen(value), "right") == 0) {
SwitchBit(perlcs->cs.style, DTS_RIGHTALIGN, 1);
} else {
if(PL_dowarn) warn("Win32::GUI: Invalid value for -align!");
}
}
else if(strcmp(option, "-format") == 0) {
if(strcmp(SvPV_nolen(value), "shortdate") == 0) {
SwitchBit(perlcs->cs.style, DTS_LONGDATEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_TIMEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_SHORTDATEFORMAT, 1);
} else if(strcmp(SvPV_nolen(value), "longdate") == 0) {
SwitchBit(perlcs->cs.style, DTS_TIMEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_SHORTDATEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_LONGDATEFORMAT, 1);
} else if(strcmp(SvPV_nolen(value), "time") == 0) {
SwitchBit(perlcs->cs.style, DTS_LONGDATEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_SHORTDATEFORMAT, 0);
SwitchBit(perlcs->cs.style, DTS_TIMEFORMAT, 1);
} else {
if(PL_dowarn) warn("Win32::GUI: Invalid value for -format!");
}
} else if BitmaskOptionValue("-shownone", perlcs->cs.style, DTS_SHOWNONE)
} else if BitmaskOptionValue("-updown", perlcs->cs.style, DTS_UPDOWN)
} else retval = FALSE;
return retval;
}
void
DateTime_onPostCreate(NOTXSPROC HWND myhandle, LPPERLWIN32GUI_CREATESTRUCT perlcs) {
}
BOOL
DateTime_onParseEvent(NOTXSPROC char *name, int* eventID) {
BOOL retval = TRUE;
if Parse_Event("GotFocus", PERLWIN32GUI_NEM_GOTFOCUS)
else if Parse_Event("LostFocus", PERLWIN32GUI_NEM_LOSTFOCUS)
else if Parse_Event("CloseUp", PERLWIN32GUI_NEM_CONTROL1)
else if Parse_Event("Change", PERLWIN32GUI_NEM_CONTROL2)
else if Parse_Event("DropDown", PERLWIN32GUI_NEM_CONTROL3)
else retval = FALSE;
return retval;
}
int
DateTime_onEvent (NOTXSPROC LPPERLWIN32GUI_USERDATA perlud, UINT uMsg, WPARAM wParam, LPARAM lParam) {
int PerlResult = 1;
if ( uMsg == WM_NOTIFY ) {
LPNMHDR notify = (LPNMHDR) lParam;
switch(notify->code) {
case DTN_CLOSEUP:
/*
* (@)EVENT:CloseUp()
* Sent when the user closes the drop-down month calendar. .
* (@)APPLIES_TO:DateTime
*/
PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL1, "CloseUp", -1 );
break;
case DTN_DATETIMECHANGE:
/*
* (@)EVENT:Change()
* Sent when the datetime change. .
* (@)APPLIES_TO:DateTime
*/
PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL2, "Change", -1 );
break;
case DTN_DROPDOWN:
/*
* (@)EVENT:DropDown()
* Sent when the user activates the drop-down month calendar..
* (@)APPLIES_TO:DateTime
*/
PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL3, "DropDown", -1 );
break;
}
}
return PerlResult;
}
MODULE = Win32::GUI::DateTime PACKAGE = Win32::GUI::DateTime
PROTOTYPES: DISABLE
#pragma message( "*** PACKAGE Win32::GUI::DateTime..." )
###########################################################################
# (@)METHOD:GetMonthCal()
# Retrieves the handle to a date and time picker's (DTP) child month calendar control.
HWND
GetMonthCal(handle)
HWND handle
CODE:
RETVAL = (HWND) DateTime_GetMonthCal(handle);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:GetMonthCalColor(icolor)
# Retrieves the color for a given portion of the month calendar within a date and time picker (DTP) control.
# icolor :
# MCSC_BACKGROUND = Retrieve the background color displayed between months.
# MCSC_MONTHBK = Retrieve the background color displayed within the month.
# MCSC_TEXT = Retrieve the color used to display text within a month.
# MCSC_TITLEBK = Retrieve the background color displayed in the calendar's title.
# MCSC_TITLETEXT = Retrieve the color used to display text within the calendar's title.
# MCSC_TRAILINGTEXT = Retrieve the color used to display header day and trailing day text. Header and trailing days are the days from the previous and following months that appear on the current month calendar.
COLORREF
GetMonthCalColor(handle,icolor)
HWND handle
int icolor
CODE:
RETVAL = DateTime_GetMonthCalColor(handle, icolor);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:GetMonthCalFont(icolor)
# Retrieves the font that the date and time picker (DTP) control's child month calendar control is currently using.
HFONT
GetMonthCalFont(handle)
HWND handle
CODE:
RETVAL = (HFONT) DateTime_GetMonthCalFont(handle);
OUTPUT:
RETVAL
# TODO : DateTime_GetRange
###########################################################################
# (@)METHOD:GetSystemTime()
# (@)METHOD:GetDateTime()
# Returns the date and time in the DateTime control in a eight
# elements array (year, month, day, dayofweek, hour, minute, second, millisecond).
void
GetSystemTime(handle)
HWND handle
ALIAS:
Win32::GUI::DateTime::GetDateTime = 1
PREINIT:
SYSTEMTIME st;
PPCODE:
if(DateTime_GetSystemtime(handle, &st) == GDT_VALID) {
EXTEND(SP, 8);
XST_mIV(0, st.wYear);
XST_mIV(1, st.wMonth);
XST_mIV(2, st.wDay);
XST_mIV(3, st.wDayOfWeek);
XST_mIV(4, st.wHour);
XST_mIV(5, st.wMinute);
XST_mIV(6, st.wSecond);
XST_mIV(7, st.wMilliseconds);
XSRETURN(8);
} else {
XSRETURN_UNDEF;
}
###########################################################################
# (@)METHOD:SetFormat(FORMAT)
# (@)METHOD:Format(FORMAT)
# Sets the format for the DateTime control to the specified string.
BOOL
SetFormat(handle, format = NULL)
HWND handle
LPCTSTR format
ALIAS:
Win32::GUI::DateTime::Format = 1
CODE:
RETVAL = DateTime_SetFormat(handle, format);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:SetMonthCalColor(icolor,color)
# Sets the color for a given portion of the month calendar within a date and time picker (DTP) control.
HFONT
SetMonthCalColor(handle,icolor,color)
HWND handle
int icolor
COLORREF color
CODE:
RETVAL = (HFONT) DateTime_SetMonthCalColor(handle,icolor,color);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:SetMonthCalColor(icolor,color)
# Sets the font to be used by the date and time picker (DTP) control's child month calendar control.
HFONT
SetMonthCalFont(handle,font,flag)
HWND handle
HFONT font
BOOL flag
CODE:
RETVAL = (HFONT) DateTime_SetMonthCalFont(handle,font,MAKELONG(flag,0));
OUTPUT:
RETVAL
# TODO : DateTime_SetRange
###########################################################################
# (@)METHOD:SetSystemTime(YEAR,MON, DAY, HOUR, MIN, SEC, [MSEC=0])
# (@)METHOD:SetDateTime(YEAR,MON, DAY, HOUR, MIN, SEC, [MSEC=0])
# Sets the date time in the DateTime control
BOOL
SetSystemTime(handle, year, mon, day, hour, min, sec, msec=0)
HWND handle
int year
int mon
int day
int hour
int min
int sec
int msec
ALIAS:
Win32::GUI::DateTime::SetDateTime = 1
PREINIT:
SYSTEMTIME st;
CODE:
ZeroMemory(&st, sizeof(SYSTEMTIME));
st.wYear = year;
st.wDay = day;
st.wMonth = mon;
st.wHour = hour;
st.wMinute = min;
st.wSecond = sec;
st.wMilliseconds = msec;
RETVAL = DateTime_SetSystemtime(handle, GDT_VALID, &st);
OUTPUT:
RETVAL
###########################################################################
###########################################################################
###########################################################################
###########################################################################
# (@)METHOD:GetDate()
# Returns the date in the DateTime control in a three elements array (day, month, year).
void
GetDate(handle)
HWND handle
PREINIT:
SYSTEMTIME st;
PPCODE:
if(DateTime_GetSystemtime(handle, &st) == GDT_VALID) {
EXTEND(SP, 3);
XST_mIV(0, st.wDay);
XST_mIV(1, st.wMonth);
XST_mIV(2, st.wYear);
XSRETURN(3);
} else {
XSRETURN_UNDEF;
}
###########################################################################
# (@)METHOD:SetDate(DAY, MONTH, YEAR)
# Sets the date in the DateTime control in a three elements array (day, month, year).
BOOL
SetDate(handle, day, mon, year)
HWND handle
int day
int mon
int year
PREINIT:
SYSTEMTIME st;
CODE:
ZeroMemory(&st, sizeof(SYSTEMTIME));
st.wDay = day;
st.wMonth = mon;
st.wYear = year;
RETVAL = DateTime_SetSystemtime(handle, GDT_VALID, &st);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:GetTime()
# Returns the time in the DateTime control in a four
# elements array (hour, min, sec, msec).
void
GetTime(handle)
HWND handle
PREINIT:
SYSTEMTIME st;
PPCODE:
if(DateTime_GetSystemtime(handle, &st) == GDT_VALID) {
EXTEND(SP, 4);
XST_mIV(0, st.wHour);
XST_mIV(1, st.wMinute);
XST_mIV(2, st.wSecond);
XST_mIV(3, st.wMilliseconds);
XSRETURN(4);
} else {
XSRETURN_UNDEF;
}
###########################################################################
# (@)METHOD:SetTime(HOUR, MIN, SEC, [MSEC=0])
# Sets the time in the DateTime control in a four
# elements array (hour, min, sec, [msec=0]).
BOOL
SetTime(handle, hour, min, sec, msec=0)
HWND handle
int hour
int min
int sec
int msec
PREINIT:
SYSTEMTIME st;
CODE:
ZeroMemory(&st, sizeof(SYSTEMTIME));
st.wHour = hour;
st.wMinute = min;
st.wSecond = sec;
st.wMilliseconds = msec;
RETVAL = DateTime_SetSystemtime(handle, GDT_VALID, &st);
OUTPUT:
RETVAL
###########################################################################
# (@)METHOD:SetNone(handle)
# Set none state in the DateTime control (control check box was selected).
void
SetNone(handle)
HWND handle
PPCODE:
DateTime_SetSystemtime(handle, GDT_NONE, NULL);
###########################################################################
# (@)METHOD:IsNone()
# Test if the DateTime control is None (control check box was not selected).
BOOL
IsNone(handle)
HWND handle
PREINIT:
SYSTEMTIME st;
CODE:
RETVAL = (DateTime_GetSystemtime(handle, &st) == GDT_NONE);
OUTPUT:
RETVAL