Delphi-PRAXiS
Seite 5 von 5   « Erste     345

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Die Delphi-IDE (https://www.delphipraxis.net/62-die-delphi-ide/)
-   -   OTA - komplexer Experte (https://www.delphipraxis.net/204563-ota-komplexer-experte.html)

stahli 22. Jul 2020 22:37

AW: OTA - komplexer Experte
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:14 Uhr.
Seite 5 von 5   « Erste     345

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz