paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set ListView properties before item creation to correctly initialize it - for example notify listview that items will have checkboxes (bug #0013050)

Browse Source 
git-svn-id: trunk@18467 -
This commit is contained in:
paul 2009-01-28 01:25:06 +00:00
parent 80e57ea4cb
commit ace2f932cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlistview.inc
View File

@ -278,6 +278,7 @@ begin
end; end;
LVC.SetScrollBars(Self, FScrollBars); LVC.SetScrollBars(Self, FScrollBars);
LVC.SetViewOrigin(Self, FViewOriginCache) ; LVC.SetViewOrigin(Self, FViewOriginCache) ;
LVC.SetProperties(Self, FProperties);
LVC.SetSort(Self, FSortType, FSortColumn); LVC.SetSort(Self, FSortType, FSortColumn);
// add items // add items
@ -288,7 +289,6 @@ begin
LVC.SetDefaultItemHeight(Self, FDefaultItemHeight); LVC.SetDefaultItemHeight(Self, FDefaultItemHeight);
LVC.SetHotTrackStyles(Self, FHotTrackStyles); LVC.SetHotTrackStyles(Self, FHotTrackStyles);
LVC.SetHoverTime(Self, FHoverTime); LVC.SetHoverTime(Self, FHoverTime);
LVC.SetProperties(Self, FProperties);
if FSelected <> nil if FSelected <> nil
then LVC.ItemSetState(Self, FSelected.Index, FSelected, lisSelected, True); then LVC.ItemSetState(Self, FSelected.Index, FSelected, lisSelected, True);