📄 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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -