procedure  DrawAllShape(MyCanvas:TCanvas;ARect:TRect);




Description:


 Redraw  all  shapes.


Parameter:


MyCanvas : The canvas that you want draw on;

ARect: The region, 15 shape out of this region, it will not be draw.This is for speed drawing.