Cercando di intuire dal poco generico esempio, credo che ti appaia sempre la
stessa icona perché usi sempre la stessa p
Se metti il p=new Picture... dentro il for dovrebbe funzionare
Il giorno 11/11/09 12:07, ivanomonti@libero.it, ivanomonti@libero.it ha
scritto:
> Bhè ragazzi se la lista vuole essere tale un minimo di collaborazione, bene
> che sto sulle palle ma usate la presente come tale, altrimenti non vale la
> pena chiamarla lista.
>
> cmq tornando al discorso delle icone, ho creato 2 tentativi che non vanno a
> buon fine, nulla di errore ma il risultato non e quello giusto.
>
>
> dim i as integer
>
> dim p as Picture
> dim g as Graphics
> dim m as new MenuItem
> dim v as Variant
>
> p = NewPicture(16,16,3
>
> for i=0 to xcolorString.Ubound
>
> xcolorSplit = Split(xcolorString(i),"||")
> xcolorRef.Append(xcolorSplit(0))
>
> xcolorName.Append(xcolorSplit(1))
>
> g = p.Graphics
>
> v = xcolorSplit(0)
> g.ForeColor = v
> g.FillRect 0,0,16,16
>
> m.Icon = p
> m.Text = xcolorSplit(1)
>
> submenu.Append( new MenuItem( m.text ) )
> submenu.Icon = p
>
> next
>
> in questo modo l'icona viene disegnata ma solo sul menu e non su tutte le voci
> del submenu .... dove sbaglio
>
>
>
>
> ---------- Initial Header -----------
>
>> From : realbasic-nug.it-bounces@lists.realsoftware.com
> To : "REALbasic NUG Italian" realbasic-nug.it@lists.realsoftware..com
> Cc :
> Date : Wed, 11 Nov 2009 11:10:40 +0100
> Subject : ComboBox o PoppuMenu
>
>
>
>
>
>
>
>> Cia a tutti e buon giorno, e possibile in una comboBox o PopupMenu
>> mettere un icona al volo di tipo drawRec ?
>>
>>
>> Cordialmente Ivano Monti
>>
>>
>
>
|