Procedure

TfrmOptionsTitles.btnRemoveClick

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

procedure btnRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsTitles.btnRemoveClick
 ├TfrmOptionsTitles.GetFirstSelection
 ├TfrmOptionsTitles.RemoveSelected
 ├TfrmOptionsTitles.SetItem
 ├TfrmOptionsTitles.CheckEnable
 │ └TfrmOptionsTitles.MemberNotOnList
 └TfrmOptionsTitles.lstYourTitlesChange

Calls

Name Declaration Comments
TfrmOptionsTitles.CheckEnable procedure CheckEnable; -
TfrmOptionsTitles.GetFirstSelection function GetFirstSelection(aList: TORListBox): integer; -
TfrmOptionsTitles.lstYourTitlesChange procedure lstYourTitlesChange(Sender: TObject); -
TfrmOptionsTitles.RemoveSelected procedure RemoveSelected; -
TfrmOptionsTitles.SetItem procedure SetItem(aList: TORListBox; index: integer); -


Source

246   procedure TfrmOptionsTitles.btnRemoveClick(Sender: TObject);
247   var
248     index: integer;
249   begin
250     index := GetFirstSelection(lstYourTitles);
251     RemoveSelected;
252     SetItem(lstYourTitles, index);
253     CheckEnable;
254     if lstYourTitles.Items.Count = 0 then
255     begin
256       btnDefault.Enabled := false;
257       btnRemove.Enabled := false;
258     end
259     else
260       lstYourTitlesChange(self);
261     btnSaveChanges.Enabled := true;
262   end;