diff --git a/Projects/Simba/simbaunit.lfm b/Projects/Simba/simbaunit.lfm index d207d31..a8a7697 100644 --- a/Projects/Simba/simbaunit.lfm +++ b/Projects/Simba/simbaunit.lfm @@ -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 diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas index 866bb9e..2e3098f 100644 --- a/Projects/Simba/simbaunit.pas +++ b/Projects/Simba/simbaunit.pas @@ -46,7 +46,7 @@ uses CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; const - SimbaVersion = 675; + SimbaVersion = 676; type diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas index 0da682e..da24629 100644 --- a/Units/MMLAddon/mmlpsthread.pas +++ b/Units/MMLAddon/mmlpsthread.pas @@ -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;