unit clipping

Interface:

name:description:
CheckRectClipping

procedure CheckRectClipping (ClipRect:TRect; var x1,y1, x2,y2 : smallint); overload;



    CheckRectClipping

    procedure CheckRectClipping (ClipRect:TRect; var Rect:Trect); overload;



      CheckLineClipping

      procedure CheckLineClipping (ClipRect:TRect; var x1,y1, x2,y2 : smallint);