Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#5

Re: [Suche] Live Templates - Tutorial

  Alt 19. Jun 2006, 13:15
Die Anwendung ist an sich ganz einfach:

- ein neues Package erstellen (und einen sinnvollen Namen geben )
- dem Package eine neue Unit hinzufügen
- den Kopf der Unit schreiben
Delphi-Quellcode:
unit MeinTUOScript;

interface
uses
  Classes,SysUtils, ToolsAPI, TUOScript, Dialogs;
- eine Klasse definieren, die die Funktion enthält, die vom Template ausgeführt werden soll
Delphi-Quellcode:
type
  TTUOScriptTestFunctions = class(TObject)
  public
    function TestParams(Params : TTUOScriptParams):TTUOScriptFunctionResult;
  end;
- die Funktion muss natürlich auch mal implementiert werden
Delphi-Quellcode:
function TTUOScriptTestFunctions.TestParams(
  Params: TTUOScriptParams): TTUOScriptFunctionResult;
begin
  MessageDlg(Params.Text, mtInformation, [mbOK], 0);

  Result:=1;
end;
-das Ganze muss noch registriert und (das Gegenteil) werden
Delphi-Quellcode:
initialization
  TUOScriptEngine.RegisterFunction('TestParams', //der Name der Funktion wie er im Template genutzt wird
                    Integer(@TTUOScriptTestFunctions.TestParams));

finalization
  TUOScriptEngine.UnregisterFunction('TestParams');
- jetzt noch alles kompilieren und installieren ... fertig ... und im Template nutzen (siehe z.B. die mitgelieferten)
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat