Duda sobre tPen

[jose.luis]

Hola,
Cuando creo un pen tal como sigue:
// Creamos el pen 1
WITH OBJECT ::aPrinterObject[PO_PEN1] := tPen():New()
:nWidth := 1
:Create()
END
y luego utilizando Canvas así­:
Printer:oCanvas:oPen := ::aPrinterObject[PO_PEN1]
Printer:oCanvas:Rectangle( { 1000, 400, 2000, 850 } )
El ancho en impresora no parece que sea de un pixel sino un poco más grueso.
La pregunta es: ¿nWidth de open utiliza el nmapmode?
--
Saludos,
José Luis Capel
www.capelblog.com vuelve a estar online!!

[ignacio]

José Luis,
El objeto Pen que le pasas a la propiedad TCanvas:oPen es siempre
redimensionado su dispositivo. El valor nWidth resultante es:
Ancho de pantalla * Resolución del dispositovo / Pixels por pulgada de
pantalla
Si deseas utilizar tu propio objeto Pen sin que el objeto TCanvas lo
dimensione siempre puedes utilizar el método SelectPen()
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
news:46fab180$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> Cuando creo un pen tal como sigue:
>
> // Creamos el pen 1
> WITH OBJECT ::aPrinterObject[PO_PEN1] := tPen():New()
> :nWidth := 1
> :Create()
> END
>
>
> y luego utilizando Canvas así:
>
> Printer:oCanvas:oPen := ::aPrinterObject[PO_PEN1]
> Printer:oCanvas:Rectangle( { 1000, 400, 2000, 850 } )
>
> El ancho en impresora no parece que sea de un pixel sino un poco más
> grueso.
>
> La pregunta es: ¿nWidth de open utiliza el nmapmode?
>
>
> --
> Saludos,
> José Luis Capel
> www.capelblog.com vuelve a estar online!!
>

[jose.luis]

Ignacio,
Abusando de tu generosidad.
¿Cómo podría establecer un pen de 0.75 milimetros?
Saludos y gracias,
José Luis Capel
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:46fb6855$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> José Luis,
>
> El objeto Pen que le pasas a la propiedad TCanvas:oPen es siempre
> redimensionado su dispositivo. El valor nWidth resultante es:
>
> Ancho de pantalla * Resolución del dispositovo / Pixels por pulgada de
> pantalla
>
> Si deseas utilizar tu propio objeto Pen sin que el objeto TCanvas lo
> dimensione siempre puedes utilizar el método SelectPen()
>
> Saludos,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "José Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
> news:46fab180$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Hola,
>>
>> Cuando creo un pen tal como sigue:
>>
>> // Creamos el pen 1
>> WITH OBJECT ::aPrinterObject[PO_PEN1] := tPen():New()
>> :nWidth := 1
>> :Create()
>> END
>>
>>
>> y luego utilizando Canvas así:
>>
>> Printer:oCanvas:oPen := ::aPrinterObject[PO_PEN1]
>> Printer:oCanvas:Rectangle( { 1000, 400, 2000, 850 } )
>>
>> El ancho en impresora no parece que sea de un pixel sino un poco más
>> grueso.
>>
>> La pregunta es: ¿nWidth de open utiliza el nmapmode?
>>
>>
>> --
>> Saludos,
>> José Luis Capel
>> www.capelblog.com vuelve a estar online!!
>>
>
>