Xailer & OZ Software

He probado este método y funciona bien, salvo que no cambia el color del Pen
(ni tampoco el ancho)
Siempre sale negro. Que estoy haciendo mal ?
METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TForm1
With Object oCanvas:=TCanvas():New()
:hDC:=hDC
:Create()
END
With Object oPen := TPen():New(oCanvas)
:nColor:=CLR_GRAY
:nWidth:=3
:Create()
END
oCanvas:MoveTo(50, 50 )
oCanvas:LineTo( 300, 50 )
RETURN Nil

Saludos:
Prueba haber si te falta definir el estilo de la linea dentro de OPen
:nStyle := PS_SOLID
Luego
oCanvas:oPen := oPen
José Ramón Castro Polinio
"Mariano Filippi" <marianofilippi@masterisi.com.ar> escribió en el mensaje
news:[email=44e5df4c@news.xailer.com...]44e5df4c@news.xailer.com...[/email]
> He probado este método y funciona bien, salvo que no cambia el color del
> Pen
> (ni tampoco el ancho)
> Siempre sale negro. Que estoy haciendo mal ?
>
>
>
> METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TForm1
>
> With Object oCanvas:=TCanvas():New()
> :hDC:=hDC
> :Create()
> END
>
> With Object oPen := TPen():New(oCanvas)
> :nColor:=CLR_GRAY
> :nWidth:=3
> :Create()
> END
>
> oCanvas:MoveTo(50, 50 )
> oCanvas:LineTo( 300, 50 )
>
> RETURN Nil
>
>
>

Mariano,
acabo de probar esto y funciona perfectamente. Compáralo con tu código
para ver que estás haciendo mal.
//---
METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TForm1
LOCAL oCanvas
LOCAL oPen
WITH OBJECT oCanvas := TCanvas():New()
:hDC:= hDC
:Create()
END
oPen := TPen():New( PS_SOLID, 3, CLR_RED )
oCanvas:oPen := oPen
oCanvas:MoveTo(150, 150 )
oCanvas:LineTo( 300, 50 )
RETURN Nil
//---
Saludos,
José Lalí­n

José...
Ahí lo probé y funcionó bárbaro. Gracias....
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:44e61fea$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Mariano,
>
> acabo de probar esto y funciona perfectamente. Compáralo con tu código
> para ver que estás haciendo mal.
>
> //---
> METHOD FormPainted( oSender, hDC, cPaintStruct ) CLASS TForm1
>
> LOCAL oCanvas
> LOCAL oPen
>
> WITH OBJECT oCanvas := TCanvas():New()
> :hDC:= hDC
> :Create()
> END
>
> oPen := TPen():New( PS_SOLID, 3, CLR_RED )
> oCanvas:oPen := oPen
>
> oCanvas:MoveTo(150, 150 )
> oCanvas:LineTo( 300, 50 )
>
> RETURN Nil
> //---
>
> Saludos,
> José Lalín