Discussion :

[StarMusic]

Bonjour,

J'ai une image de fond pour mon appli, qui contient plusieurs petites images. Lorsque je survole une petite image avec la souris, je voudrais faire apparaitre une autre image.

Le problème est que ça fait une sorte de saut sur l'image de fond. C'est affreux, aucune fluidité, comme si l'image de fond était entièrement réaffichée.

Exemple : ImageFond est l'image du fond... (original)
Image1 est l'image qu'on survole
Image2 est l'image qu'on affiche lors du survol d'image1

Problème : Il semble qu'ImageFond est entièrement repainte lors de l'affichage d'image2. c'est moche ! Y a pas un moyen plus classe de faire ça ?

Merci

[woow]

Hello,

Une possibilité serait de créer un élément invisible qui contient déjà l'image chargée. Lorsque tu survole ton image de fond, tu rends ton élément visible par dessus ton image de fond. L'image étant déjà chargée, ca devrait être rapide.

Je n'ai pas essayé et je ne connais pas ta configuration, mais je pense que c'est une solution qui peut fonctionner.

Bonne journée

[yoghisan]

Tu peux créer un nouveau composant image qui aurait deux nouveaux événements
- OnMouseEnter : Evenement produit quand on rentre sur l'image.
- OnMouseLeave : Evenement produit quand on sort sur l'image.

Avec ca, ca sera facile de faire ce que tu veux faire.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
unit ImageMouse;
 
interface
 
uses
  SysUtils, Classes, Controls, ExtCtrls ,messages ;
 
type
  TImageMouse = class(TImage)
  private
    FOnMouseEnter:TNotifyEvent;
    FOnMouseLeave:TNotifyEvent;
  protected
    procedure WndProc(var Message : TMessage); override;
  public
  published
    property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave:TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Mes composants', [TImageMouse]);
end;
 
procedure TImageMouse.WndProc(var Message : TMessage);
begin
  case Message.Msg of
    // La souris 'entre' sur le composant
    CM_MOUSEENTER : if assigned(FOnMouseEnter) then FOnMouseEnter(self);
    // La souris 'sort' du composant
    CM_MOUSELEAVE : if assigned(FOnMouseLeave) then FOnMouseLeave(self);
  end;
  inherited; // Continuer à faire passer le message
end;
 
end.

Apres relecture, apparemment tu y arrives...

[yoghisan]

Essaye plutot
- Form1.DoubleBuffered := True;
Form1 est ici le parent des images/

Ou peut etre un
- Application.ProcessMessages;
pas la meilleure chose...

[StarMusic]

En fait, le couplage de ces trois solutions fonctionne, j'utilisais déjà ce que préconise woow, en mettant un label transparent qui me servait à déclencher les évenements OnMouseEnter et OnMouseLeave. Le problème vient de mon Appli, il y a des requetes fréquentes qui ralentissent l'affichage et qui provoquent ces sauts. Car j'ai essayé sur un nouveau projet, et c'est déjà bcp mieux...

Merci à vous en tout cas.

Bien cordialement,

StarMusic

[yoghisan]

Tag Résolu ?