求救！！如何改变TPaintBox的坐标到左下角？？

Question

分不够再加

Answer 1

自己做个转换过程;
Change(var x,y:integer);
begin
    x:=PaintBox1.Height - x;
    y:=y;
end;
将点画到PaintBox的之前，用Change过程，就有将TPaintBox的坐标改变到左下角的效果了。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
    procedure Change(var x,y:integer);
    begin
        y:=PaintBox1.Height - y;
        x:=x;
    end;
var x,y:integer;
begin
    x:=strtoint(edit1.Text);  //起始x坐标
    y:=strtoint(edit2.Text);  //起始y坐标
    change(x,y);
    PaintBox1.Canvas.MoveTo(x,y);
    x:=strtoint(edit3.Text); //终止x坐标 
    y:=strtoint(edit4.Text); //终止y坐标
    change(x,y);
    PaintBox1.Canvas.LineTo(x,y);
end;