fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-06-10 16:26 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/common/hbwince.c
    + added GetDriveTypeA() wrapper for WinCE builds

  * harbour/source/rtl/gtwvt/gtwvt.c
    ! changed wrongly used NULL to 0

  * harbour/source/rtl/gtwvt/gtwvt.c
    * changed LoadLibrary() to LoadLibraryA() for UNICODE builds
      still some other code have to be updated for UNICODE builds.
This commit is contained in:
Przemyslaw Czerpak
2008-06-10 14:26:46 +00:00
parent 46beadfeb3
commit 1ac3666cab
4 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-10 16:26 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/common/hbwince.c
+ added GetDriveTypeA() wrapper for WinCE builds
* harbour/source/rtl/gtwvt/gtwvt.c
! changed wrongly used NULL to 0
* harbour/source/rtl/gtwvt/gtwvt.c
* changed LoadLibrary() to LoadLibraryA() for UNICODE builds
still some other code have to be updated for UNICODE builds.
2008-06-10 16:24 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* xhb/Makefile
* xhb/common.mak

4
harbour/contrib/hbw32/dllcall.c
View File

@@ -733,7 +733,7 @@ HB_FUNC( DLLPREPARECALL )
if( ISCHAR( 1 ) )
{
xec->cDLL = hb_strdup( hb_parc( 1 ) );
xec->hDLL = LoadLibrary( xec->cDLL );
xec->hDLL = LoadLibraryA( xec->cDLL );
}
else if( ISNUM( 1 ) )
xec->hDLL = ( HINSTANCE ) hb_parnl( 1 );
@@ -796,7 +796,7 @@ HB_FUNC( DLLCALL )
if( ISCHAR( 1 ) )
{
hInst = LoadLibrary( hb_parc( 1 ) );
hInst = LoadLibraryA( hb_parc( 1 ) );
lUnload = TRUE;
}
else

12
harbour/source/common/hbwince.c
View File

@@ -502,6 +502,18 @@ DWORD WINAPI GetFileAttributesA( LPCSTR path )
return dw;
}
UINT WINAPI GetDriveTypeA( LPCSTR filename )
{
LPWSTR wpath;
UINT ui
wpath = hb_mbtowc( path );
ui = GetDriveTypeW( wpath );
hb_xfree( wpath );
return ui;
}
BOOL WINAPI GetVersionExA( OSVERSIONINFOA * v )
{
OSVERSIONINFOW wv;

6
harbour/source/rtl/gtwvt/gtwvt.c
View File

@@ -2259,9 +2259,9 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
style = WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_BORDER;
SetWindowLongPtr( pWVT->hWnd, GWL_STYLE, style );
SetWindowPos( pWVT->hWnd, NULL, NULL, NULL, NULL, NULL,
SWP_FRAMECHANGED | SWP_NOACTIVATE | SWP_NOMOVE |
SWP_NOSIZE | SWP_NOZORDER | SWP_DEFERERASE );
SetWindowPos( pWVT->hWnd, NULL, 0, 0, 0, 0,
SWP_FRAMECHANGED | SWP_NOACTIVATE | SWP_NOMOVE |
SWP_NOSIZE | SWP_NOZORDER | SWP_DEFERERASE );
ShowWindow( pWVT->hWnd, SW_HIDE );
ShowWindow( pWVT->hWnd, SW_NORMAL );
pWVT->bResizable = bNewValue;