[Bug 18673] DateTimePicker works not correctly
wine-bugs at winehq.org
wine-bugs at winehq.org
Thu Sep 3 12:59:07 CDT 2009
http://bugs.winehq.org/show_bug.cgi?id=18673
--- Comment #8 from YuriiS <yurii_ptz at bk.ru> 2009-09-03 12:59:04 ---
Hello!
I returned from vacation and download wine-1.1.29.tar.bz2
And error present.
I put to /dlls/comctl32/datetime.c
FIXME strings
++++1279 (datetime.c)++++
static LRESULT WINAPI
DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
DATETIME_INFO *infoPtr = ((DATETIME_INFO *)GetWindowLongPtrW (hwnd, 0));
LRESULT ret;
TRACE ("%x, %lx, %lx\n", uMsg, wParam, lParam);
if (!infoPtr && (uMsg != WM_CREATE) && (uMsg != WM_NCCREATE))
return DefWindowProcW( hwnd, uMsg, wParam, lParam );
switch (uMsg) {
case DTM_GETSYSTEMTIME:
FIXME("DTM_GET");
return DATETIME_GetSystemTime (infoPtr, (SYSTEMTIME *) lParam);
case DTM_SETSYSTEMTIME:
FIXME("DTM_SET");
return DATETIME_SetSystemTime (infoPtr, wParam, (SYSTEMTIME *) lParam);
+++++++
And test DateTimePicker after change date.
Then i get date-info through WinAPI
+++++++
LRESULT r;
SYSTEMTIME st;
r = SendMessage(DateTimePicker1->Handle, DTM_GETSYSTEMTIME, 0, (LPARAM)&st);
if (r==GDT_VALID) {
ShowMessage("DATE Valid
"+(AnsiString)st.wDay+"/"+(AnsiString)st.wMonth+"/"+(AnsiString)st.wYear);
}else if (r==GDT_NONE) {
ShowMessage("DATE NONE
"+(AnsiString)st.wDay+"/"+(AnsiString)st.wMonth+"/"+(AnsiString)st.wYear);
}else{
ShowMessage("DATE ERROR
"+(AnsiString)st.wDay+"/"+(AnsiString)st.wMonth+"/"+(AnsiString)st.wYear);
}
+++++++
I see FIXME string DTM_GET
And all work good.
But then i get date-info through Delphi/BuilderC++
+++++++
AnsiString str="";
if (DateTimePicker1->Checked==true){
str="DATE Valid ";
}else{
str="DATE NONE ";
}
str=str+DateToStr(DateTimePicker1->Date);
ShowMessage(str);
+++++++
I not see FIXME string DTM_GET
And it work not correctly :(
I think it is a mistake because of the Delphi/BuilderC++
Tomorrow I'll try to find a solution...
--
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.
More information about the wine-bugs
mailing list