Algo estoy haciendo mal pero me da error :
oBrush := TBrush():Create( ,clNavy )
oCanvas:FillRect( { 150, 250, 300, 500 }, oBrush )
y me da error message not found:oBrush en el objecto canvas, que hago mal?
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
error en fillrect
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
error en fillrect
la idea es hacer arriba en la pagina un recuadro que ocupe el ancho de la
pagina dejando los margenes correspondientes, pero que sea o gris clarito
con el borde negro o el recuadro con el borde negro y que sea transparente.
Me he fijado que si no le paso el objeto obrush me hace perfectamente el
recuadro, pero el borde del mismo es el mismo que el del fondo.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
pagina dejando los margenes correspondientes, pero que sea o gris clarito
con el borde negro o el recuadro con el borde negro y que sea transparente.
Me he fijado que si no le paso el objeto obrush me hace perfectamente el
recuadro, pero el borde del mismo es el mismo que el del fondo.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
error en fillrect
Paco,
> Algo estoy haciendo mal pero me da error :
>
> oBrush := TBrush():Create( ,clNavy )
>
> oCanvas:FillRect( { 150, 250, 300, 500 }, oBrush )
>
> y me da error message not found:oBrush en el objecto canvas, que hago mal?
oBrush lo tienes que guardar tú en una variable local o en algún otro sitio.
La clase TCanvas no tiene ninguna propiedad oBrush.
Por otro lado, lo que sí puedes hacer para no tener que crear un brush es
asignar la propiedad nClrPane del canvas:
oCanvas:nClrPane := clSilver
oCanvas:FillRect( { 150, 250, 300, 500 } )
--
Un saludo,
José F. Giménez
> Algo estoy haciendo mal pero me da error :
>
> oBrush := TBrush():Create( ,clNavy )
>
> oCanvas:FillRect( { 150, 250, 300, 500 }, oBrush )
>
> y me da error message not found:oBrush en el objecto canvas, que hago mal?
oBrush lo tienes que guardar tú en una variable local o en algún otro sitio.
La clase TCanvas no tiene ninguna propiedad oBrush.
Por otro lado, lo que sí puedes hacer para no tener que crear un brush es
asignar la propiedad nClrPane del canvas:
oCanvas:nClrPane := clSilver
oCanvas:FillRect( { 150, 250, 300, 500 } )
--
Un saludo,
José F. Giménez
error en fillrect
Paco,
> la idea es hacer arriba en la pagina un recuadro que ocupe el ancho de la
> pagina dejando los margenes correspondientes, pero que sea o gris clarito
> con el borde negro o el recuadro con el borde negro y que sea
> transparente.
>
> Me he fijado que si no le paso el objeto obrush me hace perfectamente el
> recuadro, pero el borde del mismo es el mismo que el del fondo.
FillRect() dibuja un rectángulo relleno, pero efectívamente no dibuja el
borde, sino sólo el relleno. Para pintar borde y relleno, tienes que usar
Rectangle():
oCanvas:nClrPane := clSilver
oCanvas:Rectangle( { 100, 100, 500, 500 } )
Y te pintará un rectángulo con el borde negro y fino, y relleno de gris.
Si quieres cambiar el color o el ancho del borde, tienes que crear un pen:
Local oPen := TPen():Create( PS_SOLID, 4, clRed )
oCanvas:oPen := oPen
oCanvas:nClrPane := clSilver
oCanvas:Rectangle( { 100, 100, 500, 500 } )
oPen:Destroy()
--
Un saludo,
José F. Giménez
> la idea es hacer arriba en la pagina un recuadro que ocupe el ancho de la
> pagina dejando los margenes correspondientes, pero que sea o gris clarito
> con el borde negro o el recuadro con el borde negro y que sea
> transparente.
>
> Me he fijado que si no le paso el objeto obrush me hace perfectamente el
> recuadro, pero el borde del mismo es el mismo que el del fondo.
FillRect() dibuja un rectángulo relleno, pero efectívamente no dibuja el
borde, sino sólo el relleno. Para pintar borde y relleno, tienes que usar
Rectangle():
oCanvas:nClrPane := clSilver
oCanvas:Rectangle( { 100, 100, 500, 500 } )
Y te pintará un rectángulo con el borde negro y fino, y relleno de gris.
Si quieres cambiar el color o el ancho del borde, tienes que crear un pen:
Local oPen := TPen():Create( PS_SOLID, 4, clRed )
oCanvas:oPen := oPen
oCanvas:nClrPane := clSilver
oCanvas:Rectangle( { 100, 100, 500, 500 } )
oPen:Destroy()
--
Un saludo,
José F. Giménez
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
error en fillrect
Rectangle() funciona pero no esta en la ayuda del canvas que me paso
ignacio, tenerlo en cuenta, no aparece en el indice.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
ignacio, tenerlo en cuenta, no aparece en el indice.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
error en fillrect
Oido cocina
No obstante si estaba en Canvas.txt
Un saludo,
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:423b2bb9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Rectangle() funciona pero no esta en la ayuda del canvas que me paso
> ignacio, tenerlo en cuenta, no aparece en el indice.
>
> Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
>
No obstante si estaba en Canvas.txt
Un saludo,
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:423b2bb9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Rectangle() funciona pero no esta en la ayuda del canvas que me paso
> ignacio, tenerlo en cuenta, no aparece en el indice.
>
> Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
>
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
error en fillrect
ok ahi no me fije ves, voy a verlo ahora mismo a lo mejor veo mas cosas.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -