diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-12 13:15:20 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2009-02-12 13:15:20 +0000 |
commit | 99122eababd124eb00cef0cada3a01b05a5d2863 (patch) | |
tree | 24813be3967e081e5eaa0ca8a6892ffd41f3ef08 /src/gui/fpg_listbox.pas | |
parent | c9cd9e5cd1a834813ad6240578782bd5b3ff49a3 (diff) | |
download | fpGUI-99122eababd124eb00cef0cada3a01b05a5d2863.tar.xz |
* Applied Jean-Marc's margin patches.
Diffstat (limited to 'src/gui/fpg_listbox.pas')
-rw-r--r-- | src/gui/fpg_listbox.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas index e6b7836d..469cd106 100644 --- a/src/gui/fpg_listbox.pas +++ b/src/gui/fpg_listbox.pas @@ -354,7 +354,7 @@ begin if FAutoHeight= AValue then Exit; //==> FAutoHeight := AValue; - Height := (PageLength * RowHeight) + (2 * FMargin); + Height := (Succ(PageLength) * RowHeight) + (2 * FMargin); end; procedure TfpgBaseListBox.MsgPaint(var msg: TfpgMessageRec); |