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

2012-07-27 22:23 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* extras/gtwvw/gtwvw.c
  * extras/gtwvw/wvwdraw.c
    ! deleted remaining 8-bit ASCII chars (for real).
This commit is contained in:
Viktor Szakats
2012-07-27 20:24:04 +00:00
parent 094fe7f15a
commit b16f12c44d
3 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-27 22:23 UTC+0200 Viktor Szakats (harbour syenar.net)
* extras/gtwvw/gtwvw.c
* extras/gtwvw/wvwdraw.c
! deleted remaining 8-bit ASCII chars (for real).
2012-07-27 21:57 UTC+0200 Viktor Szakats (harbour syenar.net)
* extras/gtwvw/hbgtwvw.h
* extras/hbvpdf/hbvpdf.prg

12
harbour/extras/gtwvw/gtwvw.c
View File

@@ -504,7 +504,7 @@ static void hb_gt_wvw_Init( PHB_GT pGT, HB_FHANDLE hFilenoStdin, HB_FHANDLE hFil
s_pWvwData->s_sApp->OriginalPen = (HPEN) SelectObject( s_pWvwData->s_pWindows[0]->hdc, (HPEN) s_pWvwData->s_sApp->penWhite );
s_pWvwData->s_sApp->OriginalBrush = (HBRUSH) SelectObject( s_pWvwData->s_pWindows[0]->hdc, (HBRUSH) s_pWvwData->s_sApp->currentBrush );
/*
E, logo ap¢s, restaura aos valores originais mantendo em s_pWvwData->s_sApp os valores salvos para restaura‡Æo
E, logo apos, restaura aos valores originais mantendo em s_pWvwData->s_sApp os valores salvos para restauracao
quando for utilizar DeleteObject()
*/
SelectObject( s_pWvwData->s_pWindows[0]->hdc, (HPEN) s_pWvwData->s_sApp->OriginalPen );
@@ -572,9 +572,9 @@ static void hb_gt_wvw_Exit( PHB_GT pGT )
DeleteObject( ( HFONT ) pWindowData->hFont );
/*
Faz apenas para a janela 0 (a primeira) j  que existe, na cria‡Æo das mesmas, uma condi‡Æo para que
Faz apenas para a janela 0 (a primeira) ja que existe, na criacao das mesmas, uma condicao para que
apenas a primeira seja criada
Obs: A exclusÆo desses objetos precisa ocorrer antes da Release do Device Context
Obs: A exclusao desses objetos precisa ocorrer antes da Release do Device Context
*/
if (j==0)
{
@@ -585,7 +585,7 @@ static void hb_gt_wvw_Exit( PHB_GT pGT )
SelectObject( s_pWvwData->s_pWindows[0]->hdc, (HBRUSH) s_pWvwData->s_sApp->OriginalBrush );
/*
Com PENs e BRUSHes liberadas, efetua exclusÆo
Com PENs e BRUSHes liberadas, efetua exclusao
*/
if (s_pWvwData->s_sApp->penWhite)
{
@@ -5806,11 +5806,11 @@ static UINT hb_gt_wvwOpenWindow( LPCTSTR lpszWinName, int iRow1, int iCol1, int
s_pWvwData->s_pWindows[ s_pWvwData->s_usNumWindows-1 ]->hIcon = NULL;
/*
Ap¢s o Device Context e as PENs e BRUSHes criados, atribuo uma PEN e um BRUSH qualquer apenas para pegar
Apos o Device Context e as PENs e BRUSHes criados, atribuo uma PEN e um BRUSH qualquer apenas para pegar
o handle original da PEN e BRUSH do Device Context
*/
/*
E, logo ap¢s, restaura aos valores originais mantendo em s_pWvwData->s_sApp os valores salvos para restaura‡Æo
E, logo apos, restaura aos valores originais mantendo em s_pWvwData->s_sApp os valores salvos para restauracao
quando for utilizar DeleteObject()
*/
SelectObject( s_pWvwData->s_pWindows[s_pWvwData->s_usNumWindows-1]->hdc, (HPEN) s_pWvwData->s_sApp->OriginalPen );

4
harbour/extras/gtwvw/wvwdraw.c
View File

@@ -1938,7 +1938,7 @@ HB_FUNC( WVW_DRAWRECTANGLE )
usLeft = ( USHORT )hb_parni( 3 ),
usBottom = ( USHORT )hb_parni( 4 ),
usRight = ( USHORT )hb_parni( 5 );
// Ref.: 28454 - M rson de Paula - 11/27/2007
// Ref.: 28454 - Marson de Paula - 11/27/2007
BOOL bUsaCurrentPen = ( HB_ISNIL( 7 ) ? TRUE : hb_parl( 7 ) );
iOffTop = !HB_ISNIL( 6 ) ? hb_parvni( 6,1 ) : 0 ;
@@ -1963,7 +1963,7 @@ HB_FUNC( WVW_DRAWRECTANGLE )
iRight = xy.x-1 + iOffRight;
SelectObject( pWindowData->hdc, s_sApp->currentBrush );
// Ref.: 28454 - M rson de Paula - 11/27/2007
// Ref.: 28454 - Marson de Paula - 11/27/2007
if ( bUsaCurrentPen )
{
SelectObject( pWindowData->hdc, s_sApp->currentPen );