Problema con Tcanvas

jmartial · Mensaje por **jmartial** » 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

Mensaje por **jfgimenez** » Mié Oct 11, 2006 10:55 am

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

YouTube · Mensaje por **ignacio** » Mié Oct 11, 2006 11:34 am

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

YouTube · Mensaje por **ignacio** » Mié Oct 11, 2006 11:39 am

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

jmartial · Mensaje por **jmartial** » Mié Oct 11, 2006 12:22 pm

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

YouTube · Mensaje por **ignacio** » Mié Oct 11, 2006 12:34 pm

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)Â

YouTube · Mensaje por **ignacio** » Mié Oct 11, 2006 12:59 pm

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)Â