From 39d02186ce412c361ac8807fa66243e49b632281 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Sun, 13 Nov 2011 07:28:08 +0000
Subject: [PATCH] customdrawn: Fixes caret drawing which was broken by my rev
 33432 #e132939252

git-svn-id: trunk@33502 -
---
 components/customdrawn/customdrawn_common.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/customdrawn/customdrawn_common.pas b/components/customdrawn/customdrawn_common.pas
index 738903899c..8633491ed8 100644
--- a/components/customdrawn/customdrawn_common.pas
+++ b/components/customdrawn/customdrawn_common.pas
@@ -575,6 +575,7 @@ begin
   lTmpText := UTF8Copy(lControlText, 1, AStateEx.CaretPos.X-AStateEx.VisibleTextStart.X+1);
   lCaretPixelPos := ADest.TextWidth(lTmpText) + 3;
   ADest.Pen.Color := clBlack;
+  ADest.Pen.Style := psSolid;
   ADest.Line(lCaretPixelPos, lTextTopSpacing, lCaretPixelPos, lTextTopSpacing+lCaptionHeight);
 end;