FiveTech Software tech support forums

... 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:bClrGrad := aPubGrad
// oBar:SetFont( oFont )
oBar:nClrText := CLR ...

... create a ButtonBar in a specific location in the Window?

The wiki shows:
@ <nRow>, <nCol> BUTTONBAR [<oBar>];
[SIZE <nWidth>, <nHeight>];
[BUTTONSIZE <nBtnWidth>, <nBtnHeight>];
[3D | 3DLOOK | _3D | _3DLOOK];
[TOP | LEFT | RIGHT | BOTTOM | FLOAT];
[OF | WINDOW | DIALOG <oWnd>];
[CURSOR ...

I found the problem ( bitmap resized / adjusted to buttonsize )
You will get a bad quality in case the button-resource < bitmap-resource
I adjusted the bitmap-resource-size and it works.
To keep the bitmaps just increase the button-resource-size

http&#58;//www&#46;pflegeplus&#46;com/IMAGES/Btnbmp4 ...

... 3D SIZE 26, 84

oBar:bLClicked := { || NIL }
oBar:bRClicked := { || NIL }

@ -1, -1 BUTTONBAR ::oBar1 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27
//sample button
DEFINE BUTTON RESOURCE "RTFNEW" OF ::oBar1 GROUP ;
MESSAGE "Creates a new document" ;
TOOLTIP "New" NOBORDER ...

... 3D SIZE 26, 84

oBar:bLClicked := { || NIL }
oBar:bRClicked := { || NIL }

@ -1, -1 BUTTONBAR ::oBar1 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27


here the buttons of ::oBar1

::oBar1:bLClicked := { || NIL }
::oBar1:bRClicked := { || NIL }

AEval( ::oBar1:aControls, { |x| x ...

... 3D SIZE 26, 84

oBar:bLClicked := { || NIL }
oBar:bRClicked := { || NIL }

@ -1, -1 BUTTONBAR ::oBar1 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27


DEFINE BUTTON RESOURCE "RTFCut" OF ::oBar1 GROUP ;
MESSAGE "Cuts the selection and puts it on the Clipboard" ;
TOOLTIP "Cut" NOBORDER ...

thanks
and I can erase border of the bar ?
I make

@ oRtf:nTop,oRtf:nLeft BUTTONBAR oBarMemo ;
SIZE oRtf:nWidth+100,27 ;
BUTTONSIZE 26, 27;
OF oWnd ;
CURSOR oCursor

oBarMemo:lborder:= .f.


but not run ok because I see all ways the border ( on fivewin.ch the command @ x,y buutonbar buttonsize ...

... lBullet := .F.,;
lNumber := .F.



DEFINE CURSOR oCursor HAND


@ oRtf:nTop,oRtf:nLeft BUTTONBAR oBarMemo ;
SIZE oRtf:nWidth+100,27 3D;
BUTTONSIZE 26, 27;
OF oWnd ;
CURSOR oCursor

DEFINE BUTTON oBtn OF oBarMemo ;
MESSAGE "Create a new file" TOOLTIP "New" NOBORDER ;
ACTION oRTF:SetText ...

... lBold := .F., lItalic := .F., lUnderline := .F., lBullet := .F.,;
lNumber := .F.

DEFINE CURSOR oCursor HAND

@ 90,110 BUTTONBAR oBar OF oWnd BUTTONSIZE 26, 27


return nil




it make error
&#91;code&#93;Application===========&nbsp; &nbsp;Path and name: F:\Versioni_Invio_Mail\Mail\ut_mail.Exe ...

... TGet

September 2015
==============
* Enhancement: Command ButtonBar of Fivewin.ch

#xcommand DEFINE BUTTONBAR [ <oBar> ] ;
[ <size: SIZE, BUTTONSIZE, SIZEBUTTON > <nWidth>, <nHeight> ] ;
[ <_3d: _3D, 3D, 3DLOOK, _3DLOOK> ] ;
[ <mode: TOP, LEFT, RIGHT, BOTTOM, FLOAT> ] ;
[ <wnd: OF, WINDOW ...

... not included in the sample < metrptst.prg >

I found a solution, to create a new menu from a submenu-button ( NOT startpage )
and to change the buttonsize as well :

http&#58;//www&#46;pflegeplus&#46;com/IMAGES/metro8&#46;jpg

called from submenu-button < Index >

STATIC FUNCTION NEUINDEX(oWnd ...

... and so buttons on the buttonbar, eg. bmp, png, ico, gif, jpg, etc (acceptable by freeimage). Larger image files will be reduced to fit the buttonsize, if necessary. It is also possible to specify a bitmap handle of memory buffer of an image.
In addition an exe file also can be specified and in ...

Some small changes :
changed buttonsize, defined a font and added cursor HAND as a test

http&#58;//www&#46;pflegeplus&#46;com/IMAGES/Pickcolor3&#46;jpg

#include "fivewin.ch"#include "constant.ch"FUNCTION MAIN&#40;&#41; MsgInfo&#40; PICK_COLOR&#40;&#41; &#41;RETURN NIL// ------------------FUNCTION ...

Hola,

He estado probando los estilos con la ButtonBar, así:

DEFINE BUTTONBAR oBar BUTTONSIZE 64,64 TOP OF ::oFldPermisos:aDialogs[1] CURSOR oHand 2013

Sin estilo, sale el normal de win98, 2007 y 2010, son bonitos pero creo que son idénticos. Y por último el 2013 funciona como win98 también.

Dejo ...

... valid values are 97, 2007, 2010. If specified, this style is used for creating the ButtonBar.

3. aBtnSize: Array of { nWidth, nHeight } of the buttonsize. If specified, rprevifew uses this size for buttonbar buttons.

For examples of how to use this functions, please see these postings:
http ...