paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 04:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: identifier completion: added mode directives

Browse Source 
git-svn-id: trunk@37287 -
This commit is contained in:
mattias 2012-05-15 10:21:47 +00:00
parent e7dd80db45
commit b05ef05a04
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/identcompletiontool.pas
View File

@ -2000,6 +2000,7 @@ var
InnerStart: Integer; InnerStart: Integer;
Directive: String; Directive: String;
ms: TCompilerModeSwitch; ms: TCompilerModeSwitch;
cm: TCompilerMode;
begin begin
Result:=false; Result:=false;
Line:=CursorPos.Code.GetLine(CursorPos.Y-1); Line:=CursorPos.Code.GetLine(CursorPos.Y-1);
@ -2112,6 +2113,9 @@ begin
end else if Directive='modeswitch' then begin end else if Directive='modeswitch' then begin
for ms:=low(TCompilerModeSwitch) to high(TCompilerModeSwitch) do for ms:=low(TCompilerModeSwitch) to high(TCompilerModeSwitch) do
Key(lowercase(CompilerModeSwitchNames[ms])); Key(lowercase(CompilerModeSwitchNames[ms]));
end else if Directive='mode' then begin
for cm:=low(TCompilerMode) to high(TCompilerMode) do
Key(lowercase(CompilerModeNames[cm]));
end else if Directive='warn' then begin end else if Directive='warn' then begin
Key('constructing_abstract'); Key('constructing_abstract');
Key('implicit_variants'); Key('implicit_variants');