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

* Patch from Yury Sidorov for clearing a listview selection

Browse Source 
git-svn-id: trunk@10678 -
This commit is contained in:
marc 2007-02-24 17:04:23 +00:00
parent 5a848bbc23
commit 57d06e746d
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/include/customlistview.inc
View File

@ -798,15 +798,36 @@ end;
TCustomListView SetSelection
------------------------------------------------------------------------------}
procedure TCustomListView.SetSelection(const AValue: TListItem);
var
i: integer;
begin
if (AValue<>nil) and (AValue.ListView<>Self) then
raise Exception.Create('item does not belong to this listview');
if FSelected = AValue then Exit;
FSelected := AValue;
//DebugLn('TCustomListView.SetSelection FSelected=',dbgs(FSelected));
if not HandleAllocated then Exit;
TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self, FSelected.Index,
FSelected, lisSelected, True);
if AValue = nil then begin
if MultiSelect then begin
BeginUpdate;
try
for i:=0 to Items.Count-1 do
with Items[i] do
if Selected then
Selected:=False;
finally
EndUpdate;
end;
end
else
FSelected.Selected := False;
FSelected := nil;
Include(FFlags,lffSelectedValid);
end
else begin
FSelected := AValue;
if HandleAllocated then
TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self, FSelected.Index,
FSelected, lisSelected, True);
end;
end;
procedure TCustomListView.SetOwnerData(const AValue: Boolean);