840 

   840 

   841     if topy < ViewBottomY then

   841     if topy < ViewBottomY then

   842         begin

   842         begin

   843         VertexBuffer[0].X:= lx;

   843         VertexBuffer[0].X:= lx;

   844         VertexBuffer[0].Y:= topy;

   844         VertexBuffer[0].Y:= topy;

   846         VertexBuffer[1].Y:= topy;

   846         VertexBuffer[1].Y:= topy;

   847         VertexBuffer[2].X:= ViewRightX;

   847         VertexBuffer[2].X:= ViewRightX;

   848         VertexBuffer[2].Y:= ViewBottomY;

   848         VertexBuffer[2].Y:= ViewBottomY;

   849         VertexBuffer[3].X:= ViewLeftX;

   849         VertexBuffer[3].X:= ViewLeftX;

   850         VertexBuffer[3].Y:= ViewBottomY;

   850         VertexBuffer[3].Y:= ViewBottomY;