FiveTech Software tech support forums

... sigue: { m_htheme = OpenThemeData(hwnd, L"Button"); if (m_htheme) { DrawThemeBackground(m_htheme, hdc, BP_RADIOBUTTON, RBS_CHECKEDNORMAL, &rc, NULL); CloseThemeData(m_htheme); m_htheme = NULL; } else { DrawFrameControl(hdc, &rc, DFC_BUTTON, DFCS_BUTTONRADIO | DFCS_CHECKED); }; Para más ...

... ) { HWND hWnd = ( HWND ) _parnl( 1 ) ; HDC hDC = ( HDC ) _parnl( 2 ) ; HWND hWndParent = GetParent( hWnd ) ; HDC hDcParent = GetDCEx( hWndParent, NULL, DCX_PARENTCLIP ) ; RECT rct ; POINT pt ; GetWindowRect( hWnd, &rct ) ; pt.y = rct.top ; pt.x = rct.left ; ScreenToClient( hWndParent, &pt ...

... Alert() but show: Objects(name, type) String(value,len,OEM/ANSI) Numeric(value) Date(value) Array(value of each data, even if multidimensional) Null(show a message tha it's nil with a different color) I think that it can be done easily and will give a help to many developpers.

... = FSUIPC_FS_Version = 0; // Connect via FSUIPC, which is known to be FSUIPC's own // and isn't subject to user modificiation m_hWnd = FindWindowEx(NULL, NULL, "UIPCMAIN", NULL); if (!m_hWnd) { // If there's no UIPCMAIN, we may be using WideClient // which only simulates FS98 m_hWnd = FindWindowEx(NULL, ...

... = FSUIPC_FS_Version = 0; // Connect via FSUIPC, which is known to be FSUIPC's own // and isn't subject to user modificiation m_hWnd = FindWindowEx(NULL, NULL, "UIPCMAIN", NULL); if (!m_hWnd) { // If there's no UIPCMAIN, we may be using WideClient // which only simulates FS98 m_hWnd = FindWindowEx(NULL, ...

... a TER window, please refer to the CreateTerWindow function. Return Value: This function returns the window handle of the new window. It returns NULL if the window creation fails. ******************************** y yo la intento 'definir' así: DLL32 FUNCTION TerCreateWindowAlt( x AS LONG, ; y ...

... Ron Pinkas <ron@ronpinkas.com> * source/rtl/win32ole.prg + Now allows return parameter to return OLE object. + Added support for SQL NULL. - Removed the need for :End() deinitialization is automated. * tests/pp.prg + Added (under #ifdef WIN): EXTERN CreatObject * tests/testole.prg ...

... #include <windows.h> CLIPPER ISEXERUNNING( PARAMS ) // ( cExeNameCaseSensitive ) --> lResult { HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) _parc( 1 ) ); _retl( GetLastError() == ERROR_ALREADY_EXISTS ); ReleaseMutex( hMutex ); } #pragma ENDDUMP hago esto pero no lo ...

... hb_parnl( 4 ), hb_parnl( 5 ) ) ); hb_xfree( cLocalFile ); hb_xfree( cNewRemoteFile ); } HB_FUNC (GPRSCONNECT) { HANDLE phWebConnection = NULL; DWORD pdwStatus = 0; ConnMgrConnectionStatus (phWebConnection, &pdwStatus); if (pdwStatus == CONNMGR_STATUS_CONNECTED) { hb_retnl( (long) ...

Uwe,

I guess you are using a NULL brush, so there is no background brush and the one from the main dialog is seen

Maurizio,

Try this:

PDC_ExtTextOut(hPrDC,100,100, 0, NULL, wName, 31, NULL);

I think that the problem is
TCHAR * wName = ( TCHAR * ) hb_xgrab( 31 );

Antonio ,

doesn't works ,

I try also :
PDC_ExtTextOut(hPrDC,100,100, 0, NULL, wName, 15, NULL);

I think that the problem is
TCHAR * wName = ( TCHAR * ) hb_xgrab( len * sizeof( TCHAR ) );

Thank Maurizio

Maurizio,

Please try this:

TCHAR * wName = ( TCHAR * ) hb_xgrab( len * sizeof( TCHAR ) );

MultiByteToWideChar( CP_ACP, 0 ,pW , -1 , wName, sizeof( wName ) / sizeof( wName[ 0 ] ) );
PDC_ExtTextOut(hPrDC,100,100, 0, NULL, wName, len * sizeof( TCHAR ) , NULL);

... wName[sizeof(pW)]; MultiByteToWideChar( CP_ACP, 0 ,pW , -1 , wName, sizeof( wName ) / sizeof( wName[ 0 ] ) ); PDC_ExtTextOut(hPrDC,200,200, 0, NULL, wName, _tcslen(wName) , NULL); Antonio, it is correct ? About the DC : There are not a function to release the DC but a function that close the ...

... the same table? This is my code: function neue_tabelle() local cExec cExec := "CREATE TABLE test ("+; "id INT NOT NULL AUTO_INCREMENT, "+; "name VARCHAR(50), "+; "place VARCHAR(50), "+; "PRIMARY KEY (id) )" ...