From da3cabb3fd9e3609708af2be6fd72cf69529a334 Mon Sep 17 00:00:00 2001 From: vincents Date: Tue, 10 Apr 2007 08:10:59 +0000 Subject: [PATCH] LCL: fixed range error for partial shown treeview items git-svn-id: trunk@10927 - --- lcl/include/treeview.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc index 37dfd91009..30e282b317 100644 --- a/lcl/include/treeview.inc +++ b/lcl/include/treeview.inc @@ -4134,8 +4134,8 @@ begin end else begin PaintImages:=true; end; - VertMid:=(NodeRect.Top+NodeRect.Bottom) shr 1; - //DebugLn('[TCustomTreeView.DoPaintNode] Node=',DbgS(Node),' Node.Text=',Node.Text,' NodeRect=',NodeRect.Left,',',NodeRect.Top,',',NodeRect.Right,',',NodeRect.Bottom,' VertMid=',VertMid); + VertMid:=(NodeRect.Top+NodeRect.Bottom) div 2; + //DebugLn(['[TCustomTreeView.DoPaintNode] Node=',DbgS(Node),' Node.Text=',Node.Text,' NodeRect=',NodeRect.Left,',',NodeRect.Top,',',NodeRect.Right,',',NodeRect.Bottom,' VertMid=',VertMid]); with Canvas do begin // draw background if (tvoRowSelect in FOptions) and NodeSelected then