FiveTech Software tech support forums

... cnType ) ::SetCode( cCode ) ::SetFlags( nFlags ) return Self //--------------------------------------// METHOD Build() CLASS TCodeBars local hBmpOld local hDCDesk := GetDC( GetDesktopWindow() ) local hDCMem := CreateCompatibleDC( hDCDesk ) local hBrush := CreateSolidBrush( 0 ) local hBack ...

... hDCMem = CreateCompatibleDC( hDC ); HBITMAP hBmp = CreateCompatibleBitmap( hDC, rc->right - rc->left, rc->bottom - rc->top ); HBITMAP hBmpOld = ( HBITMAP ) SelectObject( hDCMem, hBmp ); BitBlt( hDCMem, 0, 0, rc->right, rc->bottom, hDC, 0, 0, SRCCOPY ); SelectObject( hDCMem, hBmpOld ...

... LOCAL nHeight := oImg:nHeight() LOCAL hMemDC := CREATECOMPATIBLEDC( hDC ) LOCAL hMemBmp := CREATECOMPATIBLEBITMAP( hDC, nWidth, nHeight ) LOCAL hBmpOld := SELECTOBJECT( hMemDC, hMemBmp ) LOCAL hBitmap := oImg:hBitmap LOCAL hPalette := oImg:hPalette PALBMPDRAW( hMemDC, 0, 0, hBitmap, hPalette, ...

... HBITMAP                WINDOW.PRG     1511  1517  2402  2970 HBMP                    WINDOW.PRG     2013  2014  2018  2954  2963  2964  2970  2971 HBMPOLD                WINDOW.PRG     2954  2964  2973 HBRUSH                  WINDOW.PRG      948   951  2946  2971 HCTLFOCUS              WINDOW.PRG ...

Antonio, should not the hBmp deleted unstead hBmpOld ??? Function from tRibbon: function GradientBmp( oWnd, nWidth, nHeight, aColors )   local hDC, hBmp, hBmpOld   local aRect := GetClientRect( oWnd:hWnd )   DEFAULT nHeight := aRect[ ...

... }, { nMove, nColor2, nColor1 } } hDC = CreateCompatibleDC( oWnd:GetDC() ) hBmp = CreateCompatibleBitMap( oWnd:hDC, oWnd:nWidth, oWnd:nHeight ) hBmpOld = SelectObject( hDC, hBmp ) GradientFill( hDC, 0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, lDirect ) // .T. = Vertical DeleteObject( oWnd:oBrush:hBrush ...

... ; WORD wCol ; BITMAP bm; LONG lBkColorBMP, lBkColor = GetBkColor( hDC ), lBkColorOld; BOOL bFlag = FALSE ; RECT rRect ; HDC hDC2 ; HBITMAP hBmp2, hBmpOld ; if ( (nStyle == 0 || nStyle == 3 || nStyle == 5 || nStyle == 6 || nStyle == 9 || nStyle == 10) && bSelect ) { rct->bottom-- ; bFlag ...

... for transparent painting like ? hDC = CreateCompatibleDC( oDlg:GetDC() ) hBmp = CreateCompatibleBitMap( oDlg:hDC, 378, 506 ) // Width, Height hBmpOld = SelectObject( hDC, hBmp ) GradientFill( hDC, 0, 0, 506, 378, aGrad, .T. ) // Height, Width DeleteObject( oDlg:oBrush:hBrush ) oBrush := TBrush():New( ...

... 16443068 } } hDC = CreateCompatibleDC( oToolbar:GetDC() ) hBmp = CreateCompatibleBitMap( oToolbar:hDC, oToolbar:nWidth, oToolbar:nHeight ) hBmpOld = SelectObject( hDC, hBmp ) GradientFill( hDC, 0, 0, oToolbar:nHeight, oToolbar:nWidth, aGrad, .T. ) oTBrush := TBrush():New( ,,,, hBmp ) oTBrush:Cargo ...

... 10899511, 16443068 }, { 0.5, 16443068, 10899511 } } hDC = CreateCompatibleDC( oDlg1:GetDC() ) hBmp = CreateCompatibleBitMap( oDlg1:hDC, 200, 600 ) hBmpOld = SelectObject( hDC, hBmp ) GradientFill( hDC, 0, 0, 600, 200, aGrad, .T. ) DeleteObject( oDlg1:oBrush:hBrush ) oBrush := TBrush():New( ,,,, ...

On some places a "hBmpOld" is produced, but not released!?

... Gradient ( vertical ) : http://www.pflegeplus.com/pictures/SFBrush3.jpg hBmp = CreateCompatibleBitMap( oDlg:hDC, PixelX, PixelY ) hBmpOld = SelectObject( hDC, hBmp ) // - 30 => - Tabheight-adjustment needed !!! GradientFill( hDC, 0, 0, PixelY - 30, PixelX, aGrad, lDirect ) DeleteObject( ...

... ACTION oDlg:end() of oDlg pixel SIZE 26,26 obmp:lTRANSPARENT = .T. RETURN (NIL) STATIC FUNCTION GradBrush( oDlgkk,color1,color2) local hDC, hBmp, hBmpOld,obrush hDC = CreateCompatibleDC( oDlgkK:GetDC() ) hBmp = CreateCompatibleBitMap( oDlgkK:hDC, oDlgkK:nWidth, oDlgkK:nHeight ) hBmpOld = SelectObject( ...

... ON INIT GradBrush( oDlg2,nRGB( 255, 25, 25 ),nRGB(255, 69, 0)) return nil STATIC FUNCTION GradBrush( oDlgkk,color1,color2) local hDC, hBmp, hBmpOld,obrush hDC = CreateCompatibleDC( oDlgkK:GetDC() ) hBmp = CreateCompatibleBitMap( oDlgkK:hDC, oDlgkK:nWidth, oDlgkK:nHeight ) hBmpOld = SelectObject( ...

... ; WORD wCol ; BITMAP bm; LONG lBkColorBMP, lBkColor = GetBkColor( hDC ), lBkColorOld; BOOL bFlag = FALSE ; RECT rRect ; HDC hDC2 ; HBITMAP hBmp2, hBmpOld ; if ( (nStyle == 0 || nStyle == 3 || nStyle == 5 || nStyle == 6 || nStyle == 9 || nStyle == 10) && bSelect ) { rct->bottom-- ; bFlag ...