Jorge, lo que dice Armando es correcto. Modifica longitud del recurso.
He compilado DateTime.prg y en efecto no muestra el icono, pero si modificas el recurso lo verás.
Aquí el recurso modificado.
Code: Select all
#include "../include/winapi.ch"
#define DTS_SHOWNONE 0x0002
#define DTS_LONGDATEFORMAT 0x0004
#define DTS_TIMEFORMAT 0x0009
1 24 "./winxp/WindowsXP.Manifest"
MAIN DIALOG DISCARDABLE 85, 52, 254, 156
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Date Time"
FONT 8, "MS Sans Serif"
BEGIN
CONTROL "", 120, "SysDateTimePick32", WS_TABSTOP, 7, 10, 80, 12 //aquí tenía 60, lo modifiqué a 80
CONTROL "", 121, "SysDateTimePick32", DTS_LONGDATEFORMAT|WS_TABSTOP, 7, 32, 136, 12
CONTROL "", 122, "SysDateTimePick32", DTS_SHOWNONE|WS_TABSTOP, 7, 54, 67, 12
CONTROL "", 123, "SysDateTimePick32", DTS_TIMEFORMAT|WS_TABSTOP, 7, 85, 45, 12
CONTROL "", 124, "SysDateTimePick32", DTS_TIMEFORMAT|DTS_SHOWNONE|WS_TABSTOP, 7, 107, 53, 12
CONTROL "", 130, "Static", SS_CENTERIMAGE|WS_BORDER|WS_GROUP, 169, 10, 71, 12
CONTROL "", 131, "Static", SS_CENTERIMAGE|WS_BORDER|WS_GROUP, 169, 32, 71, 12
CONTROL "", 132, "Static", SS_CENTERIMAGE|WS_BORDER|WS_GROUP, 169, 54, 71, 12
CONTROL "", 133, "Static", SS_CENTERIMAGE|WS_BORDER|WS_GROUP, 169, 85, 71, 12
CONTROL "", 134, "Static", SS_CENTERIMAGE|WS_BORDER|WS_GROUP, 169, 107, 71, 12
CONTROL "OK", IDOK, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 40, 135, 50, 14
CONTROL "Clean", 4, "Button", WS_TABSTOP, 98, 135, 50, 14
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 156, 135, 50, 14
END
Saludos.