TCanvas

pl 

OnChange

pl 

OnChanging