Méthode fluide de déplacement d'une image

Bonjour Pierre,

Citation:

---

Envoyé par ChPr

J'en avais placé un en fin du Paint, mais c'était pire. Bon, je suppose qu'il était mal placé.

---

Très mal placé 8-) Le refresh dans le OnPaint provoque un réaffichage de l'image qui induit un événement OnPaint dans lequel le refresh provoque un réaffichage de l'image qui induit un événement OnPaint...

Citation:

---

Envoyé par ChPr

Pour que ce soit exact, il faut écrire : GradLo := (Trunc(DistGrad*CarteAff.LonMin) + Ord(CarteAff.LonMin >= 0))/DistGrad; // en supposant kAff > 0

---

Tu as raison, j'ai été trop vite sur le Trunc :oops:
Je me demande si GradLo := Floor(DistGrad*CarteAff.LonMin)/DistGrad; ne ferait pas l'affaire (mais une multiplication suivie d'une division me laisse toujours perplexe).

Citation:

---

Envoyé par ChPr

Tu souhaites avoir tout le code de cette fiche ? Si c'est pour voir ce qui est dedans, pas de problème, si c'est pour la faire fonctionner, il faudrait que je la sépare du reste du programme pour en faire un programme autonome.

---

En général, pour des affichages il est intéressant d'utiliser le plus possible des entiers ce qui n'est pas le cas ici et la déclaration des variables et de leur utilité n'est pas dans la portion de code que tu as donné. Il y a plusieurs facteurs d'échelle qui se mêlent joyeusement (échelle des dalles ?, échelle de visualisation image (stretch ?), échelle partie image / zone vue? etc. ) sans qu'on sache réellement qui est qui.

Une question : le TImage accueille combien de dalles ? Qu'elle la taille des dalles ? Le TImage ne fait pas 20000x20000 soit 1.2 Go ou 1.6 Go (en 32 bits) ?

Salut

Bonjour Pierre,

Pour revenir sur le scrolling, il n'est pas sûr que l'image reçoive une demande d'actualisation (c'est peut être la scrollbox qui s'occupe de tout). Auquel cas la solution serait de demander un refresh de l'image dans la gestion de mouvement de la scrollbox (sans doute dans le gestionnaire de l'événement onChange). Il faut s'assurer que ce refresh est bien lancé après le mouvement sinon le OnPaint va s'actualiser avec des données obsolètes.

Salut

Bonjour,

je vous suis de très loin en très loin, mais ça,

Citation:

---

Envoyé par Guesset

Je me demande si GradLo := Floor(DistGrad*CarteAff.LonMin)/DistGrad ne ferait pas l'affaire (mais une multiplication suivie d'une division me laisse
toujours perplexe).

---

d'un strict point de vue mathématique, ça doit pouvoir se simplifier en GradLo := Floor(CarteAff.LonMin);. Non ?
Si je l'écris autrement, avec des noms de variables à une lettre, à l'origine on a G := Floor(D*C)/D; donc G := Floor(C); enfin, il me semble (je n'ai pas testé avec des valeurs pour voir si ce que j'avance est correct).

Maintenant, peut-être que le compilateur va générer G := ( Floor(D*C) )/D;, ce qui risque de tout changer… Je vous laisse tester.

Bon, j"ai essayé des Refresh un partout où c'est possible, des activations par Timer, ...
Rien n'y fait. Soit ce n'est pas bloquant mais les graduations se superposent les unes sur les autres, soit ça marche bien, mais il faut que je déplace ma fenêtre pour faire apparaître une première fois les graduations et je ne peux plus fermer la fenêtre.

Cordialement.

Pierre.

Bonjour Jipété,

Citation:

---

Envoyé par Jipété

...ça d'un strict point de vue mathématique, ça doit pouvoir se simplifier en GradLo := Floor(CarteAff.LonMin);. Non ?

---

Non. J'ai fait la même erreur. Floor(3*1.4)/3 = Floor(4.1)/3 = 4/3 = 1.333 alors que Floor(1.4) = 1.0. Ceci dit je pense qu'avec une bonne vue d'ensemble, il doit être possible d'éviter ce genre de d'opérations louches.

Salut

Bonjour Pierre,

Citation:

---

Envoyé par ChPr

...Soit ce n'est pas bloquant mais les graduations se superposent les unes sur les autres...

---

S'il y a un seul événement OnPaint qui trace les graduations dans le canvas supérieur (ie pas Image.Picture.Bitmap.Canvas), elles ne peuvent mécaniquement pas se superposées puisqu'elles ne sont jamais permanentes (mémorisée).

Si tu veux faire plus simple (parce qu'il ne bougera pas avec le scroll), tu peux mettre un TPaint au dessus de ta fenêtre de scrollbox et dessiner les graduations sur lui (un TPaint est juste un Canvas). Il faudra simplifier un peu le code du OnPaint du TImage (notamment parce que les origines deviennent fixes) mais il peux être repris en grande partie. Quoiqu'il en soit, il ne doit y avoir qu'un seul événement qui gère l'affichage des graduations.

Bon courage