moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-03-03 18:59:47 -05:00
Code Issues Releases Wiki Activity

Added default case-statement highlighting to the Laz-color scheme. (You'd need the latest LCL for this).

Browse Source
This commit is contained in:
Raymond 2010-05-19 11:56:11 +02:00
parent 5dc6d43595
commit 51d7f5a4b2
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Projects/Simba/simbaunit.lfm
View File

@ -1,7 +1,7 @@
object SimbaForm: TSimbaForm object SimbaForm: TSimbaForm
Left = 143 Left = 483
Height = 623 Height = 623
Top = 115 Top = 95
Width = 660 Width = 660
AllowDropFiles = True AllowDropFiles = True
Caption = 'THA FUKING Simba' Caption = 'THA FUKING Simba'
@ -3098,10 +3098,11 @@ object SimbaForm: TSimbaForm
NumberAttri.Foreground = clNavy NumberAttri.Foreground = clNavy
StringAttri.Foreground = clBlue StringAttri.Foreground = clBlue
SymbolAttri.Foreground = clRed SymbolAttri.Foreground = clRed
CaseLabelAttri.Style = [fsItalic]
DirectiveAttri.Foreground = clRed DirectiveAttri.Foreground = clRed
DirectiveAttri.Style = [fsBold] DirectiveAttri.Style = [fsBold]
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = False
left = 528 left = 528
top = 200 top = 200
end end
@ -3112,7 +3113,7 @@ object SimbaForm: TSimbaForm
NumberAttri.Foreground = clHotLight NumberAttri.Foreground = clHotLight
StringAttri.Foreground = clFuchsia StringAttri.Foreground = clFuchsia
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = False
left = 568 left = 568
top = 200 top = 200
end end

2
Projects/Simba/simbaunit.pas
View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const const
SimbaVersion = 675; SimbaVersion = 676;
type type

2
Units/MMLAddon/mmlpsthread.pas
View File

@ -587,6 +587,8 @@ procedure TPSThread.OnProcessDirective(Sender: TPSPreProcessor;
Parser: TPSPascalPreProcessorParser; const Active: Boolean; Parser: TPSPascalPreProcessorParser; const Active: Boolean;
const DirectiveName, DirectiveParam: string; var Continue: Boolean); const DirectiveName, DirectiveParam: string; var Continue: Boolean);
begin begin
if CompareText(DirectiveName, 'LOADLIB') = 0 then
Continue := not ProcessDirective(DirectiveName,DirectiveParam);
end; end;
function TPSThread.PSScriptFindUnknownFile(Sender: TObject; function TPSThread.PSScriptFindUnknownFile(Sender: TObject;