FiveTech Software tech support forums

... nCol, hDC | If( nX1 != nil,; ( oImg:Refresh(), SysRefresh(), WndBoxClr( hDC := oImg:GetDC(), nX1, nY1, nX2 := nRow, nY2 := nCol, oPen:hPen ), oImg:ReleaseDC() ),) } Ese código te debe permitir seleccionar el rectángulo de la imagen a salvar. Por favor comprueba si te funciona. Lo próximo es guardar ...

... oSig:bLClicked := { | x, y, z | DoDraw( hDC, y, x, lPaint := .T. ) } ACTIVATE DIALOG oDlg CENTER ; ON INIT ( hDC := GetDC( oSig:hWnd ) ) ; VALID ( ReleaseDC( oSig:hWnd, hDC ), .T. ) return nil static function DoDraw( hDc, x, y, lPaint ) if ! lPaint MoveTo( hDC, x, y ) else LineTo( hDc, x, y ) endIf ...

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

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

... nColor ) LOCAL hDC := oImg:getDc() FloodFill( hDC, nRow, nCol, nil, nColor ) oImg:SaveToBmp( "A.bmp" ) // save the last result :!: oImg:ReleaseDC() RETURN NIL The original test-image http://www.service-fivewin.de/IMAGES/A.bmp The test http://www.service-fivewin.de/IMAGES/A.jpg ...

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

... (wRow - 1) ) + 1 ; rct.bottom = rct.top + wHeight ; rct.left += wCol ; rct.right = rct.left + wWidth ; if( hFont ) SelectObject( hDC, hOldFont ) ; ReleaseDC( hWnd, hDC ) ; _reta( 4 ) ; _storni( rct.top, -1, 1 ) ; _storni( rct.left, -1, 2 ) ; _storni( rct.bottom, -1, 3 ) ; _storni( ( wMaxRight <= ...

... nTop, nWidth, nHight oPath:AddRoundRect( 550, 300, 200, 200, 50 ) oGraphics:FillPath( oBrush2, oPath) oGraphics:Destroy() oPen:Destroy() oWnd:releasedc() RETURN NIL regards Uwe :D

... nTop, nWidth, nHight oPath:AddRoundRect( 550, 300, 200, 200, 50 ) oGraphics:FillPath( oBrush, oPath) oGraphics:Destroy() oPen:Destroy() oWnd:releasedc() RETURN NIL regards Uwe :?:

... hBmp, 3 ) PalBmpDraw( oApp:oGrid:hDC, 0, 0, hBlur ) DEFINE DIALOG oDlg DEFINE DIALOG oDlg DeleteObject( hBmp ) DeleteObject( hBlur ) oApp:oGrid:ReleaseDC()

... 0, 0 , 10 ) local oPath:= Path():new() oPath:AddRoundRect( 300, 250, 150, 100 , 20 ) oGraphics:DrawPath( oPen2, oPath ) oGraphics:destroy() oWnd:releasedc() Return nil // -------------- - New Function: FW_CreateBitmap( { nWidth, nHeight, aShapes }. [lGDIP] ) --> hBitmap (if lGDIP is .F. ) ...

... hDC, nLeft, nTop, nWidth, nHeight, hDeskTop, a[2]-(nWidth/(nZoom*2)), a[1]-(nHeight/(2*nZoom)), nWidth/nZoom, nHeight/nZoom, 13369376 ) oWnd:ReleaseDC() ReleaseDC( 0, hDeskTop ) RETURN nil result of sample < Zoomer.prg > like You can see, the cursorposition is different http://www.pflegeplus.com/IMAGES/Zoomer2.jpg ...

... + CRLF + ; "Row : " + LTRIM(STR(nRow)) + CRLF + ; "Col : " + LTRIM(STR(nCol)), "Position") } don't forget ReleaseDC(hDC) after oDlg:End() regards Uwe :D

... && aqui lo mando a un archivo file.bmp de 10x10 tam hDib := DibFromBitmap(oCode:hCodeBar ) DibWrite( "file.bmp" , hDib ) * oWndP:ReleaseDC() * oWndP:END() return nil

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)...