Discussion :

[julie20]

Bonjour à tous !


Dans l'appli que je suis en train de développer, j'affiche une image dans une PaintBox et je dois offrir la possibilité à l'utilisateur de faire un zoom sur l'image .

Le problème, c'est que l'utilisateur n'a pas la possibilité ne peut faire le zoom qu'à l'aide d'un curseur qu'il déplace avec certaines touches du clavier.

Est-il possible d'avoir un curseur sur une PaintBox?
J'utilise le Canvas de la PaintBox pour afficher l'image: est-ce une bonne solution ?

:uc:
Merci à tous pour vos réponses et/ou suggestions.

[phenixauthor]

salut,

Si tu veux faire des zooms "propres", je te conseille d'utiliser la librairie
graphics32 qui propose pas mal de fonctions graphiques, comme les zooms ( avec filtres ), la rotation, transparence alpha etc.
Il y a une demo ( très simple, une dizaine de lignes de code ) Image32_ex
qui fait exactement ce que tu cherches....
Et c'est gratuit.
Tu peux aller chercher bonheur ici :http://g32.org

Sinon, un paintbox ne propose pas en soi de scrollbar, mais il te suffit d'en
rajouter une qq part, ce qui te permet de gerer le facteur de zoom, methode utilisée dans la démo citée plus haut....

@+

[Sub0]

Salut!

Je programme un jeu d'Echecs, et je veux faire une fonction de redimensionnement de la table (zoom out)...
J'ai trouvé un composant qui ne fait que ça, je trouve que c'est plus simple que d'avoir une librairie avec plein de fonctions dont je ne me servirais pas!!!
http://site.voila.fr/subut/data4/thumbsV22.zip (471 ko)
Un démo: http://site.voila.fr/subut/data4/thumbs.zip (349 ko)
Pour améliorer la qualité de l'image, je comptais utiliser un compo pour l'antialiasing.
http://site.voila.fr/subut/data4/faalias.zip (224 ko)

...Mais je crois avoir trouvé une unité qui fait les deux (pas encore testé):

JanFX v.1.0 FWS 19 Kb 03.07.00 By Jan Verhoeven.
JanFX is a library of 89 bitmap transformation routines like: rotate; smooth resize; filters; make seamless; buttonize; color, focus and light effects; fisheye and twist distortions; alpha blending; plasma and many more.

http://homepages.borland.com/torry/v...ects/janfx.zip (19 ko)

J'ai aussi trouvé une unité (pas d'install) qui devrait mieux te convenir je crois, car elle permet d'agrandir un bitmap...
ya aussi une petite démo: http://site.voila.fr/subut/data4/pkimgp.zip (184 ko)

Si tu as des questions, n'hésite pas à me demander!
Bon développement!

[delphi-fan]

Les codes qui font du zoom, c'est pas ce qui manque.

Un code (non testé) assez simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer); 
var 
  i: Integer; 
begin 
  if AZoomFactor = 100 then 
    SetMapMode(Canvas.Handle, MM_TEXT); 
  else 
  begin 
    SetMapMode(Canvas.Handle, MM_ISOTROPIC); 
    SetWindowExtEx(Canvas.Handle, AZoomFactor, AZoomFactor, nil); 
    SetViewportExtEx(Canvas.Handle, 100, 100, nil); 
  end; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  bitmap: TBitmap; 
begin 
  bitmap := TBitmap.Create; 
  try 
    bitmap.Assign(Form1.image1.Picture.Bitmap); 
    SetCanvasZoomFactor(bitmap.Canvas, 70); 
    Canvas.Draw(30, 30, bitmap); 
  finally 
    bitmap.Free 
  end; 
end;

A vérifier ...

Sinon, vous pouvez utiliser les composants JVCL Jedi : voir l'exécutable de démo dans le répertoire : ... \JVCL\Bin\JvZoomProj.exe

Enfin, signalons le programme Rotozoom à l'adresse :
http://www.alistairkeys.co.uk/download/rotosrc.zip

A+

[Sub0]

Salut!

J'ai testé ton code Delphi-fan, et il fonctionne bien, surtout pour le zoom out!
J'en ai fait une petite démo pour notre amie...
C'est pour faire varier le zoom de 10 à 200% avec une TrackBar:
http://site.voila.fr/subut/data4/zoomtest.zip (50 ko)

J'avais déjà essayé RotoZoom: À chaque fois, il manque les sources dans l'archive! Cette fois, le prog me réclame la classe TCDNDXTimer, donc l'unité CDNDXTimer est manquante!!! Je déteste télécharger des progs où il manque des compos pour pouvoir les compiler, sur une démo en plus!

Il ya un tutoriel Delphi sur le site, à propos d'une loupe pour la souris...
http://www.developpez.com/club/llb/loupe.htm

Si tu veux améliorer la qualité d'un zoom in, il faut utiliser un filtre d'antialiasing.
Juste pour te donner une idée du filtre, j'ai fait un petit dessin à la main...
Ce serait trop beau si ça pouvait être aussi parfait!
Voici dans l'ordre, l'image originale / zoom / antialiasing.



http://sub0.developpez.com/delphi/AAlias.zip

à+