Page 1 of 1
Poner button de buttonbar en otra posicion
Posted: Fri Jan 29, 2010 5:44 pm
by 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
Re: Poner button de buttonbar en otra posicion
Posted: Sun Jan 31, 2010 1:06 am
by 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
Re: Poner button de buttonbar en otra posicion
Posted: Mon Feb 01, 2010 5:15 pm
by gdeteran
Tambien lo puedes hacer con la clausula SEPARATOR entre la deficinicion de un boton y el siguiente
Re: Poner button de buttonbar en otra posicion
Posted: Mon Feb 01, 2010 9:57 pm
by 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.
Re: Poner button de buttonbar en otra posicion
Posted: Tue Feb 02, 2010 12:02 pm
by acuellar
Francisco
Intenta asi:
Code: Select all | Expand
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