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: Select all Expand view
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.
