Coordenadas en el PaintBox

[fabiof2000]

Hola amigos.
Quiero saber como hago para cambiar el sistema de coordenadas del PaintBox, (por ej: Que la esquina inferior izquierda sea el punto (0,0) y la esquina superior derecha sea el punto (300,300)).

[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

[jorllazo]

Hola...
Despues de muuuucho buscar he dado con este hilo. He probado este codigo y parece que funciona muy bien, pero cada vez que tenga que dibujar, tengo que volver a indicar todos estos parametros?....