moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-03-03 02:41:54 -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
Left = 143
Left = 483
Height = 623
Top = 115
Top = 95
Width = 660
AllowDropFiles = True
Caption = 'THA FUKING Simba'
@ -3098,10 +3098,11 @@ object SimbaForm: TSimbaForm
NumberAttri.Foreground = clNavy
StringAttri.Foreground = clBlue
SymbolAttri.Foreground = clRed
CaseLabelAttri.Style = [fsItalic]
DirectiveAttri.Foreground = clRed
DirectiveAttri.Style = [fsBold]
CompilerMode = pcmObjFPC
NestedComments = True
NestedComments = False
left = 528
top = 200
end
@ -3112,7 +3113,7 @@ object SimbaForm: TSimbaForm
NumberAttri.Foreground = clHotLight
StringAttri.Foreground = clFuchsia
CompilerMode = pcmObjFPC
NestedComments = True
NestedComments = False
left = 568
top = 200
end

2
Projects/Simba/simbaunit.pas
View File

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

2
Units/MMLAddon/mmlpsthread.pas
View File

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