Poner button de buttonbar en otra posicion

[Francisco Horta]

Hola foro,
Tengo creada una buttonbar en mi windows mdi principal, tengo 5 botones, pero a partir del 6 quiero ponerlo mas a la derecha, no quiero que salga enseguida del 5, como hacerlo?
gracias
paco

[Celes]

Hola Francisco,

Aqui tienes un ejemplo:


//--------------------------------------------------------------------
Function WW1()

Define WINDOW W1 TITLE "PRUEBA" ;
FROM 118, 266 to 561, 801 PIXEL COLOR 0, 14215660

ACTIVATE WINDOW W1 ON INIT BTB()

Return NIL

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

Function BTB()


DEFINE BUTTONBAR oBar OF W1 _3D Size 030, 030

DEFINE BUTTON oBtb1 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb1:nWidth := 025
oBtb1:nHeight := 025
oBtb1:nTop := 003
oBtb1:nLeft := 011
oBtb1:cToolTip := ""

DEFINE BUTTON oBtb2 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb2:nWidth := 025
oBtb2:nHeight := 025
oBtb2:nTop := 003
oBtb2:nLeft := 042
oBtb2:cToolTip := ""

DEFINE BUTTON oBtb3 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb3:nWidth := 025
oBtb3:nHeight := 025
oBtb3:nTop := 003
oBtb3:nLeft := 073
oBtb3:cToolTip := ""

DEFINE BUTTON oBtb4 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb4:nWidth := 025
oBtb4:nHeight := 025
oBtb4:nTop := 003
oBtb4:nLeft := 104
oBtb4:cToolTip := ""

DEFINE BUTTON oBtb5 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb5:nWidth := 025
oBtb5:nHeight := 025
oBtb5:nTop := 003
oBtb5:nLeft := 137
oBtb5:cToolTip := ""

DEFINE BUTTON oBtb6 OF oBar;
FILE "C:\res\azules.jpg";
ACTION NIL
oBtb6:nWidth := 025
oBtb6:nHeight := 025
oBtb6:nTop := 003
oBtb6:nLeft := 478
oBtb6:cToolTip := ""

Return NIL

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

Saludos

[gdeteran]

Tambien lo puedes hacer con la clausula SEPARATOR entre la deficinicion de un boton y el siguiente

[Francisco Horta]

Gonzalo, gracias de hecho asi lo hago nomas que pinta una linea y esa opcion no me gusta, tendria que meter muchos addseparator y ps se veirian mcha lineas.
Celes, no me funciono, uso toolbar
saludos
gracias a ambos, creo voy a teneer que usar un solo addseparator, no hay de otra.

[acuellar]

Francisco

Intenta asi:

Code: Select all  Expand view

DEFINE BUTTONBAR oBar OF oWnd SIZE 31,31 2007

DEFINE BUTTON OF oBar RESOURCE "B-Salir1","B-Salir2" TOOLTIP "F4 Finalizar" MESSAGE "Finalizar"  ACTION (Final(.F.))

@04,oBar:nWidth()-30 BTNBMP oBtn RESOURCE "B-Calen1","B-Calen2" OF oBar SIZE 24,20 NOBORDER ACTION ( FecPro( ) )

 

Saludos

Adhemar