diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-09 15:31:23 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-09 15:31:23 +0000 |
| commit | 30cb1d0f87d79a11169ec741a993b4d69213cdcb (patch) | |
| tree | 3943b283a92cb964c8c0f015cfb01daf0d4ac3fa /src | |
| parent | a9dfbec692a7dbcb8790de41210df1adb91e01a4 (diff) | |
| download | fpGUI-30cb1d0f87d79a11169ec741a993b4d69213cdcb.tar.xz | |
* Fixed a bug in TfpgListView where it didn't paint the last column's content.
* Applied formating to tiListMediators
* Removed the ListBox implementation in tiListMediators. It was totally wrong.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/gui_listview.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/gui/gui_listview.pas b/src/gui/gui_listview.pas index 09332b93..094f8281 100644 --- a/src/gui/gui_listview.pas +++ b/src/gui/gui_listview.pas @@ -1330,7 +1330,7 @@ begin FirstIndex := (FVScrollBar.Position) div ItemHeight; LastIndex := (FVScrollBar.Position+GetItemAreaHeight) div ItemHeight; - if LastIndex > Fitems.Count-1 then + if LastIndex > FItems.Count-1 then LastIndex := FItems.Count-1; cBottom := 2 + ((LastIndex+1 - FirstIndex) * ItemHeight); @@ -1340,7 +1340,6 @@ begin oClipRect := Canvas.GetClipRect; - for I := FirstIndex to LastIndex do begin ItemState := []; @@ -1392,7 +1391,7 @@ begin begin if lisSelected in ItemState then Canvas.TextColor := clSelectionText; - for J := 0 to FColumns.Count -1 do + for J := 0 to FColumns.Count-1 do begin if FColumns.Column[J].Visible then begin @@ -1407,7 +1406,7 @@ begin ColumnIndex := J; if ColumnIndex = 0 then TheText := Item.Caption - else if Item.SubItems.Count > ColumnIndex then + else if Item.SubItems.Count >= ColumnIndex then TheText := Item.SubItems.Strings[ColumnIndex-1] else TheText := ''; |