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

2009-10-05 17:28 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/gtwvt/gtwvt.c
    ! fixed font selection in UNICODE builds - it was not selected at all
    ! fixed possible double font freeing in non UNICODE builds
This commit is contained in:
Przemyslaw Czerpak
2009-10-05 15:29:34 +00:00
parent e55a6f5d2c
commit a29da0c250
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-10-05 17:28 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtwvt/gtwvt.c
! fixed font selection in UNICODE builds - it was not selected at all
! fixed possible double font freeing in non UNICODE builds
2009-10-05 14:45 UTC+0200 Maurilio Longo (maurilio.longo@libero.it)
* config/os2/gcc.mk

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

@@ -772,7 +772,7 @@ static void hb_gt_wvt_ResetWindowSize( PHB_GTWVT pWVT, HFONT hFont )
#if ! defined( UNICODE )
if( pWVT->hFont )
DeleteObject( pWVT->hFont );
if( pWVT->hFontBox )
if( pWVT->hFontBox && pWVT->hFontBox != pWVT->hFont )
DeleteObject( pWVT->hFontBox );
if( pWVT->CodePage == pWVT->boxCodePage )
pWVT->hFontBox = hFont;
@@ -1542,6 +1542,9 @@ static void hb_gt_wvt_PaintText( PHB_GTWVT pWVT, RECT updateRect )
TCHAR text[ WVT_MAX_ROWS ];
hdc = BeginPaint( pWVT->hWnd, &ps );
#if defined( UNICODE )
SelectObject( hdc, pWVT->hFont );
#endif
rcRect = hb_gt_wvt_GetColRowFromXYRect( pWVT, updateRect );