Discussion :

[tarmo57]

Bonjour tous je cherche dans delphi 7 mais je ne trouve pas, donc forum.
Merci d'avance
Voila j'ai mon programme de gestion de banque EBP comptes bancaires
Si vous connaissez?
Sur le haut du programme une séries d'icône comme dans un panel je crois), et au passage de la souri l'arrière plan de l'image (panel je crois) change de couleur.
Je ne trouve pas dans Delphi 7 vous avez une idée pour faire la méme chose
Merci

[cincap]

Bonjour à toutes et à tous,

@ tarmo57, utilises un Timagelist et un Timage, dans ton Timagelist, tu places l'image ou les images suivant un état et dans le Timage, ce sera l'image par défaut.

Ton Timagelist = imagemenu
Ton Timage = image1

Code :

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
procedure TForm1.FormCreate(Sender: TObject);
 var
  imageList : TImageList;
begin
 doublebuffered := true;
 WriteComponentResFile('ImageMenu.dat', ImageMenu) ;
 imageList := TImageList.Create(nil) ;
  try

    ReadComponentResFile('ImageMenu.dat', imageList) ;

    imageList.GetBitmap(1,Image1.Picture.Bitmap) ; //1 = image par défaut

  finally
    FreeAndNil(imageList) ;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 begin

image1.picture.bitmap:=nil;
ImageMenu.GetBitmap(2,Image1.Picture.Bitmap); //2 = image au survol de la souris

end;

Voila, voilou,

@+,

Cincap

[didier.cabale]

Sur le haut du programme une séries d'icône comme dans un panel je crois), et au passage de la souri l'arrière plan de l'image (panel je crois) change de couleur.

ceci vous convient-il:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
   TPanel(Sender).Color := clRed;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   TPanel(Sender).Color := clBlue;
end;

Cordialement

[tarmo57]

ceci vous convient-il:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
   TPanel(Sender).Color := clRed;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   TPanel(Sender).Color := clBlue;
end;

Cordialement

je n'ai pas la fonction
procedure TForm1.Panel1MouseLeave(Sender: TObject);
dans mon panel

[Droïde Système7]

Bonjour,

je n'ai pas la fonction
procedure TForm1.Panel1MouseLeave(Sender: TObject);
dans mon panel

Exact, mais le compo JvPanel de la bibio JVCL, lui la possède

http://delphi.developpez.com/freewares/composants/#JVCL

@+

[tarmo57]

Bonjour,



Exact, mais le compo JvPanel de la bibio JVCL, lui la possède

http://delphi.developpez.com/freewares/composants/#JVCL

@+

OK super sa marche super bien merci tous