Mas funciones para la toolbar

[mastintin]

Nuevas funciones para la toolbar . La primera añade un separador . la tercera un espacio y la segunda un espacioflex .
Dejo aunsin publicar la funcion de busquedas hasta que quede mas claro la mejor manera de inplementarla .

El código para la lcase :

Code: Select all  Expand view

  METHOD AddSeparator() INLINE  AAdd( ::aButtons, TToolBarBtn():Separator( Self ) )
   METHOD AddSpaceFlex() INLINE  AAdd( ::aButtons, TToolBarBtn():Spaceflex( Self ) )  
   METHOD AddSpace() INLINE  AAdd( ::aButtons, TToolBarBtn():Space( Self ) )
 

para la clase btntoolbar

Code: Select all  Expand view

METHOD SEPARATOR( oToolBar ) CLASS TToolBarBtn

   ::oToolBar = oToolBar
   ::hWnd     = TBRADDSEPARATOR( oToolBar:hWnd, Len( oToolBar:aButtons ) )
   
return Self   
   

METHOD SpaceFlex( oToolBar ) CLASS TToolBarBtn

   ::oToolBar = oToolBar
   ::hWnd     = TBRAddSpaceFlex( oToolBar:hWnd, Len( oToolBar:aButtons ) )
   
return Self

METHOD Space( oToolBar ) CLASS TToolBarBtn

   ::oToolBar = oToolBar
   ::hWnd     = TBRAddSpace( oToolBar:hWnd, Len( oToolBar:aButtons ) )
   
return Self 

 

El codigo para toolbars.m

Code: Select all  Expand view

HB_FUNC( TBRADDSEPARATOR )
{
   
    ToolBar * toolbar = ( ToolBar * ) hb_parnl( 1 );
   
     NSToolbarItem * item;
   
    [ toolbar insertItemWithItemIdentifier : NSToolbarSeparatorItemIdentifier atIndex : hb_parnl( 2 ) ];
    item = [ [ toolbar items ] objectAtIndex : hb_parnl( 2 ) ];
   
    hb_retnl( ( LONG ) item );
}  

HB_FUNC( TBRADDSPACEFLEX )
{
   
    ToolBar * toolbar = ( ToolBar * ) hb_parnl( 1 );
   
    NSToolbarItem * item;
   
    [ toolbar insertItemWithItemIdentifier : NSToolbarFlexibleSpaceItemIdentifier atIndex : hb_parnl( 2 ) ];
    item = [ [ toolbar items ] objectAtIndex : hb_parnl( 2 ) ];
   
    hb_retnl( ( LONG ) item );
}

HB_FUNC( TBRADDSPACE )
{
   
    ToolBar * toolbar = ( ToolBar * ) hb_parnl( 1 );
   
    NSToolbarItem * item;
   
    [ toolbar insertItemWithItemIdentifier : NSToolbarSpaceItemIdentifier atIndex : hb_parnl( 2 ) ];
    item = [ [ toolbar items ] objectAtIndex : hb_parnl( 2 ) ];
   
    hb_retnl( ( LONG ) item );
}
 

[mastintin]

Ampliación del tema con unas cuantas funciones mas :

En toolbtn.prg :

Code: Select all  Expand view

 METHOD Disable() INLINE TbrItemDisable( ::hWnd )
   METHOD Enable() INLINE TbrItemEnable( ::hWnd )  
   METHOD ChangeLabel( cPrompt )
   METHOD ChangeTooltip( cTooltip )


METHOD ChangeLabel( cPrompt ) CLASS TToolBarBtn
    ::cPrompt :=  cPrompt
    TbrChangeItemLabel(::hWnd,cPrompt )
return nil


METHOD ChangeTooltip( cTooltip ) CLASS TToolBarBtn
    ::cTooltip :=  cToolTip
    TbrChangeItemTooltip(::hWnd,cTooltip )
return nil

 

en toolbar.prg

Code: Select all  Expand view

 METHOD GetItem(nAt) INLINE ::aButtons[nAt]
 

en toolbar.m

Code: Select all  Expand view

HB_FUNC( TBRCHANGEITEMLABEL )
{
    NSToolbarItem * item =( NSToolbarItem  * ) hb_parnl( 1 );   
    NSString * label = [ [ [ NSString alloc ] initWithCString: ISCHAR( 2 ) ? hb_parc( 2 ) : "" ] autorelease ];
    [ item setLabel : label ];
}  

HB_FUNC( TBRCHANGEITEMTOOLTIP )
{
    NSToolbarItem * item =( NSToolbarItem  * ) hb_parnl( 1 );   
    NSString * cToolTip = [ [ [ NSString alloc ] initWithCString: ISCHAR( 2 ) ? hb_parc( 2 ) : "" ] autorelease ];
    [ item setToolTip : cToolTip ];
}  

HB_FUNC( TBRITEMDISABLE )
{
    NSToolbarItem * item =( NSToolbarItem  * ) hb_parnl( 1 );
     [  item setEnabled : NO ]; 
}  

HB_FUNC( TBRITEMENABLE )
{
        NSToolbarItem * item =( NSToolbarItem  * ) hb_parnl( 1 );
        [  item setEnabled : YES ]; 
}  

 

[Antonio Linares]

Manuel,

Gracias!