Hi Everyone

I am using the following code to load a image from the database onto a key


Does anyone know how I can make the image fit onto the button and leave a space at the bottom for the text of the button?

I have a Windows application that loads the image and on that it fits fine but when I load the data in on the Gambas app the image is not fitting on the key

Any pointers is welcome

use the Picture.Stretch() method
/comp/gb.qt4/picture/stretch - Gambas Documentation


and with gambas button images are placed to the left of the text not above or below
you'll have to make a custom button/function to do that

BruceSteers said

and with gambas button images are placed to the left of the text not above or below
you'll have to make a custom button/function to do that

Here is a function that does that trick.
It makes a picture that consists of the icon and Paints the text below the icon.  then sets the button picture as the picture with text.

Note: do not set Button1.Text as it is now in the image

EDIT:  fixed

Here is a function that does that trick.

It does, BUT only with gb.gui. If I use gb.gui.qt all I get is a very black button!

cogier said

Here is a function that does that trick.

It does, BUT only with gb.gui. If I use gb.gui.qt all I get is a very black button!

That must be a bug in gb.qt5 then.  the code is sound.

i've reported the bug.

here's how it looks on my system…

(Click to enlarge)

Seems to work okay on qt5 if i give the 3rd Transparent argument with New Picture

(I fixed the example above)

i found this also works on qt..


So I guess qt just does not initialize a picture cleanly unless explicitly told to be transparent.
And if not transparent then a bg color needs painting first.

I got this reply on the bugtracker…

Benoit said

Like Image, Picture contents is uninitialized by default - but if it's not specified in the wiki.

GTK+ component is a bit different, because Image and Picture are actually the same object internally.

So, your new Image or Picture may be initialized by default, but you can't rely on that, and suppose that
the initial contents is random.

I have updated the wiki Picture._new page to state this.
/comp/gb.qt4/picture/_new - Gambas Documentation

So i guess my "workarounds" are not so much workarounds and more like "how you should properly do it" :-/

 lol

 Thank you to everyone who replied to this problem the code that BruceSteers supplied works beautifully and the images look great

Thank you BruceSteers you have gotten me out of some tight issues in the past with this project.

BruceSteers said

Code (gambas)

1. Public Sub Form_Open()
2.   ' make Button1.Picture a picture with text below it.
3.   MakePictureText(Button1, Picture["icon:/32/alarm"], "Alarm call")
4. End
5.  
6. '' Make a picture with text below it. can be used on any object that has a .Text and a .Picture property.
7. Public Sub MakePictureText(Obj As Object, Pic As Picture, Text As String)
8.  
9.   Dim hIcon As Picture = Pic.Stretch(Obj.Height - Obj.Font.Height - 6)  ' stretch the icon to button height lss font height less margin.
10.  
11.   Dim p As Picture = New Picture(Obj.W, Obj.H, True) ' make a new picture (use transparent arg to fix qt bug)
12.   Obj.Text = ""  ' make sure Obj has not got text
13.  
14.   ' use Paint.class to draw the icon and text to the picture
15.   Paint.Begin(p)
16.   Paint.DrawPicture(hIcon, (Obj.W - hIcon.W) / 2, 4, hIcon.Width, hIcon.Height)
17.   Paint.DrawText(Text, 0, hIcon.Height + 3, Obj.Width, Obj.Font.Height, Align.Center)
18.   Paint.End
19.  
20.   Obj.Picture = p  ' set the object picture to new pic
21.  
22. End
23.  
24.  

Hi BruceSteers
Quick question about your excellent code that works a treat what do I change to make the text a size smaller?

AndyGable said

BruceSteers said

Code (gambas)

1. Public Sub Form_Open()
2.   ' make Button1.Picture a picture with text below it.
3.   MakePictureText(Button1, Picture["icon:/32/alarm"], "Alarm call")
4. End
5.  
6. '' Make a picture with text below it. can be used on any object that has a .Text and a .Picture property.
7. Public Sub MakePictureText(Obj As Object, Pic As Picture, Text As String)
8.  
9.   Dim hIcon As Picture = Pic.Stretch(Obj.Height - Obj.Font.Height - 6)  ' stretch the icon to button height lss font height less margin.
10.  
11.   Dim p As Picture = New Picture(Obj.W, Obj.H, True) ' make a new picture (use transparent arg to fix qt bug)
12.   Obj.Text = ""  ' make sure Obj has not got text
13.  
14.   ' use Paint.class to draw the icon and text to the picture
15.   Paint.Begin(p)
16.   Paint.DrawPicture(hIcon, (Obj.W - hIcon.W) / 2, 4, hIcon.Width, hIcon.Height)
17.   Paint.DrawText(Text, 0, hIcon.Height + 3, Obj.Width, Obj.Font.Height, Align.Center)
18.   Paint.End
19.  
20.   Obj.Picture = p  ' set the object picture to new pic
21.  
22. End
23.  
24.  

Hi BruceSteers
Quick question about your excellent code that works a treat what do I change to make the text a size smaller?

You're welcome
Use Paint.Font to change the text attributes

BruceSteers said

You're welcome
Use Paint.Font to change the text attributes

Code (gambas)

1.   Paint.Begin(p)
2.   Paint.DrawPicture(hIcon, (Obj.W - hIcon.W) / 2, 4, hIcon.Width, hIcon.Height)
3.   Paint.Font.Size = 8
4.   Paint.DrawText(Text, 0, hIcon.Height + 3, Obj.Width, Obj.Font.Height, Align.Center)
5.   Paint.End
6.  

So simple I though it was going to be something super complicated   thank you