diff --git a/Projects/Simba/simbaunit.lfm b/Projects/Simba/simbaunit.lfm index a8a7697..0b45fb0 100644 --- a/Projects/Simba/simbaunit.lfm +++ b/Projects/Simba/simbaunit.lfm @@ -3090,7 +3090,24 @@ object SimbaForm: TSimbaForm left = 488 top = 200 end - object LazHighlighter: TSynFreePascalSyn + object FunctionListTimer: TTimer + Interval = 750 + OnTimer = FunctionListTimerTimer + left = 608 + top = 200 + end + object SCARHighlighter: TSynPasSyn + Enabled = False + CommentAttri.Foreground = clGreen + CommentAttri.Style = [] + NumberAttri.Foreground = clNavy + StringAttri.Foreground = clFuchsia + CompilerMode = pcmObjFPC + NestedComments = False + left = 568 + top = 200 + end + object LazHighlighter: TSynPasSyn Enabled = False CommentAttri.Foreground = clBlue CommentAttri.Style = [fsBold] @@ -3106,21 +3123,4 @@ object SimbaForm: TSimbaForm left = 528 top = 200 end - object SCARHighlighter: TSynFreePascalSyn - Enabled = False - CommentAttri.Foreground = clGreen - CommentAttri.Style = [] - NumberAttri.Foreground = clHotLight - StringAttri.Foreground = clFuchsia - CompilerMode = pcmObjFPC - NestedComments = False - left = 568 - top = 200 - end - object FunctionListTimer: TTimer - Interval = 750 - OnTimer = FunctionListTimerTimer - left = 608 - top = 200 - end end diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas index 41b57af..ca2edcd 100644 --- a/Projects/Simba/simbaunit.pas +++ b/Projects/Simba/simbaunit.pas @@ -96,9 +96,9 @@ type ActionTabNext: TAction; ActionList: TActionList; CheckBoxMatchCase: TCheckBox; - LazHighlighter: TSynFreePascalSyn; frmFunctionList: TFunctionListFrame; LabeledEditSearch: TLabeledEdit; + LazHighlighter: TSynPasSyn; MainMenu: TMainMenu; Memo1: TMemo; MenuFile: TMenuItem; @@ -118,8 +118,8 @@ type MenuItemDivider9: TMenuItem; MouseTimer: TTimer; NewsTimer: TTimer; - SCARHighlighter: TSynFreePascalSyn; FunctionListTimer: TTimer; + SCARHighlighter: TSynPasSyn; TT_Console: TToolButton; TT_Cut: TToolButton; TT_Copy: TToolButton; @@ -2097,7 +2097,6 @@ begin //AutoCompletionStart := Point(-1, -1); CodeCompletionForm := TAutoCompletePopup.Create(Self); CodeCompletionForm.InsertProc := @OnCompleteCode; - ParamHint := TParamHint.Create(self); {$ifdef MSWindows}