Procedure

TfrmOptionsLists.btnPersonalPatientRClick

Module

fOptionsLists

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsLists

Declaration

procedure btnPersonalPatientRClick(Sender: TObject);


Source

430   procedure TfrmOptionsLists.btnPersonalPatientRClick(Sender: TObject);
431   var
432     i: integer;
433   begin
434     if not btnPersonalPatientR.Enabled then exit;
435     with lstPersonalPatients do
436     for i := Items.Count - 1 downto 0 do
437       if Selected[i] then
438         Items.Delete(i);
439     btnPersonalPatientR.Enabled := lstPersonalPatients.SelCount > 0;
440     btnPersonalPatientRA.Enabled := lstPersonalPatients.Items.Count > 0;
441     btnListSaveChanges.Enabled := true;
442   end;