moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 18:22:25 -05:00
Code Issues Releases Wiki Activity

Fixed nested comments issue.

Browse Source
This commit is contained in:
Niels 2010-05-19 14:22:09 +02:00
parent 9b2683d61b
commit f31af1d628
2 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
Projects/Simba/simbaunit.lfm
View File

@ -3090,7 +3090,24 @@ object SimbaForm: TSimbaForm
left = 488 left = 488
top = 200 top = 200
end 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 Enabled = False
CommentAttri.Foreground = clBlue CommentAttri.Foreground = clBlue
CommentAttri.Style = [fsBold] CommentAttri.Style = [fsBold]
@ -3106,21 +3123,4 @@ object SimbaForm: TSimbaForm
left = 528 left = 528
top = 200 top = 200
end 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 end

5
Projects/Simba/simbaunit.pas
View File

@ -96,9 +96,9 @@ type
ActionTabNext: TAction; ActionTabNext: TAction;
ActionList: TActionList; ActionList: TActionList;
CheckBoxMatchCase: TCheckBox; CheckBoxMatchCase: TCheckBox;
LazHighlighter: TSynFreePascalSyn;
frmFunctionList: TFunctionListFrame; frmFunctionList: TFunctionListFrame;
LabeledEditSearch: TLabeledEdit; LabeledEditSearch: TLabeledEdit;
LazHighlighter: TSynPasSyn;
MainMenu: TMainMenu; MainMenu: TMainMenu;
Memo1: TMemo; Memo1: TMemo;
MenuFile: TMenuItem; MenuFile: TMenuItem;
@ -118,8 +118,8 @@ type
MenuItemDivider9: TMenuItem; MenuItemDivider9: TMenuItem;
MouseTimer: TTimer; MouseTimer: TTimer;
NewsTimer: TTimer; NewsTimer: TTimer;
SCARHighlighter: TSynFreePascalSyn;
FunctionListTimer: TTimer; FunctionListTimer: TTimer;
SCARHighlighter: TSynPasSyn;
TT_Console: TToolButton; TT_Console: TToolButton;
TT_Cut: TToolButton; TT_Cut: TToolButton;
TT_Copy: TToolButton; TT_Copy: TToolButton;
@ -2097,7 +2097,6 @@ begin
//AutoCompletionStart := Point(-1, -1); //AutoCompletionStart := Point(-1, -1);
CodeCompletionForm := TAutoCompletePopup.Create(Self); CodeCompletionForm := TAutoCompletePopup.Create(Self);
CodeCompletionForm.InsertProc := @OnCompleteCode; CodeCompletionForm.InsertProc := @OnCompleteCode;
ParamHint := TParamHint.Create(self); ParamHint := TParamHint.Create(self);
{$ifdef MSWindows} {$ifdef MSWindows}