From ab6281bbf8a9b236484c7b8180d43d263ffa45c7 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 21 Apr 2003 16:22:57 +0000 Subject: [PATCH] implemented package synedit git-svn-id: trunk@4089 - --- .gitattributes | 1 + packager/registersynedit.pas | 135 +++++++++++++++++++++++++++++++++++ 2 files changed, 136 insertions(+) create mode 100644 packager/registersynedit.pas diff --git a/.gitattributes b/.gitattributes index bc19dcc7cf..fef1fd818d 100644 --- a/.gitattributes +++ b/.gitattributes @@ -833,6 +833,7 @@ packager/pkgmanager.pas svneol=native#text/pascal packager/pkgoptionsdlg.pas svneol=native#text/pascal packager/registerfcl.pas svneol=native#text/pascal packager/registerlcl.pas svneol=native#text/pascal +packager/registersynedit.pas svneol=native#text/pascal packager/registration/lazaruspackageintf.pas svneol=native#text/pascal packager/ucomponentmanmain.lfm svneol=native#text/plain packager/ucomponentmanmain.lrs svneol=native#text/pascal diff --git a/packager/registersynedit.pas b/packager/registersynedit.pas new file mode 100644 index 0000000000..6961b47b3a --- /dev/null +++ b/packager/registersynedit.pas @@ -0,0 +1,135 @@ +{ $Id$ } +{ + /*************************************************************************** + registersynedit.pas + ------------------- + + + ***************************************************************************/ + + *************************************************************************** + * * + * This source is free software; you can redistribute it and/or modify * + * it under the terms of the GNU General Public License as published by * + * the Free Software Foundation; either version 2 of the License, or * + * (at your option) any later version. * + * * + * This code is distributed in the hope that it will be useful, but * + * WITHOUT ANY WARRANTY; without even the implied warranty of * + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * + * General Public License for more details. * + * * + * A copy of the GNU General Public License is available on the World * + * Wide Web at . You can also * + * obtain it by writing to the Free Software Foundation, * + * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * + * * + *************************************************************************** + + Author: Mattias Gaertner + + Abstract: + Registration of the SynEdit components. +} +unit RegisterSynEdit; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, + SynEditLazDsgn, SynEdit, SynCompletion, SynExportHTML, SynMacroRecorder, + SynMemo, SynHighlighterPas, SynHighlighterCPP, SynHighlighterJava, + SynHighlighterPerl, SynHighlighterHTML, SynHighlighterXML, + SynHighlighterLFM, SynHighlighterMulti, + LazarusPackageIntf, LazarusIDEStrConsts; + +procedure Register; + +implementation + +procedure RegisterSynEditUnit; +begin + RegisterComponents('SynEdit',[TSynEdit]); +end; + +procedure RegisterSynCompletion; +begin + RegisterComponents('SynEdit',[TSynAutoComplete]); +end; + +procedure RegisterSynExportHTML; +begin + RegisterComponents('SynEdit',[TSynExporterHTML]); +end; + +procedure RegisterSynMacroRecorder; +begin + RegisterComponents('SynEdit',[TSynMacroRecorder]); +end; + +procedure RegisterSynMemo; +begin + RegisterComponents('SynEdit',[TSynMemo]); +end; + +procedure RegisterSynHighlighterPas; +begin + RegisterComponents('SynEdit',[TSynPasSyn]); +end; + +procedure RegisterSynHighlighterJava; +begin + RegisterComponents('SynEdit',[TSynJavaSyn]); +end; + +procedure RegisterSynHighlighterCPP; +begin + RegisterComponents('SynEdit',[TSynCPPSyn]); +end; + +procedure RegisterSynHighlighterPerl; +begin + RegisterComponents('SynEdit',[TSynPerlSyn]); +end; + +procedure RegisterSynHighlighterHTML; +begin + RegisterComponents('SynEdit',[TSynHTMLSyn]); +end; + +procedure RegisterSynHighlighterXML; +begin + RegisterComponents('SynEdit',[TSynXMLSyn]); +end; + +procedure RegisterSynHighlighterLFM; +begin + RegisterComponents('SynEdit',[TSynLFMSyn]); +end; + +procedure RegisterSynHighlighterMulti; +begin + RegisterComponents('SynEdit',[TSynMultiSyn]); +end; + +procedure Register; +begin + RegisterUnit('SynEdit',@RegisterSynEditUnit); + RegisterUnit('SynCompletion',@RegisterSynCompletion); + RegisterUnit('SynExportHTML',@RegisterSynExportHTML); + RegisterUnit('SynMacroRecorder',@RegisterSynMacroRecorder); + RegisterUnit('SynMemo',@RegisterSynMemo); + RegisterUnit('SynHighlighterPas',@RegisterSynHighlighterPas); + RegisterUnit('SynHighlighterCPP',@RegisterSynHighlighterCPP); + RegisterUnit('SynHighlighterJava',@RegisterSynHighlighterJava); + RegisterUnit('SynHighlighterPerl',@RegisterSynHighlighterPerl); + RegisterUnit('SynHighlighterHTML',@RegisterSynHighlighterHTML); + RegisterUnit('SynHighlighterXML',@RegisterSynHighlighterXML); + RegisterUnit('SynHighlighterLFM',@RegisterSynHighlighterLFM); + RegisterUnit('SynHighlighterMulti',@RegisterSynHighlighterMulti); +end; + +end. +