custtoolbar.pas

Delphi的Office 2007风格界面控件

unit CustToolBar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdvToolBar, AdvToolBarStylers, ImgList, StdActns, ActnList,
  StdCtrls, Menus, AdvMenus, AdvMenuStylers;

type
  TForm1 = class(TForm)
    AdvDockPanel1: TAdvDockPanel;
    AdvToolBar1: TAdvToolBar;
    AdvToolBarCustomizer1: TAdvToolBarCustomizer;
    AdvToolBarButton1: TAdvToolBarButton;
    AdvToolBarButton2: TAdvToolBarButton;
    AdvToolBarButton3: TAdvToolBarButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    AdvToolBarOfficeStyler1: TAdvToolBarOfficeStyler;
    Memo1: TMemo;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    Appearance: TAdvToolBarMenuButton;
    AdvPopupMenu1: TAdvPopupMenu;
    AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;
    Office2003Blue1: TMenuItem;
    Office2003Olive1: TMenuItem;
    Office2003Silver1: TMenuItem;
    Whidbey1: TMenuItem;
    procedure AdvToolBarButton2Click(Sender: TObject);
    procedure AdvToolBarButton3Click(Sender: TObject);
    procedure Office2003Blue1Click(Sender: TObject);
    procedure Office2003Olive1Click(Sender: TObject);
    procedure Office2003Silver1Click(Sender: TObject);
    procedure Whidbey1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdvToolBarButton2Click(Sender: TObject);
begin
  ShowMessage('TMS TAdvToolBar