From 425248e81d7b527ac65f32a9a33730487266e042 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sat, 14 May 2022 14:50:30 +0200 Subject: [PATCH] add symstring CLN and CCN --- CHANGELOG.md | 1 + src/u_symstring.pas | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 48f19661..5e48a331 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -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 diff --git a/src/u_symstring.pas b/src/u_symstring.pas index 2414133e..fdc5a0d6 100644 --- a/src/u_symstring.pas +++ b/src/u_symstring.pas @@ -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];