FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Cursor de mouse en ToolBar
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Cursor de mouse en ToolBar
Posted: Tue Nov 17, 2009 01:33 PM
Estimados;
Cuando usaba BUTTONBAR hacia
Code (fw): Select all Collapse
聽DEFINE CURSOR oCursor HAND
...
...
聽 聽for nFor:= 1 TO len(oBar:aControls)
聽 聽 聽 聽oBar:aControls[nFor]:oCursor:= oCursor
聽 聽next


Se puede haceer lo mismo con ToolBar?, como?

muchas gracias
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Cursor de mouse en ToolBar
Posted: Tue Nov 17, 2009 01:47 PM

MarioG,

En teor铆a deber铆a de funcionar como tienes el c贸digo.

William, Morales

Saludos



m茅xico.sureste
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Cursor de mouse en ToolBar
Posted: Wed Nov 18, 2009 11:46 AM

Gracias
Parece que no es tan as铆 (o no estoy procediendo bien); ya que si consulto oToolBar:aControls me devuelve nil

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Cursor de mouse en ToolBar
Posted: Wed Nov 18, 2009 01:35 PM

Mario

Lo que has puesto esta correcto. Funciona perfecto.

Podr铆as poner algo mas de tu codigo

Saludos

Adhemar

Saludos,



Adhemar C.
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Cursor de mouse en ToolBar
Posted: Thu Nov 19, 2009 12:21 PM
ACuellar, gracias por tu inter茅s

Code (fw): Select all Collapse
static procedure BarraBot( oWChld, oBrw, oDbAct, nEsArea, bBrowse2 )
local oImgLst , ;
聽 聽 聽 oReBar 聽, ;
聽 聽 聽 oToolBar, ;
聽 聽 聽 oCursor , ;
聽 聽 聽 nFor

聽 聽// Cursor mouse
聽 聽DEFINE CURSOR oCursor HAND

聽 聽// Imagenes
聽 聽oImgLst:= TImageList():New( 32, 32 )
聽 聽oImgLst:AddMasked( TBitmap():Define( "bmp_Agrega",, oWChld ), "bmp_Trans32" )
聽 聽if nEsArea == DB_FAMILIAS .or. nEsArea == DB_RUBROS
聽 聽 聽 oImgLst:AddMasked( TBitmap():Define( "bmp_BuscaGL",, oWChld ), "bmp_Trans32" )
聽 聽end
聽 聽oImgLst:AddMasked( TBitmap():Define( "bmp_Fin",, oWChld ), "bmp_Trans32" )

聽 聽// Botones
聽 聽oReBar:= TReBar():New( oWChld )
聽 聽oToolBar:= TToolBar():New( oReBar, 50, 50, oImgLst, TRUE )
聽 聽oToolBar:nWidth:= 400

聽 聽oToolBar:AddButton( { || ap_Abms( oBrw, oDbAct, oDbAct, TRUE, nEsArea) }, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽"Agrega "+if( nEsArea == DB_FAMILIAS, "Familia", ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽if( nEsArea == DB_RUBROS, 聽 "Rubros" , ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽if( nEsArea == DB_OBRAS, 聽 聽"Obras", "Proveedores" ))), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽"Agrega" )
聽 聽if nEsArea == DB_FAMILIAS .or. nEsArea == DB_RUBROS
聽 聽 聽 oToolBar:AddButton( { || BusquedaGlb( oWchld, oDbAct, oBrw, bBrowse2, if( nEsArea==DB_FAMILIAS, DB_INSUMOS, DB_ITEMS ) ) }, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "Busqueda Avanzada de "+if( nEsArea == DB_FAMILIAS, "Insumo", "Item" ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "Busca" )
聽 聽end
聽 聽oToolBar:AddButton( { || oWChld:End() }, "Cierra Tabla", "Cierra" )

聽 聽oReBar:InsertBand( oToolBar )
聽 聽
聽 聽for nFor:= 1 TO Len(oToolBar:aControls)
聽 聽 聽 聽oToolBar:aControls[nFor]:oCursor:= oCursor
聽 聽next

// Fin


Este es, parte, del error.log

    Applicaci贸n
    ___________________________________________________

    Ubicaci贸n y Nombre : D:\mgIdeas\SiGIC\GPCC\mgpcc32.exe (32 bits)
    Tama帽o de la Aplicacion: 1,827,840 bytes

    Estaci贸n de Trabajo: VIAS_M1
    Usuario en Sesi贸n: mariog
    Ocurrido el: 19 NOV'2009
    Ocurrido a las: 09:08:42
    Transcurrido desde el inicio: 0 hours 0 mins 4 secs

    Descripci贸n de Error generado:
    ___________________________________________________

    Error BASE/1111 Error de argumento: LEN
    Args:
    [ 1] = U


    Llamadas al Stack:
    ___________________________________________________

    Llamado desde: LEN(0)
    Llamado desde: Ap_brow1.prg BARRABOT(360)
    Llamado desde: Ap_brow1.prg AP_BROWSE1(218)
    Llamado desde: Ap_main.prg (b)MAINMENU(73)
    Llamado desde: MENU.prg TMENU:COMMAND(407)
    Llamado desde: WINDOW.prg TWINDOW:COMMAND(932)
    Llamado desde: MDIFRAME.prg TMDIFRAME:COMMAND(229)
    Llamado desde: TMDIFRAME:HANDLEEVENT(0)
    Llamado desde: WINDOW.prg _FWH(3128)
    Llamado desde: WINRUN(0)
    Llamado desde: WINDOW.prg TMDIFRAME:ACTIVATE(881)
    Llamado desde: Ap_main.prg AP_MAIN(55)
    [/list:u]

    Poniendo, antes del for - next:
    ? Valtype(oToolBar:aControls)
    me devuelve "U"
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions