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

2006-06-20 08:55 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

Browse Source 
* harbour/source/rtl/gtwin/gtwin.c
     + Copied Windows Clipboard support from the GTWVT driver. So now
       it is available in Win32 console apps too. (Thanks Przemek for
       the functions and instructions).
       Set/Get the Clipboard using: hb_GTInfo( GTI_CLIPBOARDDATA[, <newvalue>] )
This commit is contained in:
Viktor Szakats
2006-06-20 06:58:41 +00:00
parent 1b65fc4de5
commit 8414073d1c
2 changed files with 88 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
after updating local HVM functions.
2006-06-20 11:33 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)
* harbour/source/rtl/gtwin/gtwin.c
! Possible (double) fix to properly handle embedded zero bytes
2006-06-20 09:45 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)
* harbour/source/rtl/gtwin/gtwin.c
* harbour/source/rtl/gtwxt/gtwxt.c
+ Copied Windows Clipboard support from the GTWVT driver. So now

81
harbour/source/rtl/gtwin/gtwin.c
View File

@@ -1753,6 +1753,64 @@ static int kbdShiftsState( void )
return kbdShifts;
}
static void hb_gt_win_SetClipboard( char * szClipData, ULONG ulLen )
{
LPTSTR lptstrCopy;
HGLOBAL hglbCopy;
UINT uFormat = OEM_CHARSET;
if ( OpenClipboard( NULL ) )
{
EmptyClipboard();
/* Allocate a global memory object for the text. */
hglbCopy = GlobalAlloc( GMEM_MOVEABLE, ulLen + 1 );
if ( hglbCopy )
{
/* Lock the handle and copy the text to the buffer. */
lptstrCopy = ( LPSTR ) GlobalLock( hglbCopy );
memcpy( lptstrCopy, szClipData, ulLen );
lptstrCopy[ ulLen ] = 0;
GlobalUnlock( hglbCopy );
/* Place the handle on the clipboard. */
SetClipboardData( uFormat, hglbCopy );
}
CloseClipboard();
}
}
static BOOL hb_gt_win_GetClipboard( char ** pszClipData, ULONG *pulLen )
{
HGLOBAL hglb;
LPTSTR lptstr;
UINT uFormat = OEM_CHARSET;
*pulLen = 0;
*pszClipData = NULL;
if ( IsClipboardFormatAvailable( uFormat ) && OpenClipboard( NULL ) )
{
hglb = GetClipboardData( uFormat );
if ( hglb )
{
lptstr = ( LPSTR ) GlobalLock( hglb );
if ( lptstr != NULL )
{
*pulLen = strlen( lptstr );
if( *pulLen )
{
*pszClipData = ( char * ) hb_xgrab( *pulLen + 1 );
memcpy( *pszClipData, lptstr, *pulLen + 1 );
}
GlobalUnlock( hglb );
}
}
CloseClipboard();
}
return *pulLen != 0;
}
/* *********************************************************************** */
static BOOL hb_gt_win_Info( int iType, PHB_GT_INFO pInfo )
@@ -1810,6 +1868,29 @@ static BOOL hb_gt_win_Info( int iType, PHB_GT_INFO pInfo )
s_bAltKeyHandling = hb_itemGetL( pInfo->pNewVal );
break;
case GTI_CLIPBOARDDATA:
if( hb_itemType( pInfo->pNewVal ) & HB_IT_STRING )
{
hb_gt_win_SetClipboard( hb_itemGetCPtr( pInfo->pNewVal ),
hb_itemGetCLen( pInfo->pNewVal ) );
}
else
{
char * szClipboardData;
ULONG ulLen;
if( hb_gt_win_GetClipboard( &szClipboardData, &ulLen ) )
{
pInfo->pResult = hb_itemPutCPtr( pInfo->pResult,
szClipboardData,
strlen( szClipboardData ) );
}
else
{
pInfo->pResult = hb_itemPutC( pInfo->pResult, "" );
}
}
break;
default:
return HB_GTSUPER_INFO( iType, pInfo );
}