FiveTech Software tech support forums

Antonio Linares wrote: Thu Jan 09, 2025 1:42 pm You may use a TPanel object and paint what you need...

Resolved
although maybe I should calculate the length of the caption
oImage:bpainted:= { |hDC| MyLine(hDC,{oImage:nBottom - 50, 1,oImage:nWidth,147 },RGB(195,195,185),RGB(195,195,185)) }

I need to insert an image into a btnbmp obj that has a prompt, I would like the image to start from 0.0 and end just before the caption
I tried with adjust the image is inserted as I want but after the caption it is not underneath and you can't see it well
the images i use are not the same size ...

Antonio Linares wrote: Thu Jan 09, 2025 1:14 pm Dear Silvio,

1. You can modify the Class TBtnBmp source code

2. You may try to use oBtnBmp:bPainted

I was inclined to go with the second option but
the problem is that if the text is bigger you should make the image smaller to give more prominence to the text

is it possible to create a dividing line between the image and the text in a btnbmp?

example

https://i.postimg.cc/DwYGn8n9/btnbmp.png


if there is no image the text must be in the center without the line

https://i.postimg.cc/5N4Qzw0c/g.png

I saw that if I upload an image on a white ...

Marc,
I tried with


and not run k

WITH OBJECT oBrwSubCat
:AddBitmap( { "SOR_TUP","SOR_TDW" } )

this insert the bitmap on the right I think on default

How insert bitmaps at left before the title of column ?

I created a test dialog using these measurements

local nHt := Int( ScreenHeight() + 100 )
local nWd := Int( ScreenWidth() )

but does this work for all resolutions?

that is, if I run the test on a 10" laptop do I have the same configuration?

in this dialog i have a lot of btnbmp controls, how ...

Antonio Linares wrote:Dear Silvio,

Great!

many thanks!

sent to you with pngs

Original

https://i.postimg.cc/8C01J3Ps/1.png

Made by me

https://i.postimg.cc/5t6JV3qJ/io.png

I'll Publish source code on afternoon

It 's a Resizable dialog As on original dialog of that italian Application


the source and pngs are on GitHub https://github.com/Falconisilvio/Customer ...

>There where some Gets with a + and - sign inside.
where ?
there are on xbrowse I think

this afternoon I made this like your image



If you like it can continue to make it

Silvio,

This last picture is not from FWin forum, but a Software from Pictures of the NET.

Its just to have a idea. I did see some nice design from you, but when I come to one of them I will show you.

In fact, is you have 1 or 2 gets (only the code) where a lot of stuff in going on like ...

Antonio,

I think like this is nice. Bright and nice Icons.

I was playing with Cuebanner and the Infield code, but most likely the Normal Tget have more options in designing.

I will have to look fore some sample prg's where the Tget options are used for bitmap, colors and designing method/data ...

for a long time since I use harbour instead of clipper I have always used the source screenshots @x,y because the RC eats up a lot of memory, using the rc file only for the images.

I arrived at a personal technique using simply nRow:=10, ncol=5 and nLine spacing =30 obviously nLine spacing changes ...

RESOLVED

DEFINE BUTTON aBtnBar[5] OF oBar PROMPT "Stampa" RESOURCE "PRN_REC" ;
ACTION PopupMenu():Activate( aBtnBar[5]:nTop + aBtnBar[5]:nHeight, aBtnBar[5]:nLeft, oDlg )