FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour hDC y pintado [SOLUCIONADO]
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
hDC y pintado [SOLUCIONADO]
Posted: Thu Nov 24, 2016 09:59 PM
Hola,

Estoy con el TSBrowse intentando pintarle un triangulito en cada celda del grid.
Resulta que si a la funcion que dibuja el polygono no le paso un nuevo hDC con GetDC(::hWnd), no pinta el triangulito.

Por otra parte, parece que también se produce fuga de recursos al pintar los triangulitos, como si recursos de los triangulitos restaurados.

Básicamente el trianguilito lo pinto asi:
Code (fw): Select all Collapse
vsolid:= {;
          {nLeftIni, nBottomIni        },;
          {nLeftIni, nBottomIni- nAlto },;
          {nLeftIni+ nAncho, nBottomIni} ;
         }

hPen1 := CreatePen( 0 , 1, nColorNuevo )
hBrush1  := CreateSolidBrush( nColorNuevo )

hOldBrush := SelectObject( hDC, hBrush1 )
hOldPen := SelectObject( hDC, hPen1 )
polypolygon( hDC, vsolid )

DeleteObject(hBrush1)
DeleteObject(hPen1)



La pregunta es: ¿ por qué si no genero un hDC cada vez que llamo a la funcion de pintado del triangulito, este no se pinta ?

Gracias.
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: hDC y pintado
Posted: Fri Nov 25, 2016 12:05 PM
He conseguido que funcione CASI bien,

Se pintan los triangulos SALVOOOOO cuando paso una ventana / programa por encima del browse: ahi se borran los pu/eteros triangulitos.
Le he echado de horas a esto (7 min), que más barato me hubiera salido contratar a alguien que domine el C.
Llegado este punto no sé si cortarme las venas o abrirme en canal... :-) :-) :-)

Continue the discussion