forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add symstring CLN and CCN

This commit is contained in:
Basile Burg 2022-05-14 14:50:30 +02:00
parent 04100589e5
commit 425248e81d
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -4,6 +4,7 @@
- Search and Replace: after a failed search give the editor the focus back.
- It's possible to open ".mak" or "makefile" files as projects. The project inspector will display the rules as configurations and the content of "src/", "include/", "import/" as source files.
- Added symbolic strings CLN (CaretLineNUmber) and CCN (CaretColumnNumber).
## Bugs fixed

6
src/u_symstring.pas
View File

@ -14,7 +14,7 @@ type
* Enumerates the symbol kinds, used to index an associative array.
*)
TExpandableSymbol = ( ENV_USER, ENV_HOME, ENV_TEMP, CAF, CAP, MEP,
CFF, CFP, CFR, CI, CL, CPF, CPP, CPO, CPOP, CPR, CPN, CPFS, CPCD,
CFF, CFP, CFR, CI, CL, CLN, CCN, CPF, CPP, CPO, CPOP, CPR, CPN, CPFS, CPCD,
CPV, CS);
const
@ -212,6 +212,8 @@ begin
if fDoc.Identifier.isNotEmpty then
fSymbols[CI] := fDoc.Identifier;
fSymbols[CL] := fDoc.LineText;
fSymbols[CLN] := fDoc.CaretY.ToString();
fSymbols[CCN] := fDoc.CaretX.ToString();
fSymbols[CS] := fDoc.SelText;
end;
// project interface
@ -305,6 +307,8 @@ begin
'CI', 'CurrentIdentifier' : Result += fSymbols[CI];
'CL', 'CurrentLine' : Result += fSymbols[CL];
'CS', 'CurrentSelection' : Result += fSymbols[CS];
'CLN', 'CaretLineNumber' : Result += fSymbols[CLN];
'CCN', 'CaretColumnNumber' : Result += fSymbols[CCN];
//
'CPF', 'CurrentProjectFile' : Result += fSymbols[CPF];
'CPFS','CurrentProjectFiles' : Result += fSymbols[CPFS];