ToolButton Text e Picture!

[luca.decarlo]

Ma è possibile che nel controllo Toolbutton, non posso mettere il testo sotto l'immagine??? 

Luca

[vuott]

Con le sole risorse della Classe ToolButton non mi pare sia possibile.

Però c'è sempre un'alternativa.
Utilizzando le risorse delle Classi Image e Paint, puoi modificare l'immagine imponendo il testo all'interno dell'immagine medesima, e quindi mostrarla sul ToolButton .

[Gianluigi]

Anche io l'avevo pensato ma così non mi funge:

Codice: [Seleziona]

Dim p As Picture

  p = Picture["icon:/22/add"]   ' carichiamo una immagine'  
  With Paint
    .begin(p)
    .Font.size = 12
    .DrawText("PIPPO") ' poi avremmo spostata'
    .End
  End With  
  ToolButton1.Picture = p

[vuott]

Così funziona:

Codice: [Seleziona]

Public Sub Form_Open()

    Dim im As Image

    im = Image.Load("/usr/share/icons/hicolor/48x48/apps/libreoffice-main.png")
    
    With Paint
    .begin(im)
    .Font.size = 9
    .Brush = .Color(Color.Red)
    .DrawText("Testo", 1, 5, im.W, im.H, Align.Center)
    .End
   End With

    ToolButton1.Picture = im.Picture

End

http://www.gambas-it.org/wiki/index.php?title=Inserire_del_testo_in_una_Image_ed_in_una_Picture

[Gianluigi]

Si dovrebbe poter scrivere anche in una Picture 

[vuott]

Si dovrebbe poter scrivere anche in una Picture 

Exactement.

Codice: [Seleziona]

Public Sub Form_Open()

Dim p As Picture

  p = Picture.load("/usr/share/icons/hicolor/48x48/apps/libreoffice-main.png")   ' carichiamo una immagine'

  With Paint
    .begin(p)
    .Font.size = 10
    .Brush = .Color(Color.Red)
    .DrawText("Testo", 1, 5, p.W, p.H, Align.Center)
    .End
  End With


    ToolButton1.Picture = p

End

[Gianluigi]

Infatti funziona, ma male se cambi il mio codice ingrandendo l'immagine e inserendo i tuoi parametri il testo si disegna al centro dell'immagine ma non è quello che desideriamo, giusto?

[vuott]

... ingrandendo l'immagine e inserendo i tuoi parametri il testo si disegna al centro dell'immagine ma non è quello che desideriamo, giusto?

Non è stato specificato da luca.decarlo quali caratteristiche deve assumere l'immagine o il testo. Io ho provato solo a risolvere il generico problema di far apparire il testo in una immagine da caricarsi in un ToolButton .

[Gianluigi]

Nel primo post lui parla di immagine sopra il testo.

[vuott]

Nel primo post lui parla di immagine sopra il testo.

Ebbene, lui deve precisare cosa intende per sopra.

Intende un effetto trasparenza dell'immagine ? In questo caso dovrà adoperare le opportune risorse per modificare il codice Alfa dell'immagine, e quindi applicare la semitrasparenza.
Intende un effetto bidimensionale ? Nel senso che il testo si deve porre all'interno del ToolButton ad un valore della proprietà ToolButton.Height superiore rispetto a quello assunto dall'immagine ? In questo caso... ci devo studiare ancora...... sopra.   

[Gianluigi]

Il problema è che H e W sono di sola lettura altrimenti non ci sarebbe problema.
Forse occorrerebbe crearsi un'immagine trasparente della dimensione del toolbutton e poi copiarci l'icona desiderata e scrivere dove si desidera... forse 

[vuott]

Forse occorrerebbe crearsi un'immagine trasparente della dimensione del toolbutton e poi copiarci l'icona desiderata e scrivere dove si desidera...

Io per ora attenderei la sua precisazione.

Nel caso lui voglia l'effetto bidimensionale (immagine in alto, testo in basso), la questione è molto complessa. In tal caso il tuo suggerimento si afferma essere un'ottima soluzione, anche agevolmente praticabile.   

[Gianluigi]

Comunque sia le tue argomentazioni mi hanno suggerito questa soluzione che può essere adattata a qualunque formato si desideri:

Codice: [Seleziona]

Dim p As Picture
  Dim i, ic As Image    
  
  ' Supponiamo di avere un toolbutton di 50x64'
  i = New Image(50, 64)  
  p = Picture["icon:/22/add"]   ' carichiamo una immagine'  
  ic = p.Image  
  ' disegnamo' l'immagine nel centro del quadrante superiore'
  i.PaintImage(ic, (i.W / 2) - (p.W / 2), (i.H / 2) - p.H)  
  With Paint
    .begin(i)
    .Font.size = 11
    ' scriviamo al centro del quadrante inferiore'
    .DrawText("PIPPO", 0, 0, i.W, i.H + (i.H / 2), Align.Center) 
    .End
  End With  
  p = i.Picture
  ToolButton1.Picture = p

[vuott]

Comunque sia le tue argomentazioni mi hanno suggerito questa soluzione

L'idea è stata tua, non mia, poiché io ho interpretato in modo tridimensionale l'intenzione di luca.decarlo !

.... questa soluzione che può essere adattata a qualunque formato si desideri

...però solo se l'immagine è sufficientementre piccola rispetto al ToolButton, altrimenti viene spostata in tutto o in parte al di fuori della maschera del ToolButton.
Si deve studiare meglio la parte generale per l'assegnazione della coordinata attinente al posizionamento del testo e dell'immagine.

Nel tuo codice modificherei così la riga della creazione dell'immagine trasparente base:

Codice: [Seleziona]

i = New Image(ToolButton1.W, ToolButton1.H, &FF0000FF)

altrimenti noto che l'immagine trasparente si mostra sporca.

[Gianluigi]

Comunque sia le tue argomentazioni mi hanno suggerito questa soluzione

L'idea è stata tua, non mia, poiché io ho interpretato in modo tridimensionale l'intenzione di luca.decarlo !

Diciamo che è maturata da un ragionamento stimolato da entrambi 

.... questa soluzione che può essere adattata a qualunque formato si desideri

...però solo se l'immagine è sufficientementre piccola rispetto al ToolButton, altrimenti viene spostata in tutto o in parte al di fuori della maschera del ToolButton.
Si deve studiare meglio la parte generale per l'assegnazione della coordinata attinente al posizionamento del testo e dell'immagine.

Nel tuo codice modificherei così la riga della creazione dell'immagine trasparente base:

Codice: [Seleziona]

i = New Image(ToolButton1.W, ToolButton1.H, &FF0000FF)

altrimenti noto che l'immagine trasparente si mostra sporca.

A me questo non succede, nessuna di queste cose, o meglio mi succede come normalmente se inserisci una icona troppo grande (vedi immagine)