FiveTech Software tech support forums

... SIZE 207, 300 OF oDlg PIXEL //ADJUST SCROLL

ACTIVATE DIALOG oDlg ;
ON INIT ( oDlg:SetPos( 0, ScreenWidth() - oDlg:nWidth + 2 ), BuildButtonBar() )
endif

return nil

//----------------------------------------------------------------------------//

function BuildButtonBar()

local oBar ...

I found on this forum a solution of Nageswarao but I notice a flash on buttonbar when the buttonbar is changed


https://i.postimg.cc/Mprn84qt/but.gif




#include "fivewin.ch"

function Main()

local oDlg, oBrw, oBar1, oBar2, aRow, aData := Array( 8, 6 )

for each aRow in aData
AEval( aRow ...

... Nuovo" RESOURCE "NEW_SMALLBRW" LEFT;
ACTION NIL


No Antonio, Please see barchange.prg (of Cristobal)
I wish make the same only I have the buttonbar at x,y

#include 'fivewin.ch'
#include 'xbrowse.ch'
#include "constant.ch"


Function test()

local oDlg,oDbf,oFont
local oBar

local nBottom ...

Now I change the position of Buttonbar and seem run but there is another error when i I try to create buttons


pls try the test


function Main()

local oDlg, oBrw, oFont
local oDbf
local oBar

DEFINE DIALOG oDlg SIZE 640,300 PIXEL TRUEPIXEL; //FONT oFont
TITLE cTitle COLOR CLR_BLACK, DLG ...

similarly to Cristobal's example barchange.prg that uses a buttonbar and some buttons, I would like to do the same thing but without the buttonbar i.e. I have 6 buttons under an xbrowse (the ones that start from the left)

https://i.postimg.cc/GmkLk0VJ/xbrowse-Menu.png

and when I click on a record ...

... ACTIVATE WINDOW/DIALOG [CENTERED] IN onMonitor
oMonitor puede ser el número del monitor o el objeto monitor.

* Mejora: Al definir un BUTTONBAR en un diálogo funcionan las cláusulas TOP/LEFT/BOTTO/RIGHT.

* Nueva: Clase TRating creada por Silvio Falconi !!!
Puedes ver ejemplos de uso en ...

... support:
ACTIVATE WINDOW/DIALOG [CENTERED] IN onMonitor
onMontior can be number of the monitor or monitor object.

* Enhanced: While defining BUTTONBAR in a dialog
clauses TOP/LEFT/BOTTO/RIGHT work now.

* New: Class TRating and samples\testrat1.prg, samples\testrat2.prg and samples\testrat3.prg ...

Fir now i resolved making another buttonbar case 3

In a dialog I have a buttonbar

DEFINE BUTTONBAR oBar OF oDlg SIZE 100,70 TOP NOBORDER 2015


then on activate I cal the functions

Btnbar(1,oDlg:oBar,oDlg,oDbf,oBrw,aBtnBrow[4]),;

to activate the buttonbar oBar (different menu barchange.prg thanks to Cristobal )

but the button number 6 is ...

Hola Mr. Rao

Funciona bien con xBrowse

No Funciona el menu del dialogo
Error linea -> xRatio := oDlg:nWidth / oDlg:Cargo[ 1 ] de ResizeCtrls( oDlg )

No funciona la buttonbar
Error linea -> xRatio := oDlg:nWidth / oDlg:Cargo[ 1 ] de ResizeCtrls( oDlg )

Gracias, Saludos

Ruben Dario Fernandez

... bien :D :D :D :D

1- Puede no ser tan dark, ósea se puede establecer un color que elijamos, tirando un poco más a gris?
2- Va a aplicar para todos los objetos, incluyendo los ButtonBar y las RibbonBar?

De momento esas son nuestras inquietudes

https://hymplus.com/forofw/tema_color_oscuro.png

... nil

function BuildMenu()

local oMenu

MENU oMenu
MENUITEM "&Files"
ENDMENU

return oMenu

function BuildBar( oWnd )

local oBar

DEFINE BUTTONBAR oBar OF oWnd 3D SIZE 70, 70

return nil
test.rc
background BITMAP c:\fwh64\bitmaps\backgrnd\iosbg.bmp


Hola buenas noches, estamos ...

... icons\fax.ico"

DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 MDI ;
TITLE "FiveWin sample" ;
MENU BuildMenu() ;
COLOR "B/W" ICON oIco

// DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd
DEFINE BUTTONBAR oBar BUTTONSIZE 64, 52 _3DLOOK TOP OF oWnd 2007

WITH OBJECT oBar // VER: ANCHO.PRG

oBar ...

Las dimensiones de los botones de la barra de botones se establecen aqui:

DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd

cambia el 26 y 27 por otros valores

En que resolución de pantalla estas trabajando ?

... icons\fax.ico"

DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
TITLE "FiveWin sample" ;
MENU BuildMenu() ;
COLOR "B/W" ;
ICON oIco

DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd

DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ;
ACTION MsgInfo( "New" ) ;
TOOLTIP "Creates a ...