Problema con Tcanvas
Publicado: Mié Oct 11, 2006 12:06 am
Hola,
He intentado usar un Tcanvas en pantalla , y no me hace las cosas como
esperaba, no sé si cometo algún error, pero lo uso todo como en la ayuda.
La siguiente orden: :Rectangle( {
aDimPapel[1],aDimPapel[2],aDimPapel[3],aDimPapel[4] })
Me dibuja un rectángulo relleno de blanco aunque ponga oCanvas:lTransparent
:= .F.
Luego si uso una brocha :
WITH OBJECT oBrush := TBrush():New()
:Create(HS_BDIAGONAL,clRed)
END
y a continuación pongo: :Rectangle( {
aDimPapel[1],aDimPapel[2],aDimPapel[3],aDimPapel[4] }, oBrush )
La ignora completamente, pinta lo mismo que sin indicarle brush.
Lo mismo me ocurre con Fillrect, no me ignora la brocha pero siempre lo pone
transparente y no me lo rellena con ningún color.
Sólo quiero pintar un rectángulo blanco de fondo y esta brocha de
"rallitas".
Usando el API "a pelo", lo consigo hacer sin problemas, pero estando la
Tcanvas, si funcionara esto, sería mucho más simple.
Un Saludo,
Joaquín
He intentado usar un Tcanvas en pantalla , y no me hace las cosas como
esperaba, no sé si cometo algún error, pero lo uso todo como en la ayuda.
La siguiente orden: :Rectangle( {
aDimPapel[1],aDimPapel[2],aDimPapel[3],aDimPapel[4] })
Me dibuja un rectángulo relleno de blanco aunque ponga oCanvas:lTransparent
:= .F.
Luego si uso una brocha :
WITH OBJECT oBrush := TBrush():New()
:Create(HS_BDIAGONAL,clRed)
END
y a continuación pongo: :Rectangle( {
aDimPapel[1],aDimPapel[2],aDimPapel[3],aDimPapel[4] }, oBrush )
La ignora completamente, pinta lo mismo que sin indicarle brush.
Lo mismo me ocurre con Fillrect, no me ignora la brocha pero siempre lo pone
transparente y no me lo rellena con ningún color.
Sólo quiero pintar un rectángulo blanco de fondo y esta brocha de
"rallitas".
Usando el API "a pelo", lo consigo hacer sin problemas, pero estando la
Tcanvas, si funcionara esto, sería mucho más simple.
Un Saludo,
Joaquín