Possible, to show a buttonbar on fixed screen-position ?

[ukoenig]

Hello,

A customer of mine wants something special.



Is it possible, to show a buttonbar on defined-places on screen ?
I don't want, that the bar can be moved.
If it is not possible, i have to use single bitmaps.

For the Folder BMP's i used :

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( MAKEBAR1( oWnd ) ) ;
ON PAINT ( gradpaint1( hDC, oWnd ), ;
ABPaint( hDC, 50, 10, oBmp1:hBitmap, 220 ), ;
ABPaint( hDC, 380, 10, oBmp2:hBitmap, 220 ), ;
ABPaint( hDC, 50, 220, oBmp3:hBitmap, 220 ), ;
ABPaint( hDC, 380, 220, oBmp4:hBitmap, 220 ), ;
ABPaint( hDC, 50, 430, oBmp5:hBitmap, 220 ), ;
ABPaint( hDC, 380, 430, oBmp6:hBitmap, 220 ) ) // 0-255 transparency level

For the moment, i paint single bitmaps on top of the folder-bmp's.

Regards
Uwe

[JC]

Uwe,

I don't know if this is what you want but... take a look!

Disable the movable property of a buttonbar:

Code: Select all  Expand view

DEFINE BUTTONBAR oToolBar OF oWnd _3D SIZE 40, 40
oToolBar:brClicked := {|| NIL }


[ukoenig]

Hello JC,

I have done some tests, to arrange buttons
on Alpha-channel BMP's.
It doesn't look very nice ( transparent problem).
I can paint another Alpha-Bmp as Button
on a Alpha-Bmp-basic picture.
I don't know, if it is possible to define any actions to the 2. BMP

I tested BTNBMP, but there is no support for Alpha-channel.

The Basic-BMP
------------------
DEFINE BITMAP oBmp1 FILENAME "f_custom.bmp"
ABPaint( hDC, 50, 10, oBmp1:hBitmap, 220 )

A Alpha-channel-Bmp on Top of oBmp1
---------------------------------------------
DEFINE BITMAP oBmp7 FILENAME "show.bmp"
ABPaint( hDC, 75, 130, oBmp7:hBitmap, 220 )

Antonio will support Alpha-channel for ButtonBMP ?
That would solve the problem.

Maybe there is another good looking solution for it ?

Regards
Uwe

[ukoenig]

Hello,

The best looking solution, i found in the moment
for painting a button on Alpha-channel-BMP's is using :

@ 7.7, 13 BUTTONBMP oBtn1 PROMPT "" SIZE 38, 40 BITMAP "gear.bmp" of oWnd
oBtn1:cToolTip = "The tooltip text"



Regards
Uwe

[Antonio Linares]

Uwe,

> Antonio will support Alpha-channel for ButtonBMP ?

In METHOD Paint() CLASS TButtonBmp change:

Code: Select all  Expand view

         DrawMasked( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
                     nLeft + If( lPressed, 1, 0 ) )


with:

Code: Select all  Expand view

         ABPaint( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
                     nLeft + If( lPressed, 1, 0 ), 220 )  )


[ukoenig]

Antonio,

I changed the source in BUTTONB ( paint )
and added a Alert as test. The Alert is shown at start for each Button.

Code: Select all  Expand view


if ::lActive

msgalert( "Aktiv" )

   ABPaint( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
      nLeft + If( lPressed, 1, 0 ), 220 )   //  )  changed, because of error
else
   DrawGray( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
      nLeft + If( lPressed, 1, 0 ) )
      endif                     
endif   



The Button shows no Alpha-Bmp's, only a empty button-frame.

Code: Select all  Expand view


DEFINE BITMAP oBmp1 FILENAME "f_custom.bmp"

// Test Alpachannel-button
DEFINE BITMAP oBmp7 FILENAME "show.bmp"

// Alpha-Channel BMP
@ 7.7, 11 BUTTONBMP oBtn1 PROMPT "" SIZE 50, 45 BITMAP "show.bmp" of oWnd
oBtn1:cToolTip = "The 1. Button"

// Normal BMP => that works !!!
*@ 7.7, 11 BUTTONBMP oBtn1 PROMPT "" SIZE 50, 45 BITMAP "preview.bmp" of oWnd
*oBtn1:cToolTip = "The 1. Button"

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( MAKEBAR1( oWnd ) ) ;
ON PAINT ( gradpaint1( hDC, oWnd ), ;
     ABPaint( hDC, 50, 10, oBmp1:hBitmap, 220 ), ;
     ABPaint( hDC, 100, 50, oBmp7:hBitmap, 220 ) ) // 0-255 transparency level



The test-alpha-bmp is defined as button as well :


A normal BMP works


Regards
Uwe