FiveTech Software tech support forums

#define SRCCOPY 13369376 local hDC := oDlg:GetDC() local hDCMem := CreateComtatibleDC( hDC ) local hBitmap := CreateCompatibleBitmap( hDCMem, nWidth, nHeigth ) local hPrev := SelectObject( hDCMem, hBitmap ) local hBmp, hDib now you paint your bitmaps ...

... Self //--------------------------------------// METHOD Build() CLASS TCodeBars local hBmpOld local hDCDesk := GetDC( GetDesktopWindow() ) local hDCMem := CreateCompatibleDC( hDCDesk ) local hBrush := CreateSolidBrush( 0 ) local hBack := CreateSolidBrush( CLR_WHITE ) ::hCodeBar = CreateCompatibleBitMap( ...

... + left if x>-::aMarkers[ix,3] .and. x<w+::aMarkers[ix,3] .and. ; y>-::aMarkers[ix,3] .and. Y<h+::aMarkers[ix,3] Eval(::aMarkers[ix,4],hDCMem,x,y ) endif next

... with this little change in ribbon.prg in Method PaintFld() the last artifact goes away: We change this: case nType == 1 ...          GradientFill( hDCMem, nRow, nCol + 1 , nRow + ::nHeightFld - 1, nCol +  ::aSizes[ nPrompt ], aGradFld )   into this:          GradientFill( hDCMem, nRow, nCol, nRow ...

Exactly we must use a logic new data l2016 and insert before my lines hBrush2 = CreateSolidBrush( ::nClrPaneRB ) FillRect( hDCMem, aRect, hBrush2 ) IF ::l2016 GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,; { { 1, ::nClrPaneRB,CLR_WHITE } }, .T. ...

... line perhaps can change ( for 2016) the type of Brush from blue to white something as hBrush2 = CreateSolidBrush( ::nClrPaneRB ) //*FillRect( hDCMem, aRect, hBrush2 ) GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,; { { 1, CLR_WHITE, CLR_WHITE } }, .T. ...

... line perhaps can change ( for 2016) the type of Brush from blue to white something as hBrush2 = CreateSolidBrush( ::nClrPaneRB ) //*FillRect( hDCMem, aRect, hBrush2 ) GradientFill( hDCMem, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,; { { 1, CLR_WHITE, CLR_WHITE } }, .T. ...

Silvio, I have tried this: hBrush2 = CreateSolidBrush( ::nClrPaneRB ) aRect[ 3 ] -= 3 FillRect( hDCMem, aRect, hBrush2 ) aRect[ 3 ] += 3 but then the color of those bottom lines is black > because ::nClrPaneRB give the color to all ribbonbar but the line is down the ...

Antonio, I think we can change these lines ( METHOD Paint() CLASS TRibbonBar ) hBrush2 = CreateSolidBrush( ::nClrPaneRB ) FillRect( hDCMem, aRect, hBrush2 ) because ::nClrPaneRB give the color to all ribbonbar but the line is down the group must be the same color of the back of the tab Or ...

... antes había buscado por donde había que cortar seleccionando un hDC y antes de llamar a tu función tenía que restaurarlo poniendo SelectObject( hDCMem, hOldBmp ). Pero bueno, que tu función corta perfectamente un bitmap. Muchas gracias, Joaquín Martínez

Antes del BitBlt() prueba a hacer:

SetBkColor( hDCMem, GetPixel( hBitmap, 0, 0 ) );

Joaquín, Prueba asi, teniendo seleccionado el bitmap original en hDC: HDC hDCMem = CreateCompatibleDC( hDC ); HBITMAP hBmp = CreateCompatibleBitmap( hDC, rc->right - rc->left, rc->bottom - rc->top ); HBITMAP hBmpOld = ( HBITMAP ) SelectObject( hDCMem, ...

thanks can I make a big bmp ? change this line ? HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON)); Itried to make HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, 128, 128); the bitmap is large but the icon is ...

... we have the icon ... of a file then I saw there is a function Made from Daniel HB_FUNC( BMPFROMICON ) { HICON hIcon = ( HICON ) hb_parnl( 1 ); HDC HDCMem = GetDC( GetDesktopWindow() ); HDC hDC = CreateCompatibleDC( HDCMem ); HBITMAP hBitmap = CreateCompatibleBitmap(HDCMem, GetSystemMetrics(SM_CXICON), ...

... la vista, fuera de pantalla. Las partes no visibles salen en negro en el bitmap compatible. Lo unico que se le acerca es SendMessage(hWnd,WM_PRINT,hDcMem,PRF....) pues captura las partes invisibes, pero sólo del dialogo, no de sus controles. Voy a seguir por ese camino y si no lo consigo tendré ...