CLIPPER FWDISPBEGI( PARAMS ) // ( hWnd, hDC ) #endif { HWND hWnd = ( HWND ) _parnl( 1 ); HDC hDC = ( HDC ) _parnl( 2 ); HDC hDC2 ; HBITMAP hBmp, hBmpOld ; RECT rct; GetClientRect( hWnd, &rct ); hDC2 = CreateCompatibleDC( hDC ); hBmp = CreateCompatibleBitmap( hDC, rct.right - rct.left, rct.bottom - rct.top ); hBmpOld = SelectObject( hDC2, hBmp ); BitBlt( hDC2, 0, 0, rct.right, rct.bottom, hDC, 0, 0, SRCCOPY ); _reta( 5 ); _stornl( (LONG) hWnd , -1, 1 ); _stornl( (LONG) hDC , -1, 2 ); _stornl( (LONG) hDC2 , -1, 3 ); _stornl( (LONG) hBmp , -1, 4 ); _stornl( (LONG) hBmpOld, -1, 5 ); return; }
// Interfaz CLIPPER ALIBOFFSET( void ){ WORD i; if (wLib!=0xffff){ _reta(wModules); for (i=0;i<wModules;i++){ _stornl(alOffsets[i],-1,i+1); } return; } _ret(); return; }
CLIPPER aLibSizes( void ) { WORD i, wPrev; if ( wLib != 0xffff ) { _reta( wModules ); i = 0; do { _stornl( alOffsets[i+1] - alOffsets[i],-1,i+1); } while( ++i < wModules ); } }
CLIPPER MGETCREATE( PARAMS ) // ( cClassName, cTitle, nStyle, nLeft, nTop, // nWidth, nHeight, hWndOwner, hMenu, // cExtraData, nExStyle ) --> hWnd { DWORD dwStyle = ( DWORD ) _parnl( 3 ); DWORD dwExStyle = ( DWORD ) _parnl( 11 ); #ifndef __FLAT__ if( ! ghEditDS ) { if( ghEditDS = GlobalAlloc( GMEM_DDESHARE | GMEM_MOVEABLE | GMEM_ZEROINIT, SEGMENT ) ) { lpPtr = GlobalLock( ghEditDS ); LocalInit( HIWORD( (LONG) lpPtr ), 0, ( WORD )( GlobalSize( ghEditDS ) - 16 ) ); UnlockSegment( HIWORD( ( LONG ) lpPtr ) ); } } _stornl( ( LONG ) ( IF( ghEditDS, ghEditDS, 0 ) ), 10 ); // lpPtr #endif _retnl( ( LONG ) CreateWindowEx( dwExStyle, _parc( 1 ), // Class _parc( 2 ), // Title dwStyle, // Style _parni( 4 ), // Left _parni( 5 ), // Top _parni( 6 ), // Width _parni( 7 ), // Height ( HWND ) _parnl( 8 ), // Parent ( HMENU ) _parnl( 9 ), // Menu ( HINSTANCE ) IF( ghEditDS, HIWORD( ( LONG ) lpPtr ), __hInstance ), ( LPVOID ) ( ( PCOUNT() > 9) ? _parc( 10 ): 0 ) ) ); // Address Window-Creation-Data }
CLIPPER HB_UNDOC16() { _retnl( _parnl( 1 ) ); _stornl( 987654321, -1 ); }
CLIPPER HB_LONG4() { _stornl( _parnl( 2 ), 1, 1 ); }