Italian community of Lazarus and Free Pascal

Presentazioni => Presentazioni nuovi utenti => Topic aperto da: megamind - Febbraio 07, 2022, 08:49:09 am

Titolo: Popupmenu style windows xp
Inserito 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

Titolo: Re:Popupmenu style windows xp
Inserito da: nomorelogic - Febbraio 07, 2022, 09:56:52 am

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

Titolo: Re:Popupmenu style windows xp
Inserito da: megamind - Febbraio 07, 2022, 11:55:51 am

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

Titolo: Re:Popupmenu style windows xp
Inserito da: nomorelogic - Febbraio 07, 2022, 12:50:01 pm

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)