OTA - komplexer Experte

[stahli]

Es hat einige Tage gedauert, aber ich habe doch noch eine Lösung gefunden. :bounce2:

Ist nicht mal so kompliziert, hat aber einige Versuche gebraucht...
Es funktioniert jetzt zumindest korrekt in allen Varianten. :-)

Delphi-Quellcode:

procedure Register;
var
  OTAWizard: IOTAWizard;
begin
  OTAWizard := TOTAToolWizard.Create;
  RegisterPackageWizard(OTAWizard);

  OTAWizard := TQuickSearchExpert.Create;
  RegisterPackageWizard(OTAWizard);
  TQuickSearchForm.CreateDockForm;

  OTAWizard := TFullSearchExpert.Create;
  RegisterPackageWizard(OTAWizard);
  TFullSearchForm.CreateDockForm;

  uoMenues.Initialize;
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(uoBindings);
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(TDupLineBinding.Create);
end;

function InitWizard(const BorlandIDEServices: IBorlandIDEServices; RegisterProc: TWizardRegisterProc;
  var Terminate: TWizardTerminateProc): Boolean stdcall;
var
  OTAWizard: IOTAWizard;
begin
  OTAWizard := TOTAToolWizard.Create;
  RegisterProc(OTAWizard);

  OTAWizard := TQuickSearchExpert.Create;
  RegisterProc(OTAWizard);
  TQuickSearchForm.CreateDockForm;

  OTAWizard := TFullSearchExpert.Create;
  RegisterProc(OTAWizard);
  TFullSearchForm.CreateDockForm;

  uoMenues.Initialize;
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(uoBindings);
  (BorlandIDEServices as IOTAKeyboardServices).AddKeyboardBinding(TDupLineBinding.Create);

  Result := True;
end;

...

initialization

finalization

  TQuickSearchForm.RemoveDockForm;
  TFullSearchForm.RemoveDockForm;

end.