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