TControlCanvas

pt 

CreateHandle

pt 

CreateFont

 

Create

 

Destroy

 

FreeHandle

 

ControlIsPainting