TEST.PRG
#include "fivewin.ch"
#include "constant.ch"
Function test()
Local nBottom := 33
Local nRight := 115
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
Local oBar,oDlg
Local oBut[10]
DEFINE DIALOG oDlg ; //OF oParent
TITLE "test" ;
SIZE nWidth, nHeight TRANSPARENT PIXEL
oDlg:nStyle := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_MAXIMIZEBOX, 0 )
DEFINE BUTTONBAR oBar OF oDlg 2015 SIZE 92,14 BOTTOM
// this buttons are created from left to right
DEFINE BUTTON oBut[1] OF oBar PROMPT "Stampa" LEFT FILENAME ".\BITMAPS\STAMPA.BMP"
DEFINE BUTTON oBut[2] OF oBar PROMPT "Etichette" LEFT FILENAME ".\BITMAPS\ETI.BMP"
DEFINE BUTTON oBut[3] OF oBar PROMPT "Allegati" LEFT FILENAME ".\BITMAPS\ALLEGA.BMP"
DEFINE BUTTON oBut[4] OF oBar PROMPT "Rit.Acconto" LEFT FILENAME ".\BITMAPS\RIT.BMP"
DEFINE BUTTON oBut[5] OF oBar PROMPT "Includi doc. " LEFT FILENAME ".\BITMAPS\GENERA.BMP" GROUP
oBut[5]:DISABLE()
DEFINE BUTTON oBut[6] OF oBar PROMPT "Genera doc " LEFT FILENAME ".\BITMAPS\GENERA.BMP"
// this buttons are created from right to left
DEFINE BUTTON oBut[7] OF oBar LEFT FILENAME ".\BITMAPS\CALC.BMP" action Msgcalc()
DEFINE BUTTON oBut[8] OF oBar LEFT FILENAME ".\BITMAPS\AIUTO.BMP"
DEFINE BUTTON oBut[9] OF oBar PROMPT "Chiudi " LEFT FILENAME ".\BITMAPS\Chiudi.BMP" action oDlg:end()
ACTIVATE DIALOG oDlg CENTERED
return nil
First problem

the last 3 buttons must be at right
Second Problem
i wish
this button smaller instead of the size of the other butons(92,14)
third problem
why the button oBut[5] is not disabled ?
Fourth problem
How I can to erase the 3d effect from buttonbar ? I mean the line on the top
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com