Hola fabiof2000
Código:
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.
Sal
U2