topic-17096

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

ToolBar - Posición de primer boton
Posted: Tue Oct 20, 2009 11:50 PM

Estimados
Entiendo que no es para lo que se crea una ToolBar; pero bue...
Tengo un ventana con Splitter y a la izquierda, lo que muestro no está previsto que lleve botones.
La idea es que lo que mostraré a la derecha del Splitter si lo lleve. Entonces, pretendo que el primer botón se muestre desde la derecha del separador splitter
definí oToolBar:nLeft:= nn, pero al ejecutarlo sitúa el primer botón sobre el margen izquierdo.
Se puede hacer lo que pretendo?

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: ToolBar - Posición de primer boton
Posted: Tue Sep 02, 2014 01:25 AM

pudiste solucionarlo?
lo necesito.
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: ToolBar - Posición de primer boton
Posted: Tue Sep 02, 2014 01:34 AM

Si... medio rebuscado peero salio
Mañana te paso lo tengo en la PC del laburo

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: ToolBar - Posición de primer boton
Posted: Tue Sep 02, 2014 10:23 AM

MarioG wrote:Si... medio rebuscado peero salio
Mañana te paso lo tengo en la PC del laburo

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: ToolBar - Posición de primer boton
Posted: Tue Sep 02, 2014 02:26 PM

Gus;
Espero que me entiendas, porque desde 2008 que no toco esto y... bue... la memoria no es la misma de antes

(abajo la figura de como se ve)

hP2:= h0:nFirst+( ( GetsysMetrics( _SCR_ANCHO ) - h0:nFirst ) - _WIDTH_BRW2 ) / 2
hP2:nTop := 10

Para aclarar:
h0 es una variable GLOBAL STATIC (xHarbour) o PUBLIC en HARBOUR
hP2 es una estatica en el .prg
Entonces lo que hice es pasar esos valores a un modulo donde genero la barra de botones

Code (fw): Select all Collapse

METHOD BarBotones( nModulo, nTop, nLeft )   CLASS  TCI_Rutinas
local oBtnFin, ;
      nIDIns

   @ nTop, nLeft SBUTTONBAR h0:oBar SIZE 72,37 3D OF h0:oWnd ;       // h0:oWnd es la ventana q contiene el splitter
                 BUTTONSIZE 64,31 ;
                 COLOR CLR_BLACK, CLR_NARFONDO1

   SWITCH nModulo
   CASE _MSTOCK
   ...
   CASE _MCTRLINS
   ...
   END
   // Comunes
   DEFINE SBUTTON OF h0:oBar ;
          ACTION  nIDIns:= ::aoQRY[_INS_DEFINE]:FieldGet( BRW1_IdIns ), ;
                  ::aoQRY[_INS_DEFINE]:Refresh(), ;
                  ::aoQRY[_INS_DEFINE]:Find( 1, nIDIns, TRUE ), ;
                  h0:oBrw2:SetFocus(), h0:oBrw2:Refresh ;
          PROMPT  "Refresca"        ;
          COLOR   {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) }, { CLR_NARFONDO1, CLR_NARFONDO2 } ;
          FONT    ::hFont["Arial12"] ;
          LOOK    W97

   DEFINE SBUTTON oBtnFin OF h0:oBar ;
          ACTION  h0:oBar:End(), ;
                  if( nModulo==_MSTOCK,   ( h0:oBrw2:Hide(), h0:ShowBrw2:= FALSE ), ;
                  if( nModulo==_MCTRLINS, ( h0:oBrw:Hide(), h0:SplitH:Hide(), h0:oLst:Hide(), h0:ShowBrw:= FALSE ), "" )) ;
          PROMPT  "Cierra"        ;
          COLOR   {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) }, { CLR_NARFONDO1, CLR_NARFONDO2 } ;
          FONT    ::hFont["Arial12"] ;
          LOOK    W97

   h0:oBar:nWidth:= oBtnFin:nWidth *if( nModulo==_MSTOCK, 5, if( nModulo==_MCTRLINS, 2, 1 )) + ;
                                    if( nModulo==_MSTOCK, 5*5, if( nModulo==_MCTRLINS, 11*2, 1 ))
   h0:oBar:Refresh()

   return( nil )
// Fin

Tambien, como veras, lo hice con la lib de SUPERBUTTON (de M.Mercado), supongo que sería lo mismo hacerlo con TOOLBAR de FW

se ve así: