From 892c84807d0f0f8ae5733629c0a2e2becebeb333 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 13 Dec 2008 23:17:57 +0000
Subject: [PATCH] SynEdit, Block/Selection: Fixed wrong display of Line-Mode
 blocks

git-svn-id: trunk@17830 -
---
 components/synedit/syneditmarkupselection.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/synedit/syneditmarkupselection.pp b/components/synedit/syneditmarkupselection.pp
index 9fedb436c0..b9608fdbf7 100644
--- a/components/synedit/syneditmarkupselection.pp
+++ b/components/synedit/syneditmarkupselection.pp
@@ -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;