コード例 #1
0
ファイル: maxrow.c プロジェクト: xharbour/core
int hb_MaxCol( BOOL bVisible )
{
   /* See the note about MaxRow(.t.) above */
   if( bVisible )
   {
      PHB_GT      pGT = hb_gt_Base();
      HB_GT_INFO  gtInfo;

      gtInfo.pNewVal = gtInfo.pResult = NULL;

      assert( pGT );

      HB_GTSELF_INFO( pGT, HB_GTI_VIEWPORTWIDTH, &gtInfo );

      if( gtInfo.pResult )
      {
         int iMaxCol = hb_itemGetNI( gtInfo.pResult );

         hb_itemRelease( gtInfo.pResult );
         return iMaxCol;
      }
      else
      {
         return hb_gtMaxCol();
      }
   }
   else
   {
      return hb_gtMaxCol();
   }
}
コード例 #2
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
int  hb_inkey( BOOL fWait, double dSeconds, int iEventMask )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkey(%d, %f, %d)", ( int ) fWait, dSeconds, iEventMask ) );

   pGT = hb_gt_Base();
   return pGT ? HB_GTSELF_INKEYGET( pGT, fWait, dSeconds, iEventMask ) : 0;
}
コード例 #3
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
int  hb_inkeyNext( int iEventMask )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyNext(%d)", iEventMask ) );

   pGT = hb_gt_Base();
   return pGT ? HB_GTSELF_INKEYNEXT( pGT, iEventMask ) : 0;
}
コード例 #4
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
int  hb_inkeySetLast( int iKey )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeySetLast(%d)", iKey ) );

   pGT = hb_gt_Base();
   return pGT ? HB_GTSELF_INKEYSETLAST( pGT, iKey ) : 0;
}
コード例 #5
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
void hb_inkeyPoll( void )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyPoll()" ) );

   pGT = hb_gt_Base();
   if( pGT )
      HB_GTSELF_INKEYPOLL( pGT );
}
コード例 #6
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
void hb_inkeySetText( const char * szText, HB_SIZE ulLen )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeySetText(%s,%lu)", szText, ulLen ) );

   pGT = hb_gt_Base();
   if( pGT )
      HB_GTSELF_INKEYSETTEXT( pGT, szText, ulLen );
}
コード例 #7
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
void hb_inkeyReset( void )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyReset()" ) );

   pGT = hb_gt_Base();
   if( pGT )
      HB_GTSELF_INKEYRESET( pGT );
}
コード例 #8
0
ファイル: inkeyapi.c プロジェクト: xharbour/core
void hb_inkeyPut( int iKey )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyPut(%d)", iKey ) );

   pGT = hb_gt_Base();
   if( pGT )
      HB_GTSELF_INKEYPUT( pGT, iKey );
}
コード例 #9
0
ファイル: inkeyapi.c プロジェクト: Andygon/core
void hb_inkeySetText( const char * szText, HB_SIZE nLen )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeySetText(%s,%" HB_PFS "u)", szText, nLen ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_INKEYSETTEXT( pGT, szText, nLen );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #10
0
ファイル: inkeyapi.c プロジェクト: Andygon/core
void hb_inkeyIns( int iKey )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_inkeyIns(%d)", iKey ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_INKEYINS( pGT, iKey );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #11
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseSetCursor( HB_BOOL fVisible )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseSetCursor(%d)", ( int ) fVisible ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSESETCURSOR( pGT, fVisible );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #12
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseSetDoubleClickSpeed( int iSpeed )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseSetDoubleClickSpeed(%d)", iSpeed ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSESETDOUBLECLICKSPEED( pGT, iSpeed );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #13
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseSaveState( void * pBuffer )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseSaveState(%p)", pBuffer ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSESAVESTATE( pGT, pBuffer );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #14
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseSetBounds( int iTop, int iLeft, int iBottom, int iRight )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseSetBounds(%d, %d, %d, %d)", iTop, iLeft, iBottom, iRight ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSESETBOUNDS( pGT, iTop, iLeft, iBottom, iRight );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #15
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseRestoreState( const void * pBuffer )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseRestoreState(%p)", pBuffer ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSERESTORESTATE( pGT, pBuffer );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #16
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseGetBounds( int * piTop, int * piLeft, int * piBottom, int * piRight )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseGetBounds(%p, %p, %p, %p)", piTop, piLeft, piBottom, piRight ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSEGETBOUNDS( pGT, piTop, piLeft, piBottom, piRight );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #17
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseSetPos( int iRow, int iCol )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseSetPos(%d, %d)", iRow, iCol ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSESETPOS( pGT, iRow, iCol );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #18
0
ファイル: mouseapi.c プロジェクト: Petewg/V-harbour-core
void hb_mouseGetPos( int * piRow, int * piCol )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_mouseGetPos(%p, %p)", piRow, piCol ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_MOUSEGETPOS( pGT, piRow, piCol );
      hb_gt_BaseFree( pGT );
   }
}
コード例 #19
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtSetColorStr( const char * szColorString )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtSetColorStr(%s)", szColorString ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_SETCOLORSTR( pGT, szColorString );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #20
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
int hb_gtReadKey( int iEventMask )
{
   int iKey = 0;
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtReadKey(%d)", iEventMask ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      iKey = HB_GTSELF_READKEY( pGT, iEventMask );
      hb_gt_BaseFree( pGT );
   }
   return iKey;
}
コード例 #21
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtColorSelect( int iColorIndex )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtColorSelect(%d)", iColorIndex ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_COLORSELECT( pGT, iColorIndex );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #22
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
const char * hb_gtVersion( int iType )
{
   const char * szVersion = "";
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtVersion(%d)", iType ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      szVersion = HB_GTSELF_VERSION( pGT, iType );
      hb_gt_BaseFree( pGT );
   }
   return szVersion;
}
コード例 #23
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtTone( double dFrequency, double dDuration )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtTone(%lf, %lf)", dFrequency, dDuration ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_TONE( pGT, dFrequency, dDuration );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #24
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtSetBlink( HB_BOOL fBlink )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtSetBlink(%d)", ( int ) fBlink ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_SETBLINK( pGT, fBlink );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #25
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtSave( int iTop, int iLeft, int iBottom, int iRight, void * pScrBuff )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtSave(%d, %d, %d, %d, %p)", iTop, iLeft, iBottom, iRight, pScrBuff ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_SAVE( pGT, iTop, iLeft, iBottom, iRight, pScrBuff );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #26
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_BOOL hb_gtIsColor( void )
{
   HB_BOOL fColor = HB_TRUE;
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtIsColor()" ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      fColor = HB_GTSELF_ISCOLOR( pGT );
      hb_gt_BaseFree( pGT );
   }
   return fColor;
}
コード例 #27
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
int hb_gtDispCount( void )
{
   int    iCount = 0;
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtDispCount()" ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      iCount = HB_GTSELF_DISPCOUNT( pGT );
      hb_gt_BaseFree( pGT );
   }
   return iCount;
}
コード例 #28
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtDispBegin( void )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtDispBegin()" ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_DISPBEGIN( pGT );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}
コード例 #29
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
int hb_gtColorToN( const char * szColorString )
{
   int iColor = 0;
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtColorToN(%s)", szColorString ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      iColor = HB_GTSELF_COLORNUM( pGT, szColorString );
      hb_gt_BaseFree( pGT );
   }
   return iColor;
}
コード例 #30
0
ファイル: gtapi.c プロジェクト: Petewg/V-harbour-core
HB_ERRCODE hb_gtSetSnowFlag( HB_BOOL fNoSnow )
{
   PHB_GT pGT;

   HB_TRACE( HB_TR_DEBUG, ( "hb_gtSetSnowFlag(%d)", ( int ) fNoSnow ) );

   pGT = hb_gt_Base();
   if( pGT )
   {
      HB_GTSELF_SETSNOWFLAG( pGT, fNoSnow );
      hb_gt_BaseFree( pGT );
      return HB_SUCCESS;
   }
   return HB_FAILURE;
}