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

2008-07-01 22:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/gtwvt/gtwvt.c
   * contrib/gtwvg/gtwvg.c
     ! Fixed MSVC warnings.
This commit is contained in:
Viktor Szakats
2008-07-01 20:11:23 +00:00
parent 0ba9f6305d
commit 213b5c33d3
3 changed files with 39 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-07-01 22:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/gtwvt/gtwvt.c
* contrib/gtwvg/gtwvg.c
! Fixed MSVC warnings.
2008-07-01 21:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbwhat32/_winmmcap.c
! #include <hbapi.h> -> #include "hbapi.h"

28
harbour/contrib/gtwvg/gtwvg.c
View File

@@ -517,13 +517,14 @@ static void hb_gt_wvt_ResetWindowSize( PHB_GTWVT pWVT )
static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
{
RECT wi, ci;
LONG maxWidth;
LONG maxHeight;
LONG borderWidth;
LONG borderHeight;
SHORT left;
SHORT top;
RECT wi;
RECT ci;
int maxWidth;
int maxHeight;
int borderWidth;
int borderHeight;
int left;
int top;
GetClientRect( pWVT->hWnd, &ci );
GetWindowRect( pWVT->hWnd, &wi );
@@ -551,8 +552,11 @@ static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
}
{
HFONT hOldFont, hFont;
USHORT fontHeight, fontWidth, n;
HFONT hOldFont;
HFONT hFont;
int fontHeight;
int fontWidth;
int n;
fontHeight = maxHeight / pWVT->ROWS;
fontWidth = maxWidth / pWVT->COLS;
@@ -561,7 +565,8 @@ static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
if( hFont )
{
HDC hdc;
LONG width, height;
LONG width;
LONG height;
TEXTMETRIC tm;
hdc = GetDC( pWVT->hWnd );
@@ -861,7 +866,7 @@ static void hb_gt_wvt_MouseEvent( PHB_GTWVT pWVT, UINT message, WPARAM wParam, L
{
ULONG ulSize;
USHORT irow, icol, j, top, left, bottom, right;
int irow, icol, j, top, left, bottom, right;
char * sBuffer;
RECT rect = { 0, 0, 0, 0 };
RECT colrowRC = { 0, 0, 0, 0 };
@@ -887,6 +892,7 @@ static void hb_gt_wvt_MouseEvent( PHB_GTWVT pWVT, UINT message, WPARAM wParam, L
{
BYTE bColor, bAttr;
USHORT usChar;
if( !HB_GTSELF_GETSCRCHAR( pWVT->pGT, irow, icol, &bColor, &bAttr, &usChar ) )
break;

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

@@ -474,13 +474,14 @@ static void hb_gt_wvt_ResetWindowSize( PHB_GTWVT pWVT )
static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
{
RECT wi, ci;
LONG maxWidth;
LONG maxHeight;
LONG borderWidth;
LONG borderHeight;
SHORT left;
SHORT top;
RECT wi;
RECT ci;
int maxWidth;
int maxHeight;
int borderWidth;
int borderHeight;
int left;
int top;
GetClientRect( pWVT->hWnd, &ci );
GetWindowRect( pWVT->hWnd, &wi );
@@ -508,8 +509,11 @@ static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
}
{
HFONT hOldFont, hFont;
USHORT fontHeight, fontWidth, n;
HFONT hOldFont;
HFONT hFont;
int fontHeight;
int fontWidth;
int n;
fontHeight = maxHeight / pWVT->ROWS;
fontWidth = maxWidth / pWVT->COLS;
@@ -518,7 +522,8 @@ static void hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
if( hFont )
{
HDC hdc;
LONG width, height;
LONG width;
LONG height;
TEXTMETRIC tm;
hdc = GetDC( pWVT->hWnd );
@@ -804,7 +809,7 @@ static void hb_gt_wvt_MouseEvent( PHB_GTWVT pWVT, UINT message, WPARAM wParam, L
{
ULONG ulSize;
USHORT irow, icol, j, top, left, bottom, right;
int irow, icol, j, top, left, bottom, right;
char * sBuffer;
RECT rect = { 0, 0, 0, 0 };
RECT colrowRC = { 0, 0, 0, 0 };
@@ -830,6 +835,7 @@ static void hb_gt_wvt_MouseEvent( PHB_GTWVT pWVT, UINT message, WPARAM wParam, L
{
BYTE bColor, bAttr;
USHORT usChar;
if( !HB_GTSELF_GETSCRCHAR( pWVT->pGT, irow, icol, &bColor, &bAttr, &usChar ) )
break;