Xailer & OZ Software

Saludos:
Haber si me podeís aclarar esta duda que tengo, porque este código que pongo
funciona de una forma y de otra no funciona, quizas sea una tontería pero
como no encuentro la causa por eso pregunto.
LOCAL oCanvas
LOCAL oPen
WITH OBJECT oCanvas := TCanvas():New()
:hDC:= hDC
:Create()
END
** Si pongo esta linea no funciona
WITH OBJECT oPen := TPen():New()
:nStyle := PS_SOLID
:nWidth := 3
:nColor := CLR_RED
:Create()
END
** Si pongo esta linea en lugar de la de arriba funciona
//oPen := TPen():New( PS_SOLID, 3, CLR_RED )
oCanvas:oPen := oPen
oCanvas:MoveTo(150, 150 )
oCanvas:LineTo( 300, 50 )
RETURN Nil
José Ramón Castro Polinio

José,
Había efectivamente un error en la clase. Ya está corregido. Muchas gracias.
Un saludo,
"José R.Castro" <jrcpoli@terra.es> escribió en el mensaje
news:44e63934$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Saludos:
>
> Haber si me podeís aclarar esta duda que tengo, porque este código que
> pongo
> funciona de una forma y de otra no funciona, quizas sea una tontería pero
> como no encuentro la causa por eso pregunto.
>
> LOCAL oCanvas
> LOCAL oPen
>
> WITH OBJECT oCanvas := TCanvas():New()
> :hDC:= hDC
> :Create()
> END
>
> ** Si pongo esta linea no funciona
> WITH OBJECT oPen := TPen():New()
> :nStyle := PS_SOLID
> :nWidth := 3
> :nColor := CLR_RED
> :Create()
> END
>
> ** Si pongo esta linea en lugar de la de arriba funciona
> //oPen := TPen():New( PS_SOLID, 3, CLR_RED )
>
> oCanvas:oPen := oPen
> oCanvas:MoveTo(150, 150 )
> oCanvas:LineTo( 300, 50 )
>
>
> RETURN Nil
>
> José Ramón Castro Polinio
>
>