paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 06:17:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Options: Fixing of the selection line position in code samples

Browse Source
This commit is contained in:
n7800 2025-05-15 21:07:20 +05:00 committed by Martin
parent 6d1a3b2eb0
commit 92f0421c85
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/editoroptions.pp
View File

@ -3958,7 +3958,7 @@ begin
#13#10 +
'/* Selected text */'#13#10 + #13#10;
AddAttrSampleLines[ahaTextBlock] := 2;
AddAttrSampleLines[ahaTextBlock] := 14;
MappedAttributes := TStringList.Create;
with MappedAttributes do
begin
@ -4098,7 +4098,7 @@ begin
NewInfo.SampleSource := TSynPikeSyn.Pike_GetSampleSource();
with NewInfo do
begin
AddAttrSampleLines[ahaTextBlock] := 12;
AddAttrSampleLines[ahaTextBlock] := 9;
MappedAttributes := TStringList.Create;
with MappedAttributes do
begin