Procedure

TfrmOptionsCombinations.btnRemoveClick

Module

fOptionsCombinations

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsCombinations

Declaration

procedure btnRemoveClick(Sender: TObject);


Source

244   procedure TfrmOptionsCombinations.btnRemoveClick(Sender: TObject);
245   var
246     i: integer;
247   begin
248     with lvwCombinations do
249     for i := Items.Count - 1 downto 0 do
250       if Items[i].Selected then
251         Items[i].Delete;
252     btnRemove.Enabled := false;
253     FDirty := true;
254   end;