mainform.pas

xp菜单功能代码

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, Spin, Buttons, ExtDlgs, ImgList, ComCtrls,
  ToolWin, XPBarMenu, XPMenu;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Window2: TMenuItem;
    Show2: TMenuItem;
    Hide2: TMenuItem;
    N2: TMenuItem;
    ArrangeAll2: TMenuItem;
    Cascade2: TMenuItem;
    Tile2: TMenuItem;
    NewWindow2: TMenuItem;
    DlgColor: TColorDialog;
    DlgFont: TFontDialog;
    CheckBox4: TCheckBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    SpinEdit1: TSpinEdit;
    SpinEdit3: TSpinEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    SpinEdit2: TSpinEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    DlgOpen: TOpenPictureDialog;
    CheckBox7: TCheckBox;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Window4: TMenuItem;
    Show4: TMenuItem;
    Hide4: TMenuItem;
    N9: TMenuItem;
    ArrangeAll4: TMenuItem;
    Cascade4: TMenuItem;
    Tile4: TMenuItem;
    NewWindow1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    Tutorial1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Keyboard1: TMenuItem;
    Procedures1: TMenuItem;
    Commands1: TMenuItem;
    Index1: TMenuItem;
    Contents1: TMenuItem;
    BitBtn2: TBitBtn;
    ToolButton5: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    MainMenu2: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem21: TMenuItem;
    MenuItem22: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem25: TMenuItem;
    MenuItem26: TMenuItem;
    MenuItem27: TMenuItem;
    MenuItem28: TMenuItem;
    MenuItem29: TMenuItem;
    MenuItem30: TMenuItem;
    MenuItem31: TMenuItem;
    MenuItem32: TMenuItem;
    MenuItem33: TMenuItem;
    MenuItem34: TMenuItem;
    MenuItem35: TMenuItem;
    MenuItem36: TMenuItem;
    MenuItem37: TMenuItem;
    MenuItem38: TMenuItem;
    MenuItem39: TMenuItem;
    MenuItem40: TMenuItem;
    MenuItem41: TMenuItem;
    MenuItem42: TMenuItem;
    MenuItem43: TMenuItem;
    MenuItem44: TMenuItem;
    MenuItem45: TMenuItem;
    MenuItem46: TMenuItem;
    MenuItem47: TMenuItem;
    MenuItem48: TMenuItem;
    MenuItem49: TMenuItem;
    MenuItem50: TMenuItem;
    MenuItem51: TMenuItem;
    MenuItem52: TMenuItem;
    MenuItem53: TMenuItem;
    MenuItem54: TMenuItem;
    ImageList1: TImageList;
    GroupBox5: TGroupBox;
    BtnCStart: TBitBtn;
    BtnCEnd: TBitBtn;
    BtnFont: TBitBtn;
    SpinEdit4: TSpinEdit;
    Label6: TLabel;
    XPBarMenu1: TXPBarMenu;
    procedure Exit1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BtnFontClick(Sender: TObject);
    procedure BtnCEndClick(Sender: TObject);
    procedure BtnCStartClick(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure SpinEdit3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1             : TForm1;

implementation

{$R *.DFM}

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  XPBarMenu1.BarStyle := TBarStyle(ComboBox1.ItemIndex);
  BtnCEnd.Enabled := ComboBox1.ItemIndex = 0;
  BtnCStart.Enabled := ComboBox1.ItemIndex = 0;
  BtnFont.Enabled := ComboBox1.ItemIndex = 0;
end;

procedure TForm1.BtnFontClick(Sender: TObject);
begin
  DlgFont.Font := XPBarMenu1.BarFont;
  if DlgFont.Execute then
    XPBarMenu1.BarFont := DlgFont.Font;
end;

procedure TForm1.BtnCEndClick(Sender: TObject);
begin
  DlgColor.Color := XPBarMenu1.BarColorEnd;
  if DlgColor.Execute then
    XPBarMenu1.BarColorEnd := DlgColor.Color;
end;

procedure TForm1.BtnCStartClick(Sender: TObject);
begin
  DlgColor.Color := XPBarMenu1.BarColorStart;
  if DlgColor.Execute then
    XPBarMenu1.BarColorStart := DlgColor.Color;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  XPBarMenu1.BarWidth := SpinEdit2.Value;
end;

procedure TForm1.SpinEdit3Change(Sender: TObject);
begin
  XPBarMenu1.ItemHeight := SpinEdit3.Value;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.ItemIndex := 0;

  XPBarMenu1.FlatMenu := DWORD(LOBYTE(LOWORD(GetVersion))) >= 5;
  CheckBox5.Enabled := XPBarMenu1.FlatMenu;
  if not XPBarMenu1.FlatMenu then
    SpinEdit4.Value := 50
  else
    SpinEdit4.Value := 255;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  XPBarMenu1.BarCaption := Edit2.Text;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  XPBarMenu1.IconWidth := SpinEdit1.Value;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  XPBarMenu1.Frame3D := CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  XPBarMenu1.UseSystemColors := CheckBox2.Checked;
  GroupBox3.Enabled := not CheckBox2.Checked;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  XPBarMenu1.Gradient := CheckBox3.Checked;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  XPBarMenu1.Active := CheckBox4.Checked;
  GroupBox1.Enabled := CheckBox4.Checked;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
  XPBarMenu1.FlatMenu := CheckBox5.Checked;
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
  XPBarMenu1.AutoDetect := CheckBox6.Checked;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  case ListBox1.ItemIndex of
    0: begin
        DlgColor.Color := XPBarMenu1.SelectFontColor;
        if DlgColor.Execute then
          XPBarMenu1.SelectFontColor := DlgColor.Color;
      end;
    1: begin
        DlgColor.Color := XPBarMenu1.SelectBorderColor;
        if DlgColor.Execute then
          XPBarMenu1.SelectBorderColor := DlgColor.Color;
      end;
    2: begin
        DlgColor.Color := XPBarMenu1.SelectColor;
        if DlgColor.Execute then
          XPBarMenu1.SelectColor := DlgColor.Color;
      end;
    3: begin
        DlgColor.Color := XPBarMenu1.MenuBarColor;
        if DlgColor.Execute then
          XPBarMenu1.MenuBarColor := DlgColor.Color;
      end;
    4: begin
        DlgColor.Color := XPBarMenu1.IconBackColor;
        if DlgColor.Execute then
          XPBarMenu1.IconBackColor := DlgColor.Color;
      end;
    5: begin
        DlgColor.Color := XPBarMenu1.SeparatorColor;
        if DlgColor.Execute then
          XPBarMenu1.SeparatorColor := DlgColor.Color;
      end;
    6: begin
        DlgColor.Color := XPBarMenu1.Color;
        if DlgColor.Execute then
          XPBarMenu1.Color := DlgColor.Color;
      end;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if DlgOpen.Execute then
    XPBarMenu1.BarBitmap.LoadFromFile(DlgOpen.FileName);
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
  XPBarMenu1.BarStretch := CheckBox7.Checked;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  DlgFont.Font.Assign(XPBarMenu1.Font);
  if DlgFont.Execute then
  begin
    XPBarMenu1.Font.Assign(DlgFont.Font);
    XPBarMenu1.Active := False;
    XPBarMenu1.Active := True;
  end;
end;

procedure TForm1.SpinEdit4Change(Sender: TObject);
begin
  XPBarMenu1.BarColorStep := SpinEdit4.Value;
end;

end.