Vejam o vídeo aqui




Foi usado um plugin Ribbon





Script
-------------------->> OnCreate 
-----------------------------------------------------------------------------------------------------------------------------------------------------------------==
BaseCommandID = 100
BaseMenuID = 1000

function NewCommadID()
BaseCommandID = BaseCommandID + 1;
return BaseCommandID;
end
-----------------------------------------------------------------------------------------------------------------------------------------------------------------==
function NewMenuID()
BaseMenuID = BaseMenuID + 1;
return BaseMenuID;
end
-----------------------------------------------------------------------------------------------------------------------------------------------------------------==
RBNTAB_1 = NewCommadID();
RBNTAB_2 = NewCommadID();
RBNTAB_3 = NewCommadID();
RBNTAB_4 = NewCommadID();
RBNTAB_5 = NewCommadID();
RBNTAB_6 = NewCommadID();
-----------------------------------------------------------------------------------------------------------------------------------------------------------------==
GROUP_1 = NewCommadID();
GROUP_2 = NewCommadID();
GROUP_3 = NewCommadID();
GROUP_4 = NewCommadID();
GROUP_5 = NewCommadID();
GROUP_6 = NewCommadID();
-----------------------------------------------------------------------------------------------------------------------------------------------------------------==

ID_THEME_0 = NewCommadID();
ID_THEME_1 = NewCommadID();
ID_THEME_2 = NewCommadID();
ID_THEME_3 = NewCommadID();
ID_THEME_4 = NewCommadID();
ID_THEME_5 = NewCommadID();
ID_THEME_6 = NewCommadID();
ID_THEME_7 = NewCommadID();
ID_THEME_8 = NewCommadID();

ThemePath = _SourceFolder.."\\Temas\\"
tblThemes = {}
tblThemes[ID_THEME_1] = {Name="OFFICE 2007 BLUE",ThemeFile="Office2007.dll",IniFile="OFFICE2007BLUE.INI"}
tblThemes[ID_THEME_2] = {Name="OFFICE 2007 BLACK",ThemeFile="Office2007.dll",IniFile="OFFICE2007BLACK.INI"}
tblThemes[ID_THEME_3] = {Name="OFFICE 2007 AQUA",ThemeFile="Office2007.dll",IniFile="OFFICE2007AQUA.INI"}
tblThemes[ID_THEME_4] = {Name="OFFICE 2007 SILVER",ThemeFile="Office2007.dll",IniFile="OFFICE2007SILVER.INI"}
tblThemes[ID_THEME_5] = {Name="OFFICE 2010 SILVER",ThemeFile="Office2010.dll",IniFile="OFFICE2010SILVER.INI"}
tblThemes[ID_THEME_6] = {Name="OFFICE 2010 BLUE",ThemeFile="Office2010.dll",IniFile="OFFICE2010BLUE.INI"}
tblThemes[ID_THEME_7] = {Name="OFFICE 2010 BLACK",ThemeFile="Office2010.dll",IniFile="OFFICE2010BLACK.INI"}
tblThemes[ID_THEME_8] = {Name="WINDOWS 7 BLUE",ThemeFile="Windows7.dll",IniFile="WINDOWS7BLUE.INI"}



---------------------------------------------------------------------------------------------------------------
TabButtons = Ribbon.TabAddNew("Plugin1", "", RBNTAB_1);
Ribbon.TabSetVisible("Plugin1", RBNTAB_1, false);
if(TabButtons ~= 0) then
GroupButtons = Ribbon.AddGroup("Plugin1", TabButtons, "", GROUP_1, false);
if(GroupButtons ~= 0) then

BUTTON_1 = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_01.ico", BUTTON_1, 32, 32, ICONTYPE_ICO);------>> Cadastro de clientes	
Ribbon.AddButton("Plugin1", TARGETCTRL_RBNGROUP, GroupButtons, BUTTON_1, BUTTONTYPE_NORMAL, "Clientes", "Cadastro de clientes");
Ribbon.ControlSetWidth("Plugin1", BUTTON_1, 70);

BUTTON_2 = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_02.ico", BUTTON_2, 32, 32, ICONTYPE_ICO);------>> Cadastro de Fornecedores
Ribbon.AddButton("Plugin1", TARGETCTRL_RBNGROUP, GroupButtons, BUTTON_2, BUTTONTYPE_NORMAL, "Fornecedores", "Cadastro de Fornecedores");
Ribbon.ControlSetWidth("Plugin1", BUTTON_2, 70);


BUTTON_3 = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_03.ico", BUTTON_3, 32, 32, ICONTYPE_ICO);------>> Controle de estoque	
Ribbon.AddButton("Plugin1", TARGETCTRL_RBNGROUP, GroupButtons, BUTTON_3, BUTTONTYPE_NORMAL, "Estoque", "Controle de estoque");
Ribbon.ControlSetWidth("Plugin1", BUTTON_3, 70);

BUTTON_4 = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_04.ico", BUTTON_4, 32, 32, ICONTYPE_ICO);------>> Finanças livro caixa	
Ribbon.AddButton("Plugin1", TARGETCTRL_RBNGROUP, GroupButtons, BUTTON_4, BUTTONTYPE_NORMAL, "Finanças", "Finanças livro caixa");
Ribbon.ControlSetWidth("Plugin1", BUTTON_4, 70);



BUTTON_5 = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_25.ico", BUTTON_5, 32, 32, ICONTYPE_ICO);------>> Impressora Pre-visualizar
Ribbon.AddButton("Plugin1", TARGETCTRL_RBNGROUP, GroupButtons, BUTTON_5, BUTTONTYPE_NORMAL, "Impressora", "Pre-visualizar");
Ribbon.ControlSetWidth("Plugin1", BUTTON_5, 70);

end
end


-----------------------------------------------------------------------------------------------------------------------------------------------------------------==
SML_COLORBUTTON_BTN = NewCommadID();
SML_COLORBUTTON_SEL = NewCommadID();
SML_COLORBUTTON_MORE = NewCommadID();
Ribbon.AddIcon("Plugin1", "AutoPlay\\Images\\Icon\\Icon_34.ico", SML_COLORBUTTON_BTN, 32, 32, ICONTYPE_ICO)------>>Definir a cor de fundo
Ribbon.AddColorButton("Plugin1", TARGETCTRL_SHORTCUT, 0, SML_COLORBUTTON_BTN, "Cor de fundo", "Definir a cor de fundo.", SML_COLORBUTTON_SEL, SML_COLORBUTTON_MORE, "Mais cores..", 255);
nColor = INIFile.GetValue("Salvar Cor.ini", "Selecionar Cor", "Page1");-------->> Abrir Cor Salvo
if(nColor ~= nil) then
Ribbon.ControlSetColor("Plugin1", SML_COLORBUTTON_BTN, COLORFOR_BUTTON, nColor);
Ribbon.ControlSetColor("Plugin1", SML_COLORBUTTON_SEL, COLORFOR_PICKER, nColor);
Application.SetPageProperties("Menu", {BackgroundColor = nColor});
end
Ribbon.Redraw("Plugin1");



--------------------------------------->> OnCommand
if e_CommandID == BUTTON_1 then----------->> Comando para o Button_1
Dialog.Message("Clientes", "Cadastro de clientes", MB_OK, MB_ICONNONE, MB_DEFBUTTON2)
end

if e_CommandID == BUTTON_2 then----------->> Comando para o Button_2
Dialog.Message("Fornecedores", "Cadastro de Fornecedores", MB_OK, MB_ICONNONE, MB_DEFBUTTON2)
end

if e_CommandID == BUTTON_3 then----------->> Comando para o Button_3
Dialog.Message("Estoque", "Controle de estoque", MB_OK, MB_ICONNONE, MB_DEFBUTTON2)
end

if e_CommandID == BUTTON_4 then----------->> Comando para o Button_4
Dialog.Message("Finanças", "Finanças livro caixa", MB_OK, MB_ICONNONE, MB_DEFBUTTON2)
end


if e_CommandID == BUTTON_5 then----------->> Comando para o Button_5
Dialog.Message("Impressora", "Pre-visualizar", MB_OK, MB_ICONNONE, MB_DEFBUTTON2)
end

------------------------------ Cor de Fundo --------------------------------------------------------------
if (e_CommandID == COLORBUTTON_SEL) then ------------->> comandos para o COLORBUTTON_SEL
local nColor = Ribbon.ControlGetColor("Plugin1", COLORBUTTON_SEL, COLORFOR_PICKER);
Ribbon.ControlSetColor("Plugin1", COLORBUTTON_BTN, COLORFOR_BUTTON, nColor);
Application.SetPageProperties("Menu", {BackgroundColor = nColor});
INIFile.SetValue("Salvar Cor.ini", "Selecionar Cor", "Page1", nColor);
end
if (e_CommandID == COLORBUTTON_MORE) then
local nColor = Ribbon.ControlGetColor("Plugin1", COLORBUTTON_BTN, COLORFOR_BUTTON);
local tblColor = Ribbon.ChooseColorDialog("Plugin1", nColor,Application.GetWndHandle());
if(tblColor ~= nil) then
Ribbon.ControlSetColor("Plugin1", COLORBUTTON_BTN, COLORFOR_BUTTON, tblColor.DecColor);
Ribbon.ControlSetColor("Plugin1", COLORBUTTON_SEL, COLORFOR_PICKER, tblColor.DecColor);
Application.SetPageProperties("Menu", {BackgroundColor = tblColor.DecColor}); 	
INIFile.SetValue("Salvar Cor.ini", "Selecionar Cor", "Page1", tblColor.DecColor);
end
end
if (e_CommandID == SML_COLORBUTTON_SEL) then
local nColor = Ribbon.ControlGetColor("Plugin1", SML_COLORBUTTON_SEL, COLORFOR_PICKER);
Ribbon.ControlSetColor("Plugin1", SML_COLORBUTTON_BTN, COLORFOR_BUTTON, nColor);
Application.SetPageProperties("Menu", {BackgroundColor = nColor});
INIFile.SetValue("Salvar Cor.ini", "Selecionar Cor", "Page1", nColor);
end
if (e_CommandID == SML_COLORBUTTON_MORE) then
local nColor = Ribbon.ControlGetColor("Plugin1", SML_COLORBUTTON_BTN, COLORFOR_BUTTON);
local tblColor = Ribbon.ChooseColorDialog("Plugin1", nColor,Application.GetWndHandle());
if(tblColor ~= nil) then
Ribbon.ControlSetColor("Plugin1", SML_COLORBUTTON_BTN, COLORFOR_BUTTON, tblColor.DecColor);
Ribbon.ControlSetColor("Plugin1", SML_COLORBUTTON_SEL, COLORFOR_PICKER, tblColor.DecColor);
Application.SetPageProperties("Menu", {BackgroundColor = tblColor.DecColor});
INIFile.SetValue("Salvar Cor.ini", "Selecionar Cor", "Page1", tblColor.DecColor);	
end
end