Italian community of Lazarus and Free Pascal
Presentazioni => Presentazioni nuovi utenti => Topic aperto da: megamind - Febbraio 07, 2022, 08:49:09 am
-
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
-
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
-
Ciao nomorelogic
Grazi ho capito quello che hai scritto.
Ma guardando l'immagine a me interessa realizzare il banner a sx del popupmenu
-
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 (https://forum.lazarus.freepascal.org/index.php?topic=48805.0)