Uses
Un_MenuLateral,
Un_MenuLateralDef;
...
var
FMenuLateral: TmtMenuLateral;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
FMenuLateral := TmtMenuLateral.Create(Self);
FMenuLateral.PathImg := ExtractFilePath( Application.ExeName ) + 'img\';
FMenuLateral.Cor := $00F9E9DB;
FMenuLateral.Menus.CorNivel[1] := $00E3E3FF;
FMenuLateral.Menus.CorNivel[2] := $00DBFFED;
{
FMenuLateral.Menus.CorNivel[3] := $00F0CAA8;
FMenuLateral.Menus.CorNivel[4] := $00E9AF7C;
FMenuLateral.Menus.CorNivel[5] := $00F0CAA8;
FMenuLateral.Menus.CorNivel[6] := $00E9AF7C;
FMenuLateral.Menus.CorNivel[7] := $00E9AF7C;
FMenuLateral.Menus.CorNivel[8] := $00E9AF7C;
FMenuLateral.Menus.CorNivel[9] := $00E9AF7C;
FMenuLateral.Menus.CorNivel[10] := $00E9AF7C;
}
FMenuLateral.Menus.Add('', 'MnProduto', 'Produtos', NIL, 'produto.bmp');
FMenuLateral.Menus.Add('MnProduto', 'MnProdSetor', 'Setor', NIL, 'Picture.bmp');
FMenuLateral.Menus.Add('MnProdSetor', 'MnProdSubSetor', 'Sub-Setor', NIL, 'Picture.bmp');
FMenuLateral.Menus.Add('', 'MnPessoa', 'Pessoas', NIL, 'Pessoa.bmp');
FMenuLateral.Menus.Add('', 'MnNFe', 'Notas Fiscais', NIL, 'NF-e.bmp');
FMenuLateral.Menus.Add('', 'MnFinanceiro', 'Financeiro', NIL, 'Financas.bmp');
FMenuLateral.Menus.Add('MnFinanceiro','MnFinanCPag', 'Contas a Pagar', NIL, 'CPagar.bmp');
FMenuLateral.Menus.Add('MnFinanceiro','MnFinanCRec', 'Contas a Receber', NIL, 'CReceber.bmp');
FMenuLateral.Ativo := true;
end;