paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed highlighter list

Browse Source 
git-svn-id: trunk@5658 -
This commit is contained in:
mattias 2004-07-07 17:21:13 +00:00
parent b2e93949f4
commit 953007e494
1 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/editoroptions.pp
View File

@ -504,7 +504,7 @@ type
procedure ShowCurCodeTemplate;
procedure SaveCurCodeTemplate;
public
constructor Create(AnOwner: TComponent); override;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
end;
@ -741,8 +741,8 @@ begin
// create info for pascal
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshFreePascal];
DefaultCommentType:=DefaultCommentTypes[lshFreePascal];
TheType:=lshFreePascal;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='pp;pas;inc;lpr;lrs;dpr;dpk';
SampleSource:=
@ -784,8 +784,8 @@ begin
// create info for html
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshHTML];
DefaultCommentType:=DefaultCommentTypes[lshHTML];
TheType:=lshHTML;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='htm;html';
SampleSource:=
@ -815,8 +815,8 @@ begin
// create info for cpp
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshCPP];
DefaultCommentType:=DefaultCommentTypes[lshCPP];
TheType:=lshCPP;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='c;cc;cpp;h;hpp';
SampleSource:=
@ -853,8 +853,8 @@ begin
// create info for XML
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshXML];
DefaultCommentType:=DefaultCommentTypes[lshXML];
TheType:=lshXML;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='xml;xsd;xsl;xslt;dtd';
SampleSource:=
@ -883,8 +883,8 @@ begin
// create info for LFM
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshLFM];
DefaultCommentType:=DefaultCommentTypes[lshLFM];
TheType:=lshLFM;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='lfm;dfm;xfm';
SampleSource:=
@ -915,8 +915,8 @@ begin
// create info for Perl
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshPerl];
DefaultCommentType:=DefaultCommentTypes[lshPerl];
TheType:=lshPerl;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='pl;pm;cgi';
SampleSource:=
@ -947,7 +947,7 @@ begin
// create info for Java
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshJava];
TheType:=lshJava;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='java';
@ -983,7 +983,7 @@ begin
// create info for Bash
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshBash];
TheType:=lshBash;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='sh';
@ -1016,7 +1016,7 @@ begin
// create info for Python
NewInfo:=TEditOptLanguageInfo.Create;
with NewInfo do begin
TheType:=CompatibleLazSyntaxHilighter[lshPython];
TheType:=lshPython;
DefaultCommentType:=DefaultCommentTypes[TheType];
SynClass:=LazSyntaxHighlighterClasses[TheType];
FileExtensions:='py';
@ -1045,9 +1045,6 @@ begin
end;
end;
Add(NewInfo);
Add(NewInfo);
end;
destructor TEditOptLangList.Destroy;
@ -2065,7 +2062,7 @@ end;
{ TEditorOptionsForm }
constructor TEditorOptionsForm.Create(AnOwner:TComponent);
constructor TEditorOptionsForm.Create(TheOwner:TComponent);
procedure AddResImg(const ResName: string);
var Pixmap: TPixmap;
@ -2079,7 +2076,7 @@ constructor TEditorOptionsForm.Create(AnOwner:TComponent);
var a:integer;
s:Ansistring;
begin
inherited Create(AnOwner);
inherited Create(TheOwner);
FormCreating:=true;
Caption:=lismenueditoroptions;
@ -4473,8 +4470,10 @@ begin
begin
BeginUpdate;
for a:=0 to EditorOpts.HighlighterList.Count-1 do
Add(TCustomSynClass(
EditorOpts.HighlighterList[a].SynClass).GetLanguageName);
Add(EditorOpts.HighlighterList[a].SynClass.GetLanguageName);
//for a:=0 to EditorOpts.HighlighterList.Count-1 do
// writeln('TEditorOptionsForm.SetupColorPage ',a,' ',EditorOpts.HighlighterList[a].SynClass.GetLanguageName
// ,' ',EditorOpts.HighlighterList[a].SynClass.ClassName);
EndUpdate;
end;
OnChange:=@ComboBoxOnChange;