From c21ef25d76a355c5a6672864f3f7fbd96fba01f0 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 17 Dec 2013 21:47:15 +0000 Subject: listview: painting of bottom right rectangle was all wrong. The little rectangle between the horizontal and vertical scrollbars was painted all wrong. --- src/gui/fpg_listview.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/gui') diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index 8703d6de..889c425c 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -1077,7 +1077,7 @@ end; procedure TfpgListView.MsgPaint(var msg: TfpgMessageRec); begin // Optimises painting and prevents Begin[End]Draw and OnPaint event firing - // in not needed. + // if not needed. if FUpdateCount = 0 then inherited MsgPaint(msg); end; @@ -1417,10 +1417,10 @@ begin if FVScrollBar.Visible and FHScrollBar.Visible then begin Canvas.Color := clButtonFace; - Canvas.FillRectangle(Width - 2 - FVScrollBar.Width, - Height - 2 - FHScrollBar.Height, - Width - 2, - Height - 2); + Canvas.FillRectangle(FHScrollBar.Left+FHScrollBar.Width, + FVScrollBar.Top+FVScrollBar.Height, + FVScrollBar.Width, + FHScrollBar.Height); end; if FVScrollBar.Visible then -- cgit v1.2.3-70-g09d2