diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-17 21:47:15 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-17 21:47:15 +0000 |
| commit | c21ef25d76a355c5a6672864f3f7fbd96fba01f0 (patch) | |
| tree | 57abf62b83ad2f1b6282fc83530ff55ff3f1f2bc /src | |
| parent | 489611805da771e897360619da357a0358717c7b (diff) | |
| download | fpGUI-c21ef25d76a355c5a6672864f3f7fbd96fba01f0.tar.xz | |
listview: painting of bottom right rectangle was all wrong.
The little rectangle between the horizontal and vertical scrollbars was
painted all wrong.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_listview.pas | 10 |
1 files changed, 5 insertions, 5 deletions
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 |