TPaintingEventObj

pl 

Canvas

TEventObj

pl 

Sender