paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 00:27:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Implement TCustomListBox.DeleteSelected. Issue #29904, patch from meteu.

Browse Source 
git-svn-id: trunk@52068 -
This commit is contained in:
juha 2016-03-27 09:52:11 +00:00
parent 51f3338a2d
commit 8ed5c08f14
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/include/customlistbox.inc
View File

@ -655,6 +655,27 @@ begin
end;
end;
procedure TCustomListBox.DeleteSelected;
var
i: Integer;
begin
if MultiSelect then
begin
i:=0;
while True do
if(i<Items.Count) then
begin
if Selected[i] then
FItems.Delete(i)
else
inc(i);
end else
break;
end else
if ItemIndex>=0 then Items.Delete(ItemIndex);
end;
{------------------------------------------------------------------------------
function TCustomListBox.GetIndexAtXY(X, Y: integer): integer;

1
lcl/stdctrls.pp
View File

@ -563,6 +563,7 @@ type
procedure MakeCurrentVisible;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
procedure SelectAll; virtual;
procedure DeleteSelected; virtual;
procedure UnlockSelectionChange;
public
property Align;