FiveTech Software tech support forums

... PHB_ITEM pItem, VARIANT * pVariant ); HB_FUNC( GETPOSTDATA ) { VARIANT vPostData = {0}; LPSAFEARRAY psa; LPCTSTR cszPostData = hb_parc( 1 ); UINT cElems = lstrlen( cszPostData ); LPSTR pPostData; VariantInit( &vPostData ); psa = SafeArrayCreateVector( VT_UI1, 0, cElems ); if( ! psa ) ...

... error: storage class specified for parameter ‘HB_INT’ ./../harbour/include/hbdefs.h:252: error: storage class specified for parameter ‘HB_UINT’ ./../harbour/include/hbdefs.h:267: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or ‘__attribute__’ before ‘HB_SIZE’ ./../harbour/include/hbdefs.h:269: ...

... } RegCloseKey(KeyHandle); }; return Result; } extern int EXECRYPTORAPI EXECryptor_MessageBoxA(HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, UINT uType) { EMIT5 return MessageBoxA(hWnd, lpText, lpCaption, uType); } extern FARPROC EXECRYPTORAPI EXECryptor_GetProcAddr(HMODULE hModule, LPCSTR ...

Antonio Linares wrote:In prsht.h line 187 there is:

UINT *pcRefParent; \

if we remove the trailing \ then the resources compiler compiles without error.

With the above said change in c:\bcc582\include\prsht.h I am able to compile and run the FWH samples Skin1.Prg ans Skin2.Prg without any errors.

Regards
Anser

I think I have found a possible reason for the error.

In prsht.h line 187 there is:

UINT *pcRefParent; \

if we remove tha trailing \ then the resources compiler compiles without error.

Please try it there and lets see if we are right, thanks

... When the window procedure is called the parameters passed will be as follows. Parameter & Description HWND hWnd Handle to the window UINT uiMessage WM_DEVICECHANGE WPARAM wParam Device-change event LPARAM lParam Event-specific data This means, hWnd will be the handle to our window, ...

#pragma BEGINDUMP #include <windows.h> typedef BOOL ( FAR PASCAL * LPPRINTWINDOW )( HWND hWnd, HDC hDC, UINT nFlags ); BOOL WINAPI PrintWindow( HWND hWnd, HDC hDC, UINT uiFlags ) { LPPRINTWINDOW pPW; HINSTANCE hDLL = LoadLibrary( "user32.dll" ); BOOL bResult = ...

... link and adding the following code #pragma BEGINDUMP #include <windows.h> typedef BOOL ( FAR PASCAL * LPPRINTWINDOW )( HWND hWnd, HDC hDC, UINT nFlags ); BOOL WINAPI PrintWindow( HWND hWnd, HDC hDC, UINT uiFlags ) { LPPRINTWINDOW pPW; HINSTANCE hDLL = LoadLibrary( "user32.dll" ...

... //typedef int (FAR WINAPI *FARPROC)(); void WindowBoxBlack( HDC hDC, RECT * pRect ); LRESULT static CALLBACK LabelProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam ) { if( uMsg == WM_ERASEBKGND ) { return 1; } else if( uMsg == 0x0128 ) // SAYs were erased when pressing ALT ...

... #include <windows.h> HB_FUNC( DRAWFRAMECONTROL ) // hDC, aRect, uType, uState { HDC hdc = ( HDC ) hb_parnl(1); // handle to device context UINT uType = hb_parni(3) ; // frame-control type UINT uState = hb_parni(4); // frame-control state RECT rct; rct.top = hb_parnl(2,1); rct.left = hb_parnl(2,2); ...

... of listbox I call a structure for dra the item : http://msdn.microsoft.com/en-us/library/92fhtw0f(VS.80).aspx typedef struct tagDRAWITEMSTRUCT { UINT CtlType; UINT CtlID; UINT itemID; UINT itemAction; UINT itemState; HWND hwndItem; HDC hDC; RECT rcItem; DWORD itemData; } DRAWITEMSTRUCT; and the ...

... DWORD FSUIPC_Version = 0; DWORD FSUIPC_FS_Version = 0; DWORD FSUIPC_Lib_Version = LIB_VERSION; static HWND m_hWnd = 0; // FS6 window handle static UINT m_msg = 0; // id of registered window message static ATOM m_atom = 0; // global atom containing name of file-mapping object static HANDLE m_hMap ...

... DWORD FSUIPC_Version = 0; DWORD FSUIPC_FS_Version = 0; DWORD FSUIPC_Lib_Version = LIB_VERSION; static HWND m_hWnd = 0; // FS6 window handle static UINT m_msg = 0; // id of registered window message static ATOM m_atom = 0; // global atom containing name of file-mapping object static HANDLE m_hMap ...

... #include <windows.h> HB_FUNC( DRAWFRAMECONTROL ) // hDC, aRect, uType, uState { HDC hdc = ( HDC ) hb_parnl(1); // handle to device context UINT uType = hb_parni(3) ; // frame-control type UINT uState = hb_parni(4); // frame-control state RECT rct; rct.top = hb_parnl(2,1); rct.left = hb_parnl(2,2); ...

... PHB_ITEM pItem, VARIANT * pVariant ); HB_FUNC( GETPOSTDATA ) { VARIANT vPostData = {0}; LPSAFEARRAY psa; LPCTSTR cszPostData = hb_parc( 1 ); UINT cElems = lstrlen( cszPostData ); LPSTR pPostData; VariantInit( &vPostData ); psa = SafeArrayCreateVector( VT_UI1, 0, cElems ); if( ! psa ) ...