Přidání akce do menu Vision ERP

 Top 

Seznam témat:

řešení

 

Řešení

Příklad ukazuje jak přidat do hlavního menu Vision ERP (pod submenu Nástroje) novou akci spouštějící aplikaci MS Excel (s kláv. zkratkou Ctrl+Alt+F8)

1. Připravit si obrázek - msexcel.bmp  reprezentující akci jako bitmapu o velikosti 16x16 pixelů a uložit ji do dokumentů (do databáze) pod jméno (např.):

System\Actions\msexcel.bmp

 

2. V menu Skripty - Speciální skripty nadefinovat tyto skripty:

 

System.OnInit

var

 ImgIdx: integer;

begin

 ImgIdx := RegisterActionImage('System\Actions\msexcel.bmp');

 RegisterAppAction(1902, 16099, 'Excel', ImgIdx, Shortcut(VK_F8, ssCtrl+ssAlt));

end.

 

System.OnAppAction

begin

 if ActionID = 16099 then

   ShellExec('excel.exe', '', False);

end.

 

Poznámky:

•Levý dolní pixel v bitmapě definuje transparentní barvu (tato barva bude zobrazena jako průhledná).
•Číslo submenu lze získat v navigátoru (Shift+Tab) klepnutím pravým tlačítkem myši a volbou Vlastnosti.
•Čísla nových akcí by měla být v rozsahu 16000-16383

 

Související témata