根据一个点的坐标如何画一个十字线呢?

问答知识库用户 |浏览268次
收藏|2014/05/17 22:00
如果通过一个点画十字线呢?

满意回答

2014/05/17 22:00

procedure TForm33.DrawLine(PX, PY: Integer);
begin
  with Canvas do
  begin
    Pen.Mode := pmXor;
    Pen.Width := 1;
    Pen.Style := psSolid;
    Pen.Color := clRed;
    MoveTo(0, PY);
    LineTo(Self.Width, PY);
    MoveTo(PX, 0);
    LineTo(PX, Self.Height);
  end;
  FLastPX := PX;
  FLastPY := PY;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...