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

2013-04-03 13:53 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* bin/check.hb
    ! fixed BOM detection and fixup

  * contrib/gtwvg/pushbut.prg
    % use HB_ISSTRING() instead of ValType() call

  * ChangeLog.txt
    ! deleted BOM for the 4th time after:
        2013-04-03 00:42 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
This commit is contained in:
Viktor Szakats
2013-04-03 13:54:21 +02:00
parent a0e2631672
commit db9b948154
3 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ChangeLog.txt
View File

@@ -1,4 +1,4 @@
/*
/*
* $Id$
*/
@@ -10,6 +10,21 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-04-03 13:53 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/check.hb
! fixed BOM detection and fixup
* contrib/gtwvg/pushbut.prg
% use HB_ISSTRING() instead of ValType() call
* ChangeLog.txt
! deleted BOM for the 4th time after:
2013-04-03 00:42 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
2013-04-03 13:52 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/gtwvg/pushbut.prg
* ChangeLog.txt
2013-04-03 13:12 UTC+0200 Viktor Szakats (harbour syenar.net)
* config/lang.hb
+ implemented translation corrections for right-to-left

4
bin/check.hb
View File

@@ -173,10 +173,10 @@ STATIC FUNCTION CheckFile( cName, /* @ */ aErr, lApplyFixes )
AAdd( aErr, "content: has tab" )
ENDIF
IF hb_BLeft( cFile, Len( UTF8_BOM() ) ) == UTF8_BOM()
IF hb_BLeft( cFile, hb_BLen( UTF8_BOM() ) ) == UTF8_BOM()
AAdd( aErr, "content: has BOM" )
IF lApplyFixes
cFile := hb_BSubStr( cFile, Len( UTF8_BOM() ) + 1 )
cFile := hb_BSubStr( cFile, hb_BLen( UTF8_BOM() ) + 1 )
ENDIF
ENDIF

4
contrib/gtwvg/pushbut.prg
View File

@@ -240,7 +240,7 @@ METHOD WvgPushButton:setCaption( xCaption, cDll )
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_ICON, Wvg_LoadImage( xCaption[ 3 ], nLoadFromDiskFile, IMAGE_ICON ) )
EXIT
CASE WVG_IMAGE_ICONRESOURCE
IF ValType( xCaption[ 3 ] ) == "C"
IF HB_ISSTRING( xCaption[ 3 ] )
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_ICON, Wvg_LoadImage( xCaption[ 3 ], nLoadFromResByIdName, IMAGE_ICON ) )
ELSE
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_ICON, Wvg_LoadImage( xCaption[ 3 ], nLoadFromResByIdNumber, IMAGE_ICON ) )
@@ -250,7 +250,7 @@ METHOD WvgPushButton:setCaption( xCaption, cDll )
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_BITMAP, Wvg_LoadImage( xCaption[ 3 ], nLoadFromDiskFile, IMAGE_BITMAP ) )
EXIT
CASE WVG_IMAGE_BITMAPRESOURCE
IF ValType( xCaption[ 3 ] ) == "C"
IF HB_ISSTRING( xCaption[ 3 ] )
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_ICON, Wvg_LoadImage( xCaption[ 3 ], nLoadFromResByIdName, IMAGE_BITMAP ) )
ELSE
Wvg_SendMessage( ::hWnd, BM_SETIMAGE, IMAGE_ICON, Wvg_LoadImage( xCaption[ 3 ], nLoadFromResByIdNumber, IMAGE_BITMAP ) )