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