FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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)). |
#2
|
|||
|
|||
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; SalU2
__________________
Una cosa es una cosa, y otra cosa es otra cosa... |
#3
|
|||
|
|||
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?....
__________________
Gracias de Antemano |
|
|
|