paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 15:37:34 +01: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 p1 := TSynEdit(SynEdit).BlockBegin; // always ordered
p2 := TSynEdit(SynEdit).BlockEnd; p2 := TSynEdit(SynEdit).BlockEnd;
if (p1.y > aRow) or (p2.y < aRow) if (p1.y > aRow) or (p2.y < aRow) or not (TSynEdit(SynEdit).SelAvail) then
then exit; exit;
p1 := LogicalToPhysicalPos(p1); p1 := LogicalToPhysicalPos(p1);
p2 := LogicalToPhysicalPos(p2); p2 := LogicalToPhysicalPos(p2);
nSelStart := 1; nSelStart := 1;