Procedure

TfrmOptionsTitles.btnDownClick

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

procedure btnDownClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsTitles.btnDownClick
 ├TfrmOptionsTitles.CheckEnable
 │ └TfrmOptionsTitles.MemberNotOnList
 └TfrmOptionsTitles.lstYourTitlesChange

Calls

Name Declaration Comments
TfrmOptionsTitles.CheckEnable procedure CheckEnable; -
TfrmOptionsTitles.lstYourTitlesChange procedure lstYourTitlesChange(Sender: TObject); -


Source

325   procedure TfrmOptionsTitles.btnDownClick(Sender: TObject);
326   var
327     newindex, i: integer;
328   begin
329     with lstYourTitles do
330     begin
331       i := Items.Count - 1;
332       while i > -1 do
333       begin
334         if Selected[i] then
335         begin
336           newindex := i + 1;
337           Items.Move(i, newindex);
338           Selected[newindex] := true;
339         end;
340         dec(i)
341       end;
342     end;
343     btnSaveChanges.Enabled := true;
344     CheckEnable;
345     lstYourTitlesChange(self);
346   end;