TControlCanvas

pt 

CreateHandle

pt 

GetDefaultColor

 

Create

 

Destroy

 

FreeHandle

 

ControlIsPainting