Procedure

TfrmdlgProb.bbRemoveClick

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmdlgProb

Declaration

procedure bbRemoveClick(Sender: TObject);


Source

915   procedure TfrmdlgProb.bbRemoveClick(Sender: TObject);
916   begin
917    if (lstComments.Items.Count = 0) or (lstComments.ItemIndex < 0) then exit ;
918    lstComments.Items[lstComments.ItemIndex] := 'DELETED' ;
919    fChanged := true;
920   end;