| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Picard
Master
Registrado: 18 Ene 2004Mensajes: 218Ubicación: Palamos (Girona) España
|
 Publicado: Lun 06 Dic, 2004 4:51 pm Asunto: Crear una regla de comportamiento |
 |
|
Buenas a todos,me surge un problema en mi aplicacion,es el siguiente:
en un TForm tengo un Objeto TEasyMap es un panel que me permite visualizar archivos *mif. en mi caso son mapas, lo que me ocurre es que al hacer zoom el la parte superior del panel me queda una zona vacia y se me ha ocurrido que podria crear una especie de regla por ejemplo a zoom 2 le corresponde el centro x,
zoom3 le corresponde el centro x+10
alguien podria decirme si es to es posible y darme una pista de como empiezo?
gracias machotes
_________________
El hombre es el unico ser que tropieza dos veces en la misma piedra ( en mi caso infinitas veces) |
|
| Volver arriba |
|
 |
Picard
Master
Registrado: 18 Ene 2004Mensajes: 218Ubicación: Palamos (Girona) España
|
| Publicado: Lun 06 Dic, 2004 5:46 pm Asunto: |
|
|
Tengo una posible solucion al problema, `pero el codigo esta el pascal y no tengo ni idea
| Código: |
map1.BeginUpdate();
try
Map1.Zoom := map1.Zoom *2;
if Map1.ViewBounds.Y0 <- 90 then Map1.CenterX := Map1.CenterX -(90 - Map1.ViewBounds.Y0);
finally
Map1.EndUpdate();
end;
|
mas o menos entiendo este codigo , pero cuando llego a "then" me pierdo pues no se como traducirlo.
| Código: |
Map1->beginUpdate();
Map1->Zoom = Map1->Zoom *2;
if(Map1-´>ViewBounds.Y0 <- 90)
{
Map1->CenterY = Map1 -(-90 - Map1ViewBounds.Y0;
Map1->EndUpdate();
}
|
Creo que no voy mal encaminado, pero os agradaceria una correccion en caso de ser necesaria.
gracias
_________________
El hombre es el unico ser que tropieza dos veces en la misma piedra ( en mi caso infinitas veces) |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Lun 06 Dic, 2004 6:35 pm Asunto: |
|
|
| Código: | Map1->BeginUpdate();
try{
Map1->Zoom = map1->Zoom *2;
if (Map1.ViewBounds.Y0 <- 90)
Map1->CenterX = Map1->CenterX -(90 - Map1->ViewBounds.Y0);
}
__finally
{
Map1.EndUpdate();
}
|
prueba asi..
_________________
 |
|
| Volver arriba |
|
|
Picard
Master
Registrado: 18 Ene 2004Mensajes: 218Ubicación: Palamos (Girona) España
|
| Publicado: Lun 06 Dic, 2004 6:43 pm Asunto: |
|
|
mala suerte la mia, este codigo no da el resultado esperado,tendre que ver si puedo crear una regla
_________________
El hombre es el unico ser que tropieza dos veces en la misma piedra ( en mi caso infinitas veces) |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
