Type | Description | |||
Part as BackgroundPartEnum | A BackgroundPartEnum expression that indicates the part to be changed | |||
Color | A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part. |
The following screen shot shows the check-boxes, as they are shown by default:
The following screen shot shows the check-boxes, as once a new visual appearance is applied:
The following samples show how you can change the visual appearance of the check-boxes:
VB6,VBA (MS Access, Excell...),VB.NET for /COM
With CreateObject("Exontrol.ContextMenu") With .VisualAppearance .Add 1,"gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" & _ "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" & _ "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" & _ "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" & _ "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" & _ "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" & _ "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" & _ "Xg8hmXBThYahCFAECAg==" .Add 2,"gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" & _ "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" & _ "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" & _ "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" & _ "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" & _ "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA=" End With .Background(70) = &H2000000 .Background(71) = &H1000000 .SelBackColor = RGB(240,240,240) .SelForeColor = RGB(0,0,0) With .Items .Add("Check 1",0).Check = 1 With .Add("Check 2",0) .Check = 2 .Checked = True End With End With .Select End With
VB.NET
' Add 'exontrol.excontextmenu.dll' reference to your project. With New exontrol.EXCONTEXTMENULib.excontextmenu() With .VisualAppearance .Add(1,"gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" & _ "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" & _ "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" & _ "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" & _ "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" & _ "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" & _ "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" & _ "Xg8hmXBThYahCFAECAg==") .Add(2,"gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" & _ "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" & _ "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" & _ "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" & _ "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" & _ "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA=") End With .set_Background32(70,&H2000000) .set_Background32(71,&H1000000) .SelBackColor = Color.FromArgb(240,240,240) .SelForeColor = Color.FromArgb(0,0,0) With .Items .Add("Check 1",0).Check = True With .Add("Check 2",0) .Check = True .Checked = True End With End With .Select() End With
C++
/* Includes the definition for CreateObject function like follows: #include <comdef.h> IUnknownPtr CreateObject( BSTR Object ) { IUnknownPtr spResult; spResult.CreateInstance( Object ); return spResult; }; */ /* Copy and paste the following directives to your header file as it defines the namespace 'EXCONTEXTMENULib' for the library: 'ExContextMenu 1.0 Type Library' #import <ExContextMenu.dll> using namespace EXCONTEXTMENULib; */ EXCONTEXTMENULib::IExContextMenuPtr var_ExContextMenu = ::CreateObject(L"Exontrol.ContextMenu"); EXCONTEXTMENULib::IAppearancePtr var_Appearance = var_ExContextMenu->GetVisualAppearance(); var_Appearance->Add(1,_bstr_t("gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL") + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" + "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" + "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" + "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" + "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" + "Xg8hmXBThYahCFAECAg=="); var_Appearance->Add(2,_bstr_t("gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL") + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" + "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" + "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" + "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA="); var_ExContextMenu->PutBackground(EXCONTEXTMENULib::exCheckBoxState0,0x2000000); var_ExContextMenu->PutBackground(EXCONTEXTMENULib::exCheckBoxState1,0x1000000); var_ExContextMenu->PutSelBackColor(RGB(240,240,240)); var_ExContextMenu->PutSelForeColor(RGB(0,0,0)); EXCONTEXTMENULib::IItemsPtr var_Items = var_ExContextMenu->GetItems(); var_Items->Add(L"Check 1",long(0),vtMissing)->PutCheck(VARIANT_TRUE); EXCONTEXTMENULib::IItemPtr var_item = var_Items->Add(L"Check 2",long(0),vtMissing); var_item->PutCheck(VARIANT_TRUE); var_item->PutChecked(VARIANT_TRUE); var_ExContextMenu->Select(vtMissing,vtMissing,vtMissing);
C++ Builder
/* Select the Component\Import Component...\Import a Type Library, to import the following Type Library: ExContextMenu 1.0 Type Library TypeLib: e:\Exontrol\ExContextMenu\project\Site\ExContextMenu.dll to define the namespace: Excontextmenulib_tlb */ //#include "EXCONTEXTMENULIB_TLB.h" Excontextmenulib_tlb::IExContextMenuPtr var_ExContextMenu = Variant::CreateObject(L"Exontrol.ContextMenu"); Excontextmenulib_tlb::IAppearancePtr var_Appearance = var_ExContextMenu->VisualAppearance; var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL") + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" + "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" + "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" + "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" + "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" + "Xg8hmXBThYahCFAECAg==")); var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL") + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" + "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" + "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" + "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA=")); var_ExContextMenu->set_Background(Excontextmenulib_tlb::BackgroundPartEnum::exCheckBoxState0,0x2000000); var_ExContextMenu->set_Background(Excontextmenulib_tlb::BackgroundPartEnum::exCheckBoxState1,0x1000000); var_ExContextMenu->SelBackColor = RGB(240,240,240); var_ExContextMenu->SelForeColor = RGB(0,0,0); Excontextmenulib_tlb::IItemsPtr var_Items = var_ExContextMenu->Items; var_Items->Add(L"Check 1",TVariant(0),TNoParam())->Check = true; Excontextmenulib_tlb::IItemPtr var_item = var_Items->Add(L"Check 2",TVariant(0),TNoParam()); var_item->Check = true; var_item->Checked = true; var_ExContextMenu->Select(TNoParam(),TNoParam(),TNoParam());
C#
// Add 'exontrol.excontextmenu.dll' reference to your project. exontrol.EXCONTEXTMENULib.excontextmenu var_ExContextMenu = new exontrol.EXCONTEXTMENULib.excontextmenu(); exontrol.EXCONTEXTMENULib.Appearance var_Appearance = var_ExContextMenu.VisualAppearance; var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" + "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" + "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" + "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" + "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" + "Xg8hmXBThYahCFAECAg=="); var_Appearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" + "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" + "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" + "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA="); var_ExContextMenu.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,0x2000000); var_ExContextMenu.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,0x1000000); var_ExContextMenu.SelBackColor = Color.FromArgb(240,240,240); var_ExContextMenu.SelForeColor = Color.FromArgb(0,0,0); exontrol.EXCONTEXTMENULib.Items var_Items = var_ExContextMenu.Items; var_Items.Add("Check 1",0,null).Check = true; exontrol.EXCONTEXTMENULib.item var_item = var_Items.Add("Check 2",0,null); var_item.Check = true; var_item.Checked = true; var_ExContextMenu.Select(null,null,null);
C# for /COM
// Add 'ExContextMenu 1.0 Type Library' reference to your project. EXCONTEXTMENULib.ExContextMenu var_ExContextMenu = new EXCONTEXTMENULib.ExContextMenu(); EXCONTEXTMENULib.Appearance var_Appearance = var_ExContextMenu.VisualAppearance; var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfT" + "cBpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4" + "qFaa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpg" + "geYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgi" + "sYRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEk" + "Xg8hmXBThYahCFAECAg=="); var_Appearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZL" + "iEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJh" + "nIapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fT" + "cBpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQo" + "xAOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAq" + "l0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA="); var_ExContextMenu.set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,0x2000000); var_ExContextMenu.set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,0x1000000); var_ExContextMenu.SelBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(240,240,240)); var_ExContextMenu.SelForeColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(0,0,0)); EXCONTEXTMENULib.Items var_Items = var_ExContextMenu.Items; var_Items.Add("Check 1",0,null).Check = true; EXCONTEXTMENULib.item var_item = var_Items.Add("Check 2",0,null); var_item.Check = true; var_item.Checked = true; var_ExContextMenu.Select(null,null,null);
X++ (Dynamics Ax 2009)
COM com_Appearance,com_ExContextMenu,com_Items,com_item; anytype var_Appearance,var_ExContextMenu,var_Items,var_item; str var_s,var_s1; ; // Add 'ExContextMenu 1.0 Type Library' reference to your project. var_ExContextMenu = COM::createFromObject(new EXCONTEXTMENULib.excontextmenu()); com_ExContextMenu = var_ExContextMenu; var_Appearance = com_ExContextMenu.VisualAppearance(); com_Appearance = var_Appearance; var_s = "gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi"; var_s = var_s + "EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn"; var_s = var_s + "IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfTc"; var_s = var_s + "BpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4q"; var_s = var_s + "Faa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpgg"; var_s = var_s + "eYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgis"; var_s = var_s + "YRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEkX"; var_s = var_s + "g8hmXBThYahCFAECAg=="; com_Appearance.Add(1,COMVariant::createFromStr(var_s)); var_s1 = "gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi"; var_s1 = var_s1 + "EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn"; var_s1 = var_s1 + "IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fTc"; var_s1 = var_s1 + "BpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQox"; var_s1 = var_s1 + "AOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAql"; var_s1 = var_s1 + "0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA="; com_Appearance.Add(2,COMVariant::createFromStr(var_s1)); com_ExContextMenu.Background(70/*exCheckBoxState0*/,0x2000000); com_ExContextMenu.Background(71/*exCheckBoxState1*/,0x1000000); com_ExContextMenu.SelBackColor(WinApi::RGB2int(240,240,240)); com_ExContextMenu.SelForeColor(WinApi::RGB2int(0,0,0)); var_Items = com_ExContextMenu.Items(); com_Items = var_Items; var_item = COM::createFromObject(com_Items.Add("Check 1",COMVariant::createFromInt(0))); com_item = var_item; com_item.Check(1); var_item = com_Items.Add("Check 2",COMVariant::createFromInt(0)); com_item = var_item; com_item.Check(2); com_item.Checked(true); com_ExContextMenu.Select();
Delphi 8 (.NET only)
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu')) as EXCONTEXTMENULib.ExContextMenu) do begin with VisualAppearance do begin Add(1,'gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi' + 'EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn' + 'IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfTc' + 'BpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4q' + 'Faa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpgg' + 'eYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgis' + 'YRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEkX' + 'g8hmXBThYahCFAECAg=='); Add(2,'gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi' + 'EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn' + 'IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fTc' + 'BpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQox' + 'AOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAql' + '0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA='); end; Background[70] := $2000000; Background[71] := $1000000; SelBackColor := $f0f0f0; SelForeColor := $0; with Items do begin Add('Check 1',TObject(0),Nil).Check := True; with Add('Check 2',TObject(0),Nil) do begin Check := True; Checked := True; end; end; Select(Nil,Nil,Nil); end;
Delphi (standard)
with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu'))) as EXCONTEXTMENULib_TLB.ExContextMenu) do begin with VisualAppearance do begin Add(1,'gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi' + 'EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn' + 'IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfTc' + 'BpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4q' + 'Faa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpgg' + 'eYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgis' + 'YRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEkX' + 'g8hmXBThYahCFAECAg=='); Add(2,'gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi' + 'EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn' + 'IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fTc' + 'BpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQox' + 'AOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAql' + '0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA='); end; Background[70] := $2000000; Background[71] := $1000000; SelBackColor := $f0f0f0; SelForeColor := $0; with Items do begin Add('Check 1',OleVariant(0),Null).Check := True; with Add('Check 2',OleVariant(0),Null) do begin Check := True; Checked := True; end; end; Select(Null,Null,Null); end;
VFP
with CreateObject("Exontrol.ContextMenu") with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAEGg4BVMMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi" var_s = var_s + "EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn" var_s = var_s + "IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYYhOZYfTc" var_s = var_s + "BpbT7CS40JhNEbvJqcZxpT56IwhPZdQrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXStappQ7HKJyOo6NguE6BLLidQaHoya4q" var_s = var_s + "Faa4xHsOZMi8P4jHwbZ4DQRZOj+EIsGKc46n0NYumUYgHmyPg5n4JhPh+CQVnacp1xCLRXj4E5vFaBpIAQcIAk4GAVFoKpgg" var_s = var_s + "eYBWCkIJDE4Dh8kYRw8FOBJYFOZgWFaCYIGSd4GluIpeB6AoMliBgbD2XJxnYJhhEyOIll4boMBiNBYguXhxgmaQ6lyeAgis" var_s = var_s + "YRGAiZY8gqWJznYPhvB0URoH6EJaiYRRXCCZIGGIShhmIYZ0nCE5LGkRBbhSmJWEYXwbBGWhahKWRpGgdhsFWIxmGIGJmEkX" var_s = var_s + "g8hmXBThYahCFAECAg==" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAEGg4BJkMQAAYAQGKIYBkAKBQAGaAoDDcNgwQwAAwjIKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLi" var_s1 = var_s1 + "EZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLiIZZUh+TQAA7CNQzVBNFL/K4AKrfeJ5AiACIJFAaJhn" var_s1 = var_s1 + "IapZDKGKQAKhQgiNqqGg2QiKFRXHSgMQuaClKbiaqqaTGfh7YAUGBEbgmC4NQjB0QHXbyYz5R6EayQfI8HxXFqXYZkaD4fTc" var_s1 = var_s1 + "BpbT7CS40JhNEbvJqcZxpT56IwmRC5QrPVZrKCcLwVSa3ahuO5bOxOC4XWaBcRwXSta4XD6qYTiPAVTw3G6bSrlea6LauQox" var_s1 = var_s1 + "AOap0nmXYIE8Y4zkabZAkofgsCuZ5Ll6VB5F8OBfBET4WH2d5hFkfwvD4c5kkuQp7k+PI1F+cwKGAf5bkeHY8H+RgGBWfAql" var_s1 = var_s1 + "0FRcgOApZggNgOgKSA2HGERjlsEZaBaA4ZGgWB2GwW4oE2dIHleRAlAEgIA=" .Add(2,var_s1) endwith .Background(70) = 0x2000000 .Background(71) = 0x1000000 .SelBackColor = RGB(240,240,240) .SelForeColor = RGB(0,0,0) with .Items .Add("Check 1",0).Check = 1 with .Add("Check 2",0) .Check = 2 .Checked = .T. endwith endwith .Select() endwith