COMUNIDAD. AUT. REG MURCIA
Original Message:
Sent: 04-24-2024 17:29
From: Mayca González Pérez
Subject: icon menu
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:
Sent: 04-23-2024 03:10
From: Peter Møller
Subject: icon menu
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
Original Message:
Sent: 04-22-2024 07:34
From: Mayca González Pérez
Subject: icon menu
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?aEielGroup = RbnCtrlGrpCollAddStrStr(EielGroupColl, "MBGroup", "EIEL")EielControlCol = GetRbnCtrlGrpCtrls(EielGroup)Dim DropArchivo as ThisDropArchivo = MICtrlCollAddStrStrInt(EielControlCol, "DropArchivo", "Archivo ", ControlType_DropDownButton)Dim DropControlArchivo as ThisDropControlArchivo = GetRbnDropDownCtrlCtrls(DropArchivo)Dim btnAbrirA, btnCerrarA, btnGuardarA, btnGuardarCA, btnENucleo, btnEMunicipio, btnIRegistro, btnImprimir, btnSalir, sepArchivo1, sepArchivo2, sepArchivo3, sepArchivo4 as ThisbtnAbrirA = 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
------------------------------