FiveTech Software tech support forums

Mario en el ON INIT probate esto .

#define WM_SETICON 128 // 0x80

SendMessage( oDlg:hWnd, WM_SETICON, 0, oIcon:hIcon )

Y contame si te funca ?

SendMessage(oWnd:hWnd,128,1,oIco:hIcon)

... TO _Dbf2Xls oDDEs:Execute("[Open(" +qq+ DEFATMP+"\_Dbf2Xls.Dbf" +qq+ ")]") oDDEs:Execute( "[Save.As(" +qq+ cFileXls +qq+ ",1)]" ) If lCerrarExcel SendMessage( hExcel, WM_DESTROY ) EndIf oDDEs:End() oDDEs := Nil CursorArrow() Borrar( "_Dbf2Xls.dbf" ) Return NIL //----------------------------------- ...

... dDate ) INLINE if( empty(dDate), ::SetNull(),; SetDatePick( ::hWnd, Year( dDate ), Month( dDate ),; Day( dDate )) ) METHOD SetNull() INLINE SendMessage(::hWnd,; DTM_SETSYSTEMTIME, GDT_NONE ) (don't forget the following in the new() method:) // r.c. add: DTS_SHOWNONE ::nStyle = nOR( WS_CHILD, ...