delphixpbarmenu.pas

xp菜单功能代码

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.