MapInfo Pro Developers User Group

 View Only

  • 1.  icon menu

    Posted 04-22-2024 07:34
    Edited by Peter Møller 04-23-2024 03:03
    Hello. I have this code where a menu is displayed, how can I configure the menu icon
    EielRTab = RbnTabCollAddStrStr (RibbonTabColl, "EIELTab", "EIEL")
EielGroupColl =  GetRbnTabGrps(EielRTab)

'a?dimos un grupo a la pesta?a
EielGroup = RbnCtrlGrpCollAddStrStr(EielGroupColl, "MBGroup", "EIEL")
EielControlCol = GetRbnCtrlGrpCtrls(EielGroup)

Dim DropArchivo as This
DropArchivo = MICtrlCollAddStrStrInt(EielControlCol, "DropArchivo", "Archivo    ", ControlType_DropDownButton)

Dim DropControlArchivo as This
DropControlArchivo = GetRbnDropDownCtrlCtrls(DropArchivo)

Dim btnAbrirA, btnCerrarA, btnGuardarA, btnGuardarCA, btnENucleo, btnEMunicipio, btnIRegistro, btnImprimir, btnSalir, sepArchivo1,  sepArchivo2, sepArchivo3, sepArchivo4 as This

btnAbrirA = MICtrlCollAddStrStrInt(DropControlArchivo, "OpenBtn", "Abrir", ControlType_Button)
Call SetRbnBtnCtrlSmallIcon(btnAbrirA, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Mapping/openFolder_16x16.png", 0))
Call SetRbnBtnCtrlCallingHandler (btnAbrirA, "Abrir") 

btnCerrarA = MICtrlCollAddStrStrInt(DropControlArchivo, "OpenBtn", "Cerrar", ControlType_Button)
Call SetRbnBtnCtrlSmallIcon(btnCerrarA, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Mapping/closeAll_16x16.png", 0))
Call SetRbnBtnCtrlCallingHandler (btnCerrarA, "Cerrar") 

sepArchivo1 = MICtrlCollAddStrStrInt(DropControlArchivo, "Sep", "Sep", ControlType_MenuItemSeparator) 

btnGuardarA = MICtrlCollAddStrStrInt(DropControlArchivo, "OpenBtn", "Guardar", ControlType_Button)
Call SetRbnBtnCtrlSmallIcon(btnGuardarA, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Mapping/saveAll_16x16.png", 0))
Call SetRbnBtnCtrlCallingHandler (btnGuardarA, "Guardar_Tablas") 

btnGuardarCA = MICtrlCollAddStrStrInt(DropControlArchivo, "OpenBtn", "Guardar copia como...", ControlType_Button)
Call SetRbnBtnCtrlSmallIcon(btnGuardarCA, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Mapping/saveCopyAs_16x16.png", 0))
Call SetRbnBtnCtrlCallingHandler (btnGuardarCA, "Guardar_Copia_Tabla")
    Thanks



    ------------------------------
    Mayca González Pérez
    COMUNIDAD. AUT. REG MURCIA
    ------------------------------



  • 2.  RE: icon menu

    Employee
    Posted 04-23-2024 03:10

    You can set the icon for the DropDown Button after creating it:

    Call SetRbnDropDownCtrlSmallIcon(DropArchivo, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Mapping/openFolder_16x16.png", 0))



    ------------------------------
    Peter Horsbøll Møller
    Principal Presales Consultant | Distinguished Engineer
    Precisely | Trust in Data
    ------------------------------



  • 3.  RE: icon menu

    Posted 04-23-2024 15:35

    Ok. 

    Thanks



    ------------------------------
    Mayca González Pérez
    COMUNIDAD. AUT. REG MURCIA
    ------------------------------

    Original Message


  • 4.  RE: icon menu

    Posted 04-24-2024 17:29 
    Another thing, how can I put an image from the icon.def file as an icon to a button and not URI

    

     Dim btnPunto, btnPuntoCoor as This
    

      btnPunto = MICtrlCollAddStrStrInt(EielControlColPunt, "Punto", "Punto", ControlType_ToolButton) 'ControlTypes are defined in Enums.def
    

     Call SetRbnToolBtnCtrlDrawMode(btnPunto, DM_CUSTOM_POINT) 'DrawModes are define din Icons.def
    

     Call SetRbnToolBtnCtrlCallingHandler(btnPunto, "Punto2")
    

     Call SetRbnToolBtnCtrlCursor(btnPunto, "3")
    

     Call SetRbnToolBtnCtrlIsLarge (btnPunto, TRUE)
    

     Call SetRbnToolBtnCtrlLargeIcon(btnPunto, New_Uri("pack://application:,,,/MapInfo.StyleResources;component/Images/Table/createPoints_32x32.png", 0))
    
?


    ------------------------------
    Mayca González Pérez
    COMUNIDAD. AUT. REG MURCIA
    ------------------------------

    Original Message


  • 5.  RE: icon menu

    Posted 04-25-2024 01:57 
    I already found the function

    Call SetRbnToolBtnCtrlLargeIcon(btnPuntoCoor, New_Uri("pack://legacyorigin:,,,/"&  MI_ICON_CROSSHAIR & ";Large", 0))    


    ------------------------------
    Mayca González Pérez
    COMUNIDAD. AUT. REG MURCIA
    ------------------------------

    Original Message