Discussion :

[FW-S]

Voila, pour insérer une image dans un Nouveau Items sur le popup d'une fiche j'utilise actuellement un TImage, je souhaite récupéré celle-ci à partir d'un TListImage.

Merci d'avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
var
  SystemMenu: THandle;
  ItemIndex: Cardinal;
begin
  SystemMenu := GetSystemMenu(Handle, False);
  AppendMenu(GetSystemMenu(Handle, False), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Handle, False), MF_STRING, 0, 'Nouveau Items...');
  ItemIndex := 8;
  SetMenuItemBitmaps(SystemMenu, ItemIndex, MF_BYPOSITION, Image1.Picture.Bitmap.Handle, Image1.Picture.Bitmap.Handle);
  Application.OnMessage := OnMessage;
end;

Cordialement

[Pierre Castelain]

C'est exactement le même principe sauf qu'il faut créer une bitmap "manuellement". Le plus simple est d'avoir une liste (ou un tableau) de bitmaps et de les créer de la façon suivante:

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
procedure TForm1.FormCreate(Sender: TObject);
var
  SystemMenu: THandle;
  ItemIndex: Cardinal;
  bmp: TBitmap;
begin
  SystemMenu := GetSystemMenu(Handle, False);
  AppendMenu(GetSystemMenu(Handle, False), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Handle, False), MF_STRING, 0, 'Nouveau Items...');
  ItemIndex := 8;
 
  bmp:= TBitmap.Create;
  bmp.Width:= ImageList1.Width;
  bmp.Height:= ImageList1.Height;
  ImageList1.Draw(bmp.Canvas, 0, 0, 0);
  SetMenuItemBitmaps(SystemMenu, ItemIndex, MF_BYPOSITION, bmp.Handle, bmp.Handle);
  // Ajouter ce bmp à la liste ou au tableau de bitmaps (nécessaire pour pouvoir
  // les libérer en fin d'application)
  Application.OnMessage := OnMessage;
end;

Il faudra bien sur libérer les bitmaps créées lorsque l'application se termine.

[FW-S]

Slt Pierre, je te remercie pour ton aide. C'est en fait un classique je connaissais mais je ne pensais pas du tout à ça.

Salutations.

[Bernard M]

Bonjour,

Je tente d'utiliser les fonctions AppendMenu et SetMenuItemBitmaps non sur le menu system de la fiche mais sur un TPopupMenu appartenant à cette fiche, que j'ai nommé 'Popup'.

Je fournis donc Popup.Handle comme premier paramètre pour les deux fonctions, sans aucun résultat !

Pour les icônes, je les stocke dans un array of TBitmap.

Merci de votre aide.