From 68b4e90a449379281d74c12e62fd1bd34dc9be70 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 9 Dec 2016 08:45:26 +0000
Subject: [PATCH] lcl: listbox: highDPI: fix default item height

git-svn-id: trunk@53610 -
---
 lcl/include/customlistbox.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index a9317ecfbe..cdc68e46a2 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -294,7 +294,8 @@ begin
     if Self.ItemHeight <> 0 then
       AHeight := Self.ItemHeight
     else
-      AHeight := ItemHeight;
+      AHeight := Canvas.TextHeight('Hg');
+
     MeasureItem(Integer(ItemId), AHeight);
     if AHeight > 0 then
       ItemHeight := AHeight;