unit clipping

Interface:

name:description:
CheckLineClipping

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



    CheckRectClipping

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



      CheckRectClipping

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