Foros Club Delphi - Coordenadas en el PaintBox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Coordenadas en el PaintBox (https://www.clubdelphi.com/foros/showthread.php?t=3145)

Coordenadas en el PaintBox

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)).

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.

SalU2

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?....