PDA

Ver la Versión Completa : Coordenadas en el PaintBox


fabiof2000
24-08-2003, 07:27:26
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
25-08-2003, 02:46:21
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
27-09-2006, 11:08:03
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?....