FiveTech Software tech support forums

... you can specify the brush or pen color. Otto local hPen, oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRGB( 255, 0, 0 ) ) WndBoxClr( ::GetDC(), 1, 1, oCli:nBottom - 2, oCli:nRight - 2, hPen ) DeleteObject( hPen )

... Even removing the themes still doesn't work. These functions work perfectly on the fivewin ComboBox and RadioButtons controls: SetWindowTheme(GetDc(lc_aCtrlsAllApi[lc_iFor,3]), "", "" ) Ctl3DLook(GetDc(lc_aCtrlsAllApi[lc_iFor,3]), .F.) EnumChildWindows( f_oDlgContainer:hWnd,;  ...

... ), ( nX1 := nil, nX2 := nil ) ) } oImg:bMMoved = { | nRow, 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 ...

Gracias por responder, este lo saque de acá: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=36873&p=219931&hilit=GetDc&sid=e323d240ef5f9fcc22118338c11803d3#p220010 y poder controlar también el salto de hoja. También estuve probando: amargins := {120, 2480, 4251, 3500} ...

... na linha destacada: METHOD DispBegin( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ::hDC:= aInfo[3] // hDC de Memoria !!! return { aInfo, if(lCreateDC, hDC, ...

... onde eh o problema: METHOD DispBegin ( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ::hDC:= aInfo[3] // hDC de Memoria !!! return { aInfo, if(lCreateDC, hDC, ...

... DoDraw( hDC, y, x , lPaint ) } 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, ...

... Error description: Error BASE/1004 Class: 'NIL' has no exported method: GETDC Args: [ 1] = U Stack Calls =========== Called from: => GETDC( 0 ) Called from: .\source\classes\TGRAPH.PRG => TGRAPH:DRAWPIE( 2194 ) Called ...

Look
viewtopic.php?f=6&t=36873&p=219931&hilit=GetDc&sid=e323d240ef5f9fcc22118338c11803d3#p220010

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

... next using the nrow position from the slider to get the color FUNCTION GETCOLOR( nRow, nCol, oBmp ) LOCAL hDC := CreateCompatibleDC( oBmp:GetDC() ) LOCAL hBmp := ReadBitmap( 0, "Picker.bmp" ) // the basic gradient bmp LOCAL hOldBmp := SelectObject( hDC, hBmp ) LOCAL nRGBColor ...

... NOBORDER FONT oFont2 ; BACKGROUND cBackImg STRETCH UPDATE :D // OK see image doesn't work :( // TILED 0 // STRETCH 1 // FILL 2 SetBkMode( oBrw1:GetDC(), 2 ) changing BACKGROUND cBackImg UPDATE //STRETCH SetBkMode( oBrw1:GetDC(), 1 ) oBrw1:Refresh() no difference ----------------------- another ...

... := nCol,; FILLCOLOR(oImg, nPickRow, nPickCol, nColorSet ) } // ----------- FUNCTION FILLCOLOR( oImg, nRow, nCol, 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 ...

... 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 := CreateSolidBrush( CLR_WHITE ...

... The problem GETCURSORPOS() works only with selecting 100 % scalefactor other selections must be adjusted with a defined factor : local hDeskTop := GETDC(0) local a := GETCURSORPOS() // Left Top local nColor := GETPIXEL( hDeskTop, a[2] * nMonScale , a[1] * nMonScale ) http://www.service-fivewin.de/IMAGES/scale1.jpg ...