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