Pintar trazos en Ventana

[Xevi]

¿Como puedo pintar trazos en pantalla???
Para hacerlo a la impresora lo tengo claro... pero no se hacerlo en
pantalla...
fillrect( ::Handle, { 0, 0, 2, 200 } )
Por ej. un rectángulo de 2 píxeles de alto por 200píxeles de largo...
Gracias.
Un Saludo,
Xevi.

[ignacio]

Xevi,
Se han publicado varios ejemplos al respecto en este mismo foro, y todo
consiste en conseguir un objeto TCanvas referenciado a la pantalla en el
método WMPaint() del control sobre el cual quieras pintar.
Un saludo
Nota: No te olvides de destruir el objeto TCanvas cada vez que pintes.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:455f3bfd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> ¿Como puedo pintar trazos en pantalla???
>
> Para hacerlo a la impresora lo tengo claro... pero no se hacerlo en
> pantalla...
>
> fillrect( ::Handle, { 0, 0, 2, 200 } )
>
> Por ej. un rectángulo de 2 píxeles de alto por 200píxeles de largo...
>
>
> Gracias.
>
> Un Saludo,
> Xevi.
>

[jrcpoli-quitar]

Este ejemplo se publico en el otro foro en respuesta a una pregunta
parecida a la tuya:
//---
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
//---
Falta destruir el oCanvas y oPen
Saludos:
José Ramón Castro.
Xevi escribió:
> ¿Como puedo pintar trazos en pantalla???
>
> Para hacerlo a la impresora lo tengo claro... pero no se hacerlo en
> pantalla...
>
> fillrect( ::Handle, { 0, 0, 2, 200 } )
>
> Por ej. un rectángulo de 2 pí­xeles de alto por 200pí­xeles de largo...
>
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>

[Xevi]

José Ramón,
Gracias por la respuesta.
Un Saludo,
Xevi.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> ha
escrit al missatge del grup de discussió: [email=45617d12@news.xailer.com...]45617d12@news.xailer.com...[/email]
> Este ejemplo se publico en el otro foro en respuesta a una pregunta
> parecida a la tuya:
>
> //---
> 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
> //---
>
> Falta destruir el oCanvas y oPen
>
> Saludos:
>
> José Ramón Castro.
>
> Xevi escribió:
>> ¿Como puedo pintar trazos en pantalla???
>>
>> Para hacerlo a la impresora lo tengo claro... pero no se hacerlo en
>> pantalla...
>>
>> fillrect( ::Handle, { 0, 0, 2, 200 } )
>>
>> Por ej. un rectángulo de 2 píxeles de alto por 200píxeles de largo...
>>
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.