www.pudn.com > xpbarmenu.rar > DelphiXPBarMenu.pas

unit DelphiXPBarMenu; 
 
interface 
 
uses 
  Forms, Controls, ComCtrls,xpbarmenu,Graphics; 
 
implementation 
 
var 
  xpMenu: TXPBarMenu; 
 
procedure SetDelphiXPBarMenu; 
var 
  AppBuilder: TForm; 
begin 
  AppBuilder := TForm(Application.FindComponent('AppBuilder')); 
  XpMenu:=TXPBarMenu.Create(AppBuilder); 
  xpMenu.BarColorEnd:=clRed; 
  xpMenu.BarColorStep :=40; 
//  xpMenu.ItemHeight :=20; 
  xpMenu.BarCaption :='Kingron''s Delphi'; 
//  xpMenu.BarStyle :=bsBitmap ; 
//  xpMenu.BarBitmap.LoadFromFile('D:\Borland\Delphi5\3Tools\a.bmp'); 
//  xpMenu.OverrideOwnerDraw:=False; 
//  xpMenu.BarStyle :=bsNone; 
end; {SetMultiLineComponentPalette} 
 
initialization 
  SetDelphiXPBarMenu; 
 
finalization 
  xpMenu.Free; 
end.