Muy buenas a todos, tengo un pequeño problema al crear un menu en tiempo de ejecución. Os explico brevemente el funcionamiento.
Cuando un usuario se loga comprueba en la BD que tipo de menú tiene asignado. Este menú ha sido diseñado previamente con otra aplicación, la cual guarda en una BD el aspecto del menu, los items y las acciones.
Cuando se crea el menu, tanto los items y las acciones me las crea perfectamente, pero sin embargo el aspecto del menú no cambia nada.
Uso el componente BarMenu de BlueCave,
http://www.bluecave.net/products/barmenus/.
Os adjunto el codigo de como cambio el aspecto del menú, por si hay algo que estoy olvidando.
Saludos y gracias.
Código Delphi
[-]
mnuPrincipal:= TBCBarMainMenu.create(Self);
with mnuPrincipal do
begin
MenuStyle:= msWindowsXP;
Bar.Side:= sLeft;
Bar.BarCaption.Visible:= True;
Bar.BarCaption.Direction:= dDownToUp;
Bar.BarCaption.Caption:= ModDatos1.CDSComun5.fieldbyname('caption').AsString;
Bar.GradientStart:= StringtoColor(ModDatos1.CDSComun5.fieldbyname('color1').AsString);
Bar.GradientEnd:= StringtoColor(ModDatos1.CDSComun5.fieldbyname('color2').AsString);
Bar.GradientStyle:= gsHorizontal;
Separators.SeparatorStyle:= ssShortLine;
Separators.GradientStart:= StringtoColor(ModDatos1.CDSComun5.fieldbyname('color1').AsString);;
Separators.GradientEnd:= StringtoColor(ModDatos1.CDSComun5.fieldbyname('color2').AsString);
end;
frmPrincipal.Menu:= mnuPrincipal;