Foros Club Delphi - Utilizando la API de windows

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Utilizando la API de windows - Help (https://www.clubdelphi.com/foros/showthread.php?t=57642)

fdanielc

23-06-2008 19:36:20

Utilizando la API de windows - Help

Hola, queria pedir ayuda dado que estoy utilizando la API de windows para pintar en un TImage con Delphi 4 en forma de mano alzada, pero el problema esta en que cuando pinto 2 o mas veces por el mismo lugar los colores se invierten o combinan.
Para dibujar a mano alzada uso los eventos MouseDown, MouseUp y MouseMove, y las propiedades image1.canvas.moveto(x,y) y image1.canvas.lineTo(x,y).
Si a alguien se le ocurre alguna otra forma de dibujar a mano alzada se los agradezco, o cualquier consejo que pueda servirme o guiarme.
Saludos:D

felipe88

23-06-2008 20:55:47

Creo que este tutorial podria darte una ayuda para lo intentas hacer, bueno almenos en lo que se refiere con pintar a mano alzada.

Saludos

coso	23-06-2008 21:25:38

Hola,

deberias comprobar que la propiedad del canvas pen.Mode este en pmCopy. A ver si es eso...

saludos

cHackAll

23-06-2008 21:34:09

Hola

fdanielc

24-06-2008 13:53:54

Muchisimas gracias a todos ya mismo pruebo sus consejos, cuando lo tenga resuelto les comento. Nuevamente gracias.
Saludos;)

fdanielc

26-06-2008 18:21:00

Bueno quedo solucionado utilice pen.mode = pmCopy al momento de pintar a mano alzada y luego lo pasaba a pmNotXor al momento de dibujar un rectangulo, circulo o linea.
La idea era hacer un programita estilo paint capas de en pelno trabajo dejarte actuar (funciones del paint) sobre la imagen del escritorio y lo que haya abierto. Se que de seguro se debe poder conseguir y descargar algo asi en la web, pero bue la idea era realizarlo Yo mismo.
Si les interesa mas sobre este miniProyecto avisen que les paso el codigo.
Muchas gracias por los aportes.
Saludos :)

La franja horaria es GMT +2. Ahora son las 10:10:12.