坐标映射方法(来自：Huzzz)为什么我的什么都不显示？ (20分)

http://www.delphibbs.com/delphibbs/dispq.asp?lid=740054

来自：Huzzz, 时间：2001-11-21 13:01:00, ID：741676
上面映射X轴方向为向左，向右的如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
with PaintBox1 do
begin
SetMapMode(Canvas.Handle, MM_ANISOTROPIC);
SetWindowExtEx(Canvas.Handle, Width, Height, nil);
SetWindowOrgEx(Canvas.Handle, 0, 0, nil);

SetViewportExtEx(Canvas.Handle, -Width, -Height, nil);
SetViewportOrgEx(Canvas.Handle, 0, Height, nil); //

Canvas.MoveTo(0, 0);
Canvas.LineTo(180, 60);
end;
end;

有谁能够告诉我吗？

再等等，

O原点在左下角，X轴正方向向右，Y轴正方向向上。

提前。

UP

顶