Форум » [x]Harbour » gauge.c ошибка с исправленным текстом » Ответить
gauge.c ошибка с исправленным текстом
Zakrzevky: (кодировка получается кривая) error in gauge.c ! #include "hbapi.h" #include "hbapiitm.h" #include "hbapigt.h" /* Box array definitions */ #define B_TOP 1 #define B_LEFT 2 #define B_BOTTOM 3 #define B_RIGHT 4 #define B_BACKCOLOR 5 #define B_BARCOLOR 6 #define B_DISPLAYNUM 8 #define B_BARCHAR 7 #define B_PERCENT 9 #define B_LEN B_PERCENT #define B_BOXLINES "„Ў„џ„ў„ „Ј„џ„¤„ " static void hb_gaugeUpdate( PHB_ITEM pArray, float fPercent ) int iCenter = ( ( hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) ) / 2 ) + 1; { /* next error !!! */ /* int iCenter = ( ( hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) ) / 2 ) + 1; */ int iCenter = hb_arrayGetNI( pArray, B_LEFT ) - 3 + ( ( hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) ) / 2 ) ; int iRatio = hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) - 1; int iRow; int iCols; int iMax; char szOldColor[ HB_CLRSTR_LEN ]; char szPct[ 5 ]; hb_gtGetColorStr( szOldColor ); hb_gtSetColorStr( hb_arrayGetCPtr( pArray, B_BARCOLOR ) ); fPercent = ( fPercent < 0 ? 0 : ( fPercent > 1 ? 1 : fPercent ) ); iCols = ( int ) ( fPercent * iRatio ); if( hb_arrayGetL( pArray, B_DISPLAYNUM ) ) { hb_snprintf( szPct, sizeof( szPct ), "%3.0f%%", fPercent * 100 ); hb_gtWriteAt( hb_arrayGetNI( pArray, B_TOP ), iCenter + 2, szPct, 4 ); } hb_gtBox( hb_arrayGetNI( pArray, B_TOP ) + 1, hb_arrayGetNI( pArray, B_LEFT ) + 1, hb_arrayGetNI( pArray, B_BOTTOM ) - 1, hb_arrayGetNI( pArray, B_RIGHT ) - 1, " " ); iMax = hb_arrayGetNI( pArray, B_BOTTOM ) - hb_arrayGetNI( pArray, B_TOP ) - 1; for( iRow = 1; iRow <= iMax; iRow++ ) { hb_gtRepChar( hb_arrayGetNI( pArray, B_TOP ) + iRow, hb_arrayGetNI( pArray, B_LEFT ) + 1, * hb_arrayGetCPtr( pArray, B_BARCHAR ), ( USHORT ) iCols ); } hb_gtSetColorStr( szOldColor ); } /* GaugeNew( <nRowTop>, <nColumnTop>, <nRowBottom>, <nColumnBottom>, [<cBackgroundColor>], [<cGaugeColor>], [<cGaugeCharacter>] ) --> aGauge */ HB_FUNC( GAUGENEW ) { PHB_ITEM pReturn = hb_itemArrayNew( B_LEN ); /* Create array */ hb_arraySetNI( pReturn, B_TOP, hb_parni( B_TOP ) ); hb_arraySetNI( pReturn, B_LEFT, hb_parni( B_LEFT ) ); hb_arraySetNI( pReturn, B_BOTTOM, HB_ISNUM( B_BOTTOM ) ? ( hb_parni( B_BOTTOM ) < hb_parni( B_TOP ) + 2 ? hb_parni( B_TOP ) + 2 : hb_parni( B_BOTTOM ) ) : 0 ); hb_arraySetNI( pReturn, B_RIGHT, HB_ISNUM( B_RIGHT ) ? ( hb_parni( B_RIGHT ) < hb_parni( B_LEFT ) + 4 ? hb_parni( B_LEFT ) + 4 : hb_parni( B_RIGHT ) ) : 0 ); hb_arraySetC( pReturn, B_BACKCOLOR, HB_ISCHAR( B_BACKCOLOR ) ? hb_parc( B_BACKCOLOR ) : "W/N" ); hb_arraySetC( pReturn, B_BARCOLOR, HB_ISCHAR( B_BARCOLOR ) ? hb_parc( B_BARCOLOR ) : "W+/N" ); hb_arraySetL( pReturn, B_DISPLAYNUM, !( HB_ISNUM( B_RIGHT ) && HB_ISNUM( B_LEFT ) && ( hb_parni( B_RIGHT ) < hb_parni( B_LEFT ) + 9 ) ) ); hb_arraySetC( pReturn, B_BARCHAR, HB_ISCHAR( B_BARCHAR ) ? hb_parc( B_BARCHAR ) : "\xdb" ); hb_arraySetND( pReturn, B_PERCENT, 0.0 ); hb_itemReturnRelease( pReturn ); } /* GaugeDisplay( aGauge ) --> aGauge */ HB_FUNC( GAUGEDISPLAY ) /* */ { PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY ); if( pArray ) { /* next error !!! */ /* int iCenter = ( ( hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) ) / 2 ) + 1;*/ int iCenter = hb_arrayGetNI( pArray, B_LEFT ) -3 + ( ( hb_arrayGetNI( pArray, B_RIGHT ) - hb_arrayGetNI( pArray, B_LEFT ) ) / 2 ) ; char szOldColor[ HB_CLRSTR_LEN ]; hb_gtGetColorStr( szOldColor ); hb_gtSetColorStr( hb_arrayGetCPtr( pArray, B_BACKCOLOR ) ); hb_gtBox( hb_arrayGetNI( pArray, B_TOP ), hb_arrayGetNI( pArray, B_LEFT ), hb_arrayGetNI( pArray, B_BOTTOM ), hb_arrayGetNI( pArray, B_RIGHT ), " " ); hb_gtBox( hb_arrayGetNI( pArray, B_TOP ), hb_arrayGetNI( pArray, B_LEFT ), hb_arrayGetNI( pArray, B_BOTTOM ), hb_arrayGetNI( pArray, B_RIGHT ), B_BOXLINES ); if( hb_arrayGetL( pArray, B_DISPLAYNUM ) ) hb_gtWriteAt( hb_arrayGetNI( pArray, B_TOP ), iCenter, "[ ]", 8 ); hb_gtSetColorStr( szOldColor ); hb_gaugeUpdate( pArray, ( float ) hb_arrayGetND( pArray, B_PERCENT ) ); hb_itemReturn( pArray ); } } /* GaugeUpdate( aGauge, nPercent ) --> aGauge */ HB_FUNC( GAUGEUPDATE ) { PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY ); if( pArray ) { hb_gaugeUpdate( pArray, ( float ) hb_parnd( 2 ) ); hb_itemReturn( pArray ); } }
Ответов - 0
полная версия страницы