Popupmenu style windows xp

[megamind]

ciao avrei bisogno di realizzare un popupmenu in stile windows xp, banner verticale con test e icona, qualcuno ha già qualche pezzo di codice ?
Uso Lazarus per Windows
Grazie

[nomorelogic]

Ciao

puoi fare in questo modo:

• metti una image list nel progetto e caricaci dentro le icone
• aggiungi una action list: crea le azioni
• abbina l'image list alla action list e per ogni azione scegli l'immagine

fatto questo aggiungi il menù, crea i menù items ed abbina le azioni

in effetti non serve codice per ottenere questo risultato
spero di essermi spiegato bene

ciao
nomorelogic

[megamind]

Ciao nomorelogic
Grazi ho capito quello che hai scritto.
Ma guardando l'immagine a me interessa realizzare il banner a sx del popupmenu

[nomorelogic]

credo che per avere il banner laterale bisogna impostare la proprietà OwnerDraw a true

A questo punto ci sarà bisogno di scrivere codice a mano negli eventi OnMeasureItem e OnDrawItem.

ti segnalo questo thread sul forum ufficiale dove c'è anche del codice da cui prendere spunto
https://forum.lazarus.freepascal.org/index.php?topic=48805.0