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.

Cambiar el Pen de un Canvas

Foro de Xailer profesional en español
Responder
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

Cambiar el Pen de un Canvas

Mensaje por Rene Flores »

Me he entusiamado con el tema de las graficas, y estoy en la labor de
hacer algunos experimentos.
Alguien podria decirme como cambio el pen de un canvas, he creado
objetos PEN con colores distintos, pero siempre me pinta con un pen negro.
WITH OBJECT oCanvas
:oPen := TPen():New()
:oPen:nColor := RGB(255,0,0)
:oPen:Create()
:MoveTo(10,10)
:LineTo(100,100)
END
Arriba
_support_
Mensajes: 146
Registrado: Lun Abr 10, 2006 1:29 pm

Cambiar el Pen de un Canvas

Mensaje por _support_ »

Rene,
Echale un vistazo al método SelectPen(). Posiblemente tu problema es que
estes destruyendo los pens.
Un saludo,
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=44cafcef@news.xailer.com...]44cafcef@news.xailer.com...[/email]
> Me he entusiamado con el tema de las graficas, y estoy en la labor de
> hacer algunos experimentos.
>
> Alguien podria decirme como cambio el pen de un canvas, he creado
> objetos PEN con colores distintos, pero siempre me pinta con un pen negro.
>
> WITH OBJECT oCanvas
> :oPen := TPen():New()
> :oPen:nColor := RGB(255,0,0)
> :oPen:Create()
> :MoveTo(10,10)
> :LineTo(100,100)
> END
Arriba
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

Cambiar el Pen de un Canvas

Mensaje por Rene Flores »

Ignacio:
Solucionado, aparentemente el problema estaba en la forma enque estaba
creando el pen, se tiene que crear asi:
oPen := TPen():New(param, param, param)
y no
WITH OBJECT oPen := TPen():New()
:Propiedad := valor
:propiedad := valor
END
Si sehace de esta segunda forma el pen no se crea.
Saludos
Rene Flores
http://www.ciber-tec.com
Ortiz de Zúñiga escribió:
> Rene,
>
> Echale un vistazo al método SelectPen(). Posiblemente tu problema es que
> estes destruyendo los pens.
>
> Un saludo,
>
> "Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
> news:[email=44cafcef@news.xailer.com...]44cafcef@news.xailer.com...[/email]
>> Me he entusiamado con el tema de las graficas, y estoy en la labor de
>> hacer algunos experimentos.
>>
>> Alguien podria decirme como cambio el pen de un canvas, he creado
>> objetos PEN con colores distintos, pero siempre me pinta con un pen negro.
>>
>> WITH OBJECT oCanvas
>> :oPen := TPen():New()
>> :oPen:nColor := RGB(255,0,0)
>> :oPen:Create()
>> :MoveTo(10,10)
>> :LineTo(100,100)
>> END
>
>
Arriba
_support_
Mensajes: 146
Registrado: Lun Abr 10, 2006 1:29 pm

Cambiar el Pen de un Canvas

Mensaje por _support_ »

Rene,
Si es un error nuestro te ruego que te expliques un poco mejor para poder
arreglarlo.
Un saludo,
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
news:[email=44cc2b5b@news.xailer.com...]44cc2b5b@news.xailer.com...[/email]
> Ignacio:
>
> Solucionado, aparentemente el problema estaba en la forma enque estaba
> creando el pen, se tiene que crear asi:
>
> oPen := TPen():New(param, param, param)
>
> y no
>
> WITH OBJECT oPen := TPen():New()
> :Propiedad := valor
> :propiedad := valor
> END
>
> Si sehace de esta segunda forma el pen no se crea.
>
> Saludos
>
> Rene Flores
> http://www.ciber-tec.com
>
> Ortiz de Zúñiga escribió:
>> Rene,
>>
>> Echale un vistazo al método SelectPen(). Posiblemente tu problema es que
>> estes destruyendo los pens.
>>
>> Un saludo,
>>
>> "Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el
>> mensaje
>> news:[email=44cafcef@news.xailer.com...]44cafcef@news.xailer.com...[/email]
>>> Me he entusiamado con el tema de las graficas, y estoy en la labor de
>>> hacer algunos experimentos.
>>>
>>> Alguien podria decirme como cambio el pen de un canvas, he creado
>>> objetos PEN con colores distintos, pero siempre me pinta con un pen
>>> negro.
>>>
>>> WITH OBJECT oCanvas
>>> :oPen := TPen():New()
>>> :oPen:nColor := RGB(255,0,0)
>>> :oPen:Create()
>>> :MoveTo(10,10)
>>> :LineTo(100,100)
>>> END
>>
>>
Arriba
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

Cambiar el Pen de un Canvas

Mensaje por Rene Flores »

Ignacio:
Revisando el ejemplo PrinterInfo vi que para definir un Pen haces:
oPen := TPen():New( PS_SOLID, 1, nColor )
y luego :
Printer:Canvas:oPen := oPen
Pero revisando la documentación encontré esto en el metodo SelectPen:
WITH OBJECT oPen := TPen():New()
:nColor := CLR_BLACK
:oDevice := Printer
:Create()
END WITH
WITH OBJECT oDevice:oCanvas
:SelectPen( oPen )
.....
END WITH
Y en eso me base, hsta que revise el ejemplo de impresion.
Saludos
Rene Flores
http://www.ciber-tec.com
Ortiz de Zúñiga escribió:
> Rene,
>
> Si es un error nuestro te ruego que te expliques un poco mejor para poder
> arreglarlo.
>
> Un saludo,
>
> "Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el mensaje
> news:[email=44cc2b5b@news.xailer.com...]44cc2b5b@news.xailer.com...[/email]
>> Ignacio:
>>
>> Solucionado, aparentemente el problema estaba en la forma enque estaba
>> creando el pen, se tiene que crear asi:
>>
>> oPen := TPen():New(param, param, param)
>>
>> y no
>>
>> WITH OBJECT oPen := TPen():New()
>> :Propiedad := valor
>> :propiedad := valor
>> END
>>
>> Si sehace de esta segunda forma el pen no se crea.
>>
>> Saludos
>>
>> Rene Flores
>> http://www.ciber-tec.com
>>
>> Ortiz de Zúñiga escribió:
>>> Rene,
>>>
>>> Echale un vistazo al método SelectPen(). Posiblemente tu problema es que
>>> estes destruyendo los pens.
>>>
>>> Un saludo,
>>>
>>> "Rene Flores" <rflores.removeforspam@ciber-tec.com> escribió en el
>>> mensaje
>>> news:[email=44cafcef@news.xailer.com...]44cafcef@news.xailer.com...[/email]
>>>> Me he entusiamado con el tema de las graficas, y estoy en la labor de
>>>> hacer algunos experimentos.
>>>>
>>>> Alguien podria decirme como cambio el pen de un canvas, he creado
>>>> objetos PEN con colores distintos, pero siempre me pinta con un pen
>>>> negro.
>>>>
>>>> WITH OBJECT oCanvas
>>>> :oPen := TPen():New()
>>>> :oPen:nColor := RGB(255,0,0)
>>>> :oPen:Create()
>>>> :MoveTo(10,10)
>>>> :LineTo(100,100)
>>>> END
>>>
>
>
Arriba
Aguiar Costa
Mensajes: 115
Registrado: Jue Jun 01, 2006 7:21 pm

Cambiar el Pen de un Canvas

Mensaje por Aguiar Costa »

Ola Rene,
Agradecia que depois publicasses os teus resultados.
Obrigado.
Aguiar !!!
English: I'll apreciate if you could public your results.
Thanks.
"Rene Flores" <rflores.removeforspam@ciber-tec.com> escreveu na mensagem
news:[email=44cafcef@news.xailer.com...]44cafcef@news.xailer.com...[/email]
> Me he entusiamado con el tema de las graficas, y estoy en la labor de
> hacer algunos experimentos.
>
> Alguien podria decirme como cambio el pen de un canvas, he creado
> objetos PEN con colores distintos, pero siempre me pinta con un pen negro.
>
> WITH OBJECT oCanvas
> :oPen := TPen():New()
> :oPen:nColor := RGB(255,0,0)
> :oPen:Create()
> :MoveTo(10,10)
> :LineTo(100,100)
> END
>
Arriba
Responder

Volver a “Spanish”