Soren Dahl
Posts: 2
Joined: 2013-03-04
|
When an Add-in Express TAdxRibbonTab is used in word (just a single group with a single buttton) word crashes as soon as a document is opened or a new document is created.
This is with Add-in Express for Microsoft Office and Delphi VCL version 7.3 Release (build 1213)
On Danish Windows 7 Ultimate 32-bit Version 6.1.7601 Service Pack 1 Build 7601
Danish Microsoft Office Ultimate, Microsoft Office Word 2007 12.0.4518.1014 MSO 12.0.4518.1014
Delphi XE2 Professional (Version 16.0.4429.46931) Update 4
From the TAddInModule:
object AddInModule: TAddInModule
OldCreateOrder = False
AddInName = 'AddInTest'
Description = 'Bummelummer'
RegisterForAllUsers = True
SupportedApps = [ohaWord]
TaskPanes = <>
OnRibbonLoaded = adxCOMAddInModuleRibbonLoaded
Height = 400
Width = 380
object adxRibbonTab1: TadxRibbonTab
Caption = 'SuperDuper'
Controls = <
item
Id = 'adxRibbonGroup5C0DC2D861504F24986DC36765213E20'
Caption = 'adxRibbonGroup1'
Ribbons = [msrWordDocument]
Ribbons2010 = []
ControlTypes = {0100000007000000}
Controls_ = <
item
Id = 'adxRibbonButton3F8BD1D4B19E494D977E2F980B391C49'
OnClick = adxRibbonTab1Controls0Controls0Click
Caption = 'adxRibbonButton1'
Ribbons = [msrWordDocument]
Ribbons2010 = []
end>
end>
Id = 'adxRibbonTab36733322427D458F96340301E2AC9798'
Left = 136
Top = 56
Ribbons = [msrWordDocument]
Ribbons2010 = []
end
end
From the main unit:
unit AddinTest_IMPL;
interface
uses
SysUtils, ComObj, ComServ, ActiveX, Variants, Office2000, adxAddIn, AddinTest_TLB,
System.Classes, Dialogs;
type
TFicsAddInTest = class(TadxAddin, IFicsAddInTest)
end;
TAddInModule = class(TadxCOMAddInModule)
adxRibbonTab1: TadxRibbonTab;
procedure adxRibbonTab1Controls0Controls0Click(Sender: TObject;
const RibbonControl: IRibbonControl);
procedure adxCOMAddInModuleRibbonLoaded(Sender: TObject;
const RibbonUI: IRibbonUI);
private
protected
public
end;
implementation
{$R *.dfm}
procedure TAddInModule.adxCOMAddInModuleRibbonLoaded(Sender: TObject;
const RibbonUI: IRibbonUI);
begin
ShowMessage('knud');
end;
procedure TAddInModule.adxRibbonTab1Controls0Controls0Click(Sender: TObject;
const RibbonControl: IRibbonControl);
begin
ShowMessage('Dingeling');
end;
initialization
TadxFactory.Create(ComServer, TFicsAddInTest, CLASS_FicsAddInTest, TAddInModule);
end. |
|
Andrei Smolin
Add-in Express team
Posts: 18821
Joined: 2006-05-11
|
Hello Soren,
Thank you for providing the comprehensive information. Please install Delphi XE2 Update 4 Hotfix 1.
Andrei Smolin
Add-in Express Team Leader |
|
Soren Dahl
Posts: 2
Joined: 2013-03-04
|
Hello Andrei
Thank you very much for your prompt reply.
This solved the issue.
Regards
Søren Dahl |
|