Página 1 de 1

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 12:06 am
por jmartial
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

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 10:55 am
por jfgimenez
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.
Por favor, envíanos un pequeño ejemplo con el problema.
--
Un saludo,
José F. Giménez
http://www.xailer.com

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 11:34 am
por ignacio
Joaquin,
Problema solucionado. Muchas gracias.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:452c195f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> 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
>
>

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 11:39 am
por ignacio
Joaquin,
No obstante FillRect parece que funcionaba correctamente.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:452cba88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquin,
>
> Problema solucionado. Muchas gracias.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:452c195f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> 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
>>
>>
>
>

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 12:22 pm
por jmartial
Ignacio,
Juraría que fillrect también lo ponía transparente, pero no obstante,
¿puedes enviarme el parche y sigo ? Es que ayer lo tuve que dejar y
precisamente estoy con eso.
Una vez lo use te comento si sale alguna otra cosa.
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:452cbbce$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquin,
>
> No obstante FillRect parece que funcionaba correctamente.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:452cba88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Joaquin,
>>
>> Problema solucionado. Muchas gracias.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>> news:452c195f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> 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
>>>
>>>
>>
>>
>
>

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 12:34 pm
por ignacio
Joaquín,
Aquí lo tienes.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:452cc601$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ignacio,
>
> Juraría que fillrect también lo ponía transparente, pero no obstante,
> ¿puedes enviarme el parche y sigo ? Es que ayer lo tuve que dejar y
> precisamente estoy con eso.
>
> Una vez lo use te comento si sale alguna otra cosa.
>
> Un Saludo,
> Joaquín
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:452cbbce$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Joaquin,
>>
>> No obstante FillRect parece que funcionaba correctamente.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:452cba88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Joaquin,
>>>
>>> Problema solucionado. Muchas gracias.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>> news:452c195f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> 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
>>>>
>>>>
>>>
>>>
>>
>>
>
>


Attached files Canvas.rar (3.7 KB)Â

Problema con Tcanvas

Publicado: Mié Oct 11, 2006 12:59 pm
por ignacio
Joaquín,
Perdona pero el anterior OBJ tenía otro bug. Te mando un nuevo.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:452cc8a1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquín,
>
> Aquí lo tienes.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:452cc601$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ignacio,
>>
>> Juraría que fillrect también lo ponía transparente, pero no obstante,
>> ¿puedes enviarme el parche y sigo ? Es que ayer lo tuve que dejar y
>> precisamente estoy con eso.
>>
>> Una vez lo use te comento si sale alguna otra cosa.
>>
>> Un Saludo,
>> Joaquín
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:452cbbce$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Joaquin,
>>>
>>> No obstante FillRect parece que funcionaba correctamente.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>> news:452cba88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Joaquin,
>>>>
>>>> Problema solucionado. Muchas gracias.
>>>>
>>>> Un saludo,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
>>>> news:452c195f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>> 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
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>


Attached files Canvas.rar (3.7 KB)Â