paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 00:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, Block/Selection: Fixed wrong display of Line-Mode blocks

Browse Source 
git-svn-id: trunk@17830 -
This commit is contained in:
martin 2008-12-13 23:17:57 +00:00
parent fdbf11d1a2
commit 892c84807d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditmarkupselection.pp
View File

@ -104,9 +104,9 @@ begin
p1 := TSynEdit(SynEdit).BlockBegin; // always ordered
p2 := TSynEdit(SynEdit).BlockEnd;
if (p1.y > aRow) or (p2.y < aRow)
then exit;
if (p1.y > aRow) or (p2.y < aRow) or not (TSynEdit(SynEdit).SelAvail) then
exit;
p1 := LogicalToPhysicalPos(p1);
p2 := LogicalToPhysicalPos(p2);
nSelStart := 1;