Coordenadas en el PaintBox

[Lmas]

Hola fabiof2000

var
  Org, Ext: TPoint;
begin
  with PaintBox1 do
  begin
    Org := Point(0, ClientHeight);
    Ext := Point(1, -1);
    SetMapMode(Canvas.Handle, mm_Anisotropic);
    SetWindowOrgEx(Canvas.Handle, Org.X, Org.Y, nil);
    SetViewportExtEx(Canvas.Handle, ClientWidth, ClientHeight, nil);
    SetWindowExtEx(Canvas.Handle, Ext.X*ClientWidth, Ext.Y*ClientHeight, nil);
    // Como muestra...
    Canvas.MoveTo(5, 5); Canvas.LineTo(20, 50);
    Canvas.MoveTo(5, 150); Canvas.LineTo(50, 150);
  end;
end;

Sólo tiene una pequeña modificación para que el origen sea el que tu quieres y viene en la unidad Grid.pas, en TCustomGrid -> ChangeGridOrientation.

SalU2