Pues hace no más de una semana salió el mismo tema.
Basta con acceder al canvas del TImage y "pintar" sobre él. Si utilizas los mátodos del ratón, mouseDown, mouseMove y MouseUp puedes detartar cuando se está "pintando"; a partir de ahí basta con que accedas a Pixels[x,y] del camvas y le asignes el color de pintado. Para la goma lo mismo, pero con el color blanco.
Busca el ejemplo; Puede ser que esté en Delphi, pero no te será difícil entenderlo y pasarloa Builder.
|