|
ｿｽ@ｿｽｿｽDELPHIｿｽｿｽIDEｿｽｿｽOpenToolsAPIｿｽﾅツｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
takana 2011/06/11(ｿｽy) 19:51:44
DelphiｿｽｿｽIDEｿｽｿｽMS_OfficeｿｽｿｽVBAｿｽGｿｽfｿｽBｿｽ^ｿｽﾌブｿｽbｿｽNｿｽ}ｿｽ[ｿｽNｿｽ@ｿｽ¥ｿｽｿｽｿｽﾛゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽ
OpenToolsAPIｿｽｿｽgｿｽpｿｽｿｽｿｽAToolBarｿｽﾌ追会ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAToolButtonｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽPｿｽﾂ擾ｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾂ具ｿｽ
DELPHI2005 update3
WindowsXP SP3
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽpｿｽbｿｽPｿｽ[ｿｽWｿｽﾌ新ｿｽKｿｽ成ｿｽｿｽIｿｽｿｽ
ｿｽpｿｽbｿｽPｿｽ[ｿｽWｿｽﾌソｿｽ[ｿｽXｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽARequiresｿｽｿｽ designide, vclｿｽｿｽﾇ会ｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾉ新ｿｽKｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾇ会ｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ以会ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽLｿｽq
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌ右ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽIｿｽｿｽ
ｿｽｿｽｿｽｿｽ
ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾆは確ｿｽFｿｽﾅゑｿｽｿｽｿｽ
ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾉボｿｽ^ｿｽｿｽｿｽｿｽｿｽRｿｽﾂゑｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽ黷ｼｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾝ計ｿｽﾊゑｿｽｿｽｿｽsｿｽｿｽｿｽ黷ｽ
ｿｽｿｽｿｽ
1ｿｽﾂ目のボｿｽ^ｿｽｿｽｿｽﾈ外ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽADividerｿｽﾌままゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
2ｿｽﾂ厄ｿｽ3ｿｽﾂ目のボｿｽ^ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽ試ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
unit Unit1;
interface
uses
SysUtils, Classes, Controls, ToolsAPI, Dialogs, ComCtrls;
procedure Register;
const
TOOLBAR_NAME = 'TEST';
type
TDataModule1 = class(TDataModule)
procedure DataModuleDestroy(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
procedure OnTestClick(Sender: TObject);
public
{ Public ｿｽ骭ｾ }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
IDEServices: INTAServices;
ToolBar: TToolBar;
ToolButton: TToolButton;
begin
IDEServices := (BorlandIDEServices as INTAServices);
ToolBar := IDEServices.NewToolbar(TOOLBAR_NAME, 'ｿｽﾒ集(ｿｽｿｽｿｽ[ｿｽUｿｽｿｽ`)');
Assert(Assigned(Toolbar), 'ｿｽｿｽｿｽ[ｿｽUｿｽｿｽ`ｿｽﾌツｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ作成ｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ');
//ｿｽｿｽ4ｿｽｿｽｿｽｿｽｿｽｿｽTrueｿｽﾉゑｿｽｿｽｿｽｿｽStyle=tbsDividerｿｽﾆなるがｿｽAｿｽｿｽ3ｿｽｿｽｿｽｿｽｿｽﾌ設定がｿｽsｿｽvｿｽﾉなゑｿｽ
//ｿｽｿｽ4ｿｽｿｽｿｽｿｽｿｽｿｽFalseｿｽﾉゑｿｽｿｽｿｽｿｽTSpeedButtonｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽAｿｽｿｽ3ｿｽｿｽｿｽｿｽｿｽｿｽTActionｿｽｿｽﾝ定しｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾈゑｿｽ
ToolButton := IDEServices.AddToolButton(TOOLBAR_NAME,'SetBookmark',nil ,True) as TToolButton;
ToolButton.Style := tbsButton;
ToolButton.OnClick := OnTestClick;
ToolButton := IDEServices.AddToolButton(TOOLBAR_NAME,'NextBookmark',nil ,True) as TToolButton;
ToolButton.Style := tbsButton;
ToolButton.OnClick := OnTestClick;
ToolButton := IDEServices.AddToolButton(TOOLBAR_NAME,'PrevBookmark',nil ,True) as TToolButton;
ToolButton.Style := tbsButton;
ToolButton.OnClick := OnTestClick;
ToolBar.Visible := True;
end;
procedure TDataModule1.OnTestClick(Sender: TObject);
begin
ShowMessageFmt('Name:%s, ClassName:%s',[TControl(Sender).name, Sender.ClassType.ClassName]);
end;
procedure Register;
begin
DataModule1 := TDataModule1.Create(nil);
end;
procedure TDataModule1.DataModuleDestroy(Sender: TObject);
var
IDEServices: INTAServices;
EditToolBar: TToolBar;
begin
IDEServices := (BorlandIDEServices as INTAServices);
EditToolbar := IDEServices.ToolBar[TOOLBAR_NAME];
if Assigned(EditToolbar) then EditToolBar.Free;
end;
procedure UnRegister;
begin
DataModule1.Free;
end;
initialization
finalization
UnRegister;
end.
takana 2011/06/12(ｿｽｿｽ) 05:25:20
ｿｽｿｽｿｽﾈｿｽｿｽXｿｽﾅゑｿｽ
OnTestClickｿｽｿｽﾈ会ｿｽｿｽﾉ変ゑｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽStyleｿｽﾍゑｿｽｿｽｿｽｿｽｿｽtbsButtonｿｽｿｽ
ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆ、ｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ撰ｿｽｿｽ増やしｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ鯉ｿｽﾌ２ｿｽﾂのボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉは、Delphi2005ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾙゑｿｽｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾅはどゑｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽお願いｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TDataModule1.OnTestClick(Sender: TObject);
begin
ShowMessageFmt('Name:%s'#13'ClassName:%s'#13'Style:%s',
[TControl(Sender).name, Sender.ClassType.ClassName,
GetEnumName(TypeInfo(TToolButtonStyle), Ord(TToolButton(Sender).Style))]);
end;
