FiveTech Software tech support forums

...   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()       DeleteDC( oDevice:hDC)      oDevice := NIL                        ...

... nCol, hBmp ) Finally you save it and clean: DibWrite( cFileName, DibFromBitmap( hBitmap ) ) SelectObject( hDCMem, hPrev ) DeleteObject( hBitmap ) DeleteDC( hDCMem ) oDlg:ReleaseDC()

... bmp LOCAL hOldBmp := SelectObject( hDC, hBmp ) LOCAL nRGBColor := GetPixel( hDC, nCol, nRow ) SelectObject( hDC, hOldBmp ) DeleteObject( hBmp ) DeleteDC( hDC ) oBmp:ReleaseDC() RETURN nRGBColor best regards Uwe :?:

... hDCMem, ::cCode, { ::nHeight - 15, 0, ::nHeight, ::nWidth }, 1 ) SelectObject( hDCMem, hBmpOld ) ReleaseDC( GetDesktopWindow(), hDCDesk ) DeleteDC( hDCMem ) DeleteObject( hBrush ) DeleteObject( hBack ) return NIL //--------------------------------------// METHOD SetCode( cCode ) CLASS ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Please try it using this function: You have to provide it a hDC and later on call DeleteDC() HB_FUNC( ABPAINT ){   #ifdef _WIN64     HDC hDC = ( HDC ) hb_parnll( 1 );   #else     HDC hDC ...

I changed the folder I was using to start hbmk2 to where the source code sits, and now am getting undefined instead of duplicates This is due, I guess, to not pulling in the correct library(ies). I added trace to see what was going on (thanks for that tip). Does this and the console listing below he...

... //SCRCOPY oImg:=GdiBmp():New() oImg:hBmp:=Gdip_FromHBitmap(hBmp,, HasAlpha(hBmp)) oImg:Save("test.bmp") SelectObject(hDc, hOldBmp) DeleteDC(hDc) DeleteObject(hOldBmp) ReleaseDC(0, hDeskTop) It works and I get a screenshot of a window to a bitmap file, but only in black and white. ...

... HBITMAP ) SelectObject( hDCMem, hBmp ); BitBlt( hDCMem, 0, 0, rc->right, rc->bottom, hDC, 0, 0, SRCCOPY ); SelectObject( hDCMem, hBmpOld ); DeleteDC( hDCMem );

... GetSystemMetrics(SM_CYICON)); HBITMAP hOldBitmap = (HBITMAP)SelectObject(hDC, hBitmap); DrawIcon(hDC, 0, 0, hIcon); SelectObject(hDC, hOldBitmap); DeleteDC(hDC); hb_retnl( ( LONG ) hBitmap ); } then I thinked ico := nImage hBmp := BmpFromIcon( ico ) now How I can make to show hBmp into Image control

... PALBMPDRAW( hMemDC, 0, 0, hBitmap, hPalette, nWidth, nHeight ) DO_LINES( hMemDC, hPen, nPensize, nPenColor ) SELECTOBJECT( hMemDC, hBmpOld ) DELETEDC( hMemDC ) oImg:hBitmap = hMemBmp PALBMPFREE( hBitmap, hPalette ) PALBMPNEW( oImg:hWnd, oImg:hBitmap, oImg:hPalette ) oImg:Refresh() RETURN ...

... provve->posx nCol := provve->posy oCartina:bPainted = { |hDC| FLOODFILL( hDC,nRow,nCol,12632256) } Else Endif oDlg:UPDATE() oDlg:refresh() DeleteDC( hDC ) oDlg:ReleaseDC() Return nil But it put the color to everything on bitmap and not run ok perhaps the function FLOODFILL was changed ?

... DeleteObject(SelectObject(hdcMem, bmMemOld)); DeleteObject(SelectObject(hdcBack, bmBackOld)); DeleteObject(SelectObject(hdcObject, bmObjectOld)); DeleteDC(hdcMem); DeleteDC(hdcBack); DeleteDC(hdcObject); DeleteDC(hdcTemp); } //---------------------------------------------------------------------------// ...

... y elimina el handle del bitmap que estas creando hBmp SelectObject( hDC, hOldBmp ) DeleteObject( hBmp ) 2) eliminar el hDC que ya no usas con DeleteDC( hDC ) ahora prueba esta secuencia DrawBitmap( hDC, oCode:hCodeBar, 0, 0 )SelectObject( hDC, hOldBmp )hDib := DibFromBitmap( ...

... DeleteObject(SelectObject(hdcMem, bmMemOld)); DeleteObject(SelectObject(hdcBack, bmBackOld)); DeleteObject(SelectObject(hdcObject, bmObjectOld)); DeleteDC(hdcMem); DeleteDC(hdcBack); DeleteDC(hdcObject); DeleteDC(hdcTemp); } //---------------------------------------------------------------------------// ...