From e9bd0c8749c15ed6d3624a7dc5328c475335dff2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 18 Apr 2011 06:57:33 +0000
Subject: [PATCH] IDE: normalize LogicalCaretXY in
 TMainIDE.DoJumpToCompilerMessage

git-svn-id: trunk@30358 -
---
 ide/main.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index 94c6a6f6ce..10a138d13a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -13415,6 +13415,8 @@ begin
         SrcEdit:=SourceEditorManager.ActiveEditor;
         if LogCaretXY.Y>SrcEdit.EditorComponent.Lines.Count then
           LogCaretXY.Y:=SrcEdit.EditorComponent.Lines.Count;
+        if LogCaretXY.X<1 then
+          LogCaretXY.X:=1;
         TopLine:=LogCaretXY.Y-(SrcEdit.EditorComponent.LinesInWindow div 2);
         if TopLine<1 then TopLine:=1;
         if FocusEditor then begin