Word 2007 RibbonTab -> Word crash

Add-in Express™ Support Service
That's what is more important than anything else

Word 2007 RibbonTab -> Word crash
Word crashes on document open/new 
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.
Posted 04 Mar, 2013 09:51:11 Top
Andrei Smolin


Add-in Express team


Posts: 14976
Joined: 2006-05-11
Hello Soren,

Thank you for providing the comprehensive information. Please install Delphi XE2 Update 4 Hotfix 1.

Regards from Belarus (GMT+3),

Andrei Smolin
Add-in Express Team Leader
Posted 04 Mar, 2013 09:55:35 Top
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
Posted 05 Mar, 2013 03:02:27 Top