Mettre des images facilement dans les menus

nico · Message par **nico** » dim. 05/mars/2006 18:18

C'est un code de Danilo pris sur le Forum German sur l'utilisation de l'api SetMenuItemBitmaps.

hwnd=OpenWindow(0, 0, 0, 300, 200, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "Menu") 

If hwnd 
     
     CX_CMark=GetSystemMetrics_(#SM_CXMENUCHECK) 
     CY_CMark=GetSystemMetrics_(#SM_CYMENUCHECK) 
     
     If CreateImage(0, CX_CMark, CY_CMark) 
          If StartDrawing(ImageOutput()) 
               Box(0,0,CX_CMark,CY_CMark,GetSysColor_(#COLOR_MENU)) 
               Circle(CX_CMark/2,CY_CMark/2,CX_CMark/3,GetSysColor_(#COLOR_MENUTEXT)) 
               StopDrawing() 
          EndIf 
     EndIf 
     
     If CreateImage(1, CX_CMark, CY_CMark) 
          If StartDrawing(ImageOutput()) 
               Box(0,0,CX_CMark,CY_CMark,GetSysColor_(#COLOR_MENU)) 
               Circle(CX_CMark/2,CY_CMark/2,CX_CMark/3,RGB(0,0,255)) 
               StopDrawing() 
          EndIf 
     EndIf
     
     If CreateImage(2, CX_CMark, CY_CMark) 
          If StartDrawing(ImageOutput()) 
               Box(0,0,CX_CMark,CY_CMark,GetSysColor_(#COLOR_MENU)) 
               Circle(CX_CMark/2,CY_CMark/2,CX_CMark/3,RGB(255,0,0)) 
               StopDrawing() 
          EndIf 
     EndIf
     
     hMenu=CreateMenu(0, hwnd) : If hMenu 
          MenuTitle("Datei") 
          MenuItem(1, "Test") 
          OpenSubMenu("SubMenu 1") 
          MenuItem(2, "Sub1\Item1") 
          CloseSubMenu() 
          MenuItem(3,"Test 2") 
          MenuTitle("Bearbeiten") 
          MenuItem(4,"Ausschneiden") 
          MenuItem(5,"Kopieren") 
          MenuItem(6,"Einfgen") 
          
          ;SetMenuItemBitmaps_(Menu, x, #MF_BYCOMMAND, bitmap1, bitmap2) 
          ;menu: handle du menu
          ;x: id de la commande
          ;bitmap1:handle du bitmap UnChecked (affichage par défaut)
          ;bitmap1:handle du bitmap Checked   (affichage si item coché) 
          
          SetMenuItemBitmaps_(hMenu, 1, #MF_BYCOMMAND, UseImage(0), UseImage(0)) 
          SetMenuItemBitmaps_(hMenu, 2, #MF_BYCOMMAND, UseImage(1), UseImage(1)) 
          SetMenuItemBitmaps_(hMenu, 3, #MF_BYCOMMAND, UseImage(2), UseImage(2)) 
          
     EndIf 
     
     Repeat 
          Event=WaitWindowEvent() 
     Until Event=#PB_Event_CloseWindow 
     
EndIf 

End

Dr. Dri · Message par **Dr. Dri** » dim. 05/mars/2006 18:20

Pas compatible 98

Dri

nico · Message par **nico** » dim. 05/mars/2006 18:31

Pourtant sur le site, il dise que c'est compatible win95!

Dr. Dri · Message par **Dr. Dri** » dim. 05/mars/2006 18:50

exportation manquante:
user32.dll (SetLayeredWindowAttributes)

Dri

nico · Message par **nico** » dim. 05/mars/2006 19:34

Ben en fait j'ai pas collé le bon code, là c'est mieux.

Ulix · Message par **Ulix** » lun. 06/mars/2006 11:44

Salut a tous,

Sur XP, nickel !

Ce code tombe a pic. Je désire mettre des icone dans mes menus, et je l'avais mis dans liste des demandes pour PB4. Hélas ! peut-être pour plus tard.

Pour ma part j'ai un peu modifié le code, pour chargé directement les images (uniquement en format BMP, dommage pas les ICO) avec un LOADIMAGE, puis un RESIZEIMAGE. Ca marche !

Merci beaucoup

Ulix · Message par **Ulix** » lun. 06/mars/2006 11:57

Ps : pour ceux qui utilise PB4 il faut replacé les USEIMAGE par IMAGE
ID

comme ceux-ci :

SetMenuItemBitmaps_(hMenu, 1, #MF_BYCOMMAND, ImageID(0), ImageID(0))

flaith · Message par **flaith** » lun. 06/mars/2006 12:33

Par contre avec la V4 j'ai ca :

---------------------------
PureBasic
---------------------------
Ligne 9: ImageOutput(): Incorrect number of parameters.
---------------------------
OK
---------------------------

Ulix · Message par **Ulix** » lun. 06/mars/2006 12:43

Exact, avec PB4 l'instruction a changé, il faut mettre : ImageOutput(#image).

Mise a part cette mise a jour de l'instruction, l'exemple donné marche aussi avec PB4.

Par contre si quelqu'un sait comme utilisé directement les icones ou lieu de fichier.BMP je suis interresé...

flaith · Message par **flaith** » lun. 06/mars/2006 13:21

Arghh, merci, c'est dans l'aide en plus, la prochaine fois je nettoyerais mes lunettes

nico · Message par **nico** » lun. 06/mars/2006 17:42

Pour les icônes, c'est un peu plus compliqué faut faire de l'ownerdraw, ce qui veut dire qu'après faut s'occuper de la gestion des menus, fini les commandes PB.

Denis a fait une Lib, le mieux, c'est de l'utiliser.

Anonyme2 · Message par **Anonyme2** » ven. 10/mars/2006 18:11

Salut à tous,

faut que je m'y remette et que j'essaye de terminer cette librairie

nico · Message par **nico** » ven. 10/mars/2006 18:27

Bon ça va, je suis pas le seul.

Anonyme2 · Message par **Anonyme2** » ven. 10/mars/2006 18:32

j'ai fait une escapade du côté de VBA pour moi, je retourne à PB c'est baucoup plus simple

Jacobus · Message par **Jacobus** » ven. 10/mars/2006 19:10

Ah tiens te revoilà toi

Je me demandais où tu étais passé. Ca fais plaisir de savoir que tu reviens à PB, et que tu vas nous terminer cette lib