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

Instead of only showing code completion/hints with identifiers and symbols, I changed to to show it if it's not in a string/comment/directive). I also fixed a little bug in codehints for functions surrounded by brackets.

Browse Source
This commit is contained in:
Niels 2010-04-07 18:50:42 +02:00
parent dfe3b23319
commit 9709bb76b9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Projects/SAMufasaGUI/framescript.pas
View File

@ -302,7 +302,7 @@ var
dd: TDeclaration; dd: TDeclaration;
begin begin
if (Command = ecCodeCompletion) and ((not SynEdit.GetHighlighterAttriAtRowCol(SynEdit.CaretXY, s, Attri)) or if (Command = ecCodeCompletion) and ((not SynEdit.GetHighlighterAttriAtRowCol(SynEdit.CaretXY, s, Attri)) or
((Attri.Name = SYNS_AttrIdentifier) or (Attri.name = SYNS_AttrSymbol))) then ((Attri.Name <> SYNS_AttrComment) and (Attri.name <> SYNS_AttrString) and (Attri.name <> SYNS_AttrDirective))) then
begin begin
{form1.FunctionListShown(True); {form1.FunctionListShown(True);
with form1.frmFunctionList do with form1.frmFunctionList do
@ -404,6 +404,7 @@ begin
mp.Run(ms, nil, Synedit.SelStart + (ep - Synedit.CaretX) - 1,true); mp.Run(ms, nil, Synedit.SelStart + (ep - Synedit.CaretX) - 1,true);
bcc := 1;bck := 0;cc := 0; bcc := 1;bck := 0;cc := 0;
s := mp.GetExpressionAtPos(bcc, bck, cc,posi, true); s := mp.GetExpressionAtPos(bcc, bck, cc,posi, true);
WriteLn('is it '+s+'?');
bracketpos := posi + length(s); bracketpos := posi + length(s);
if pos('(',s) > 0 then if pos('(',s) > 0 then
begin; begin;