PaintRgnOnly example for Delphi

Procedure TForm1.Test() ;
Begin
   Lead1.SetRgnEllipse(0, 0, 200, 200, L_RGN_SET);
   Lead1.PaintRgnOnly := true;
End;