Procedure

TfrmOptionsReminders.btnDownClick

Module

fOptionsReminders

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsReminders

Declaration

procedure btnDownClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsReminders.btnDownClick
 └TfrmOptionsReminders.lstDisplayedChange
   └TfrmOptionsReminders.CheckEnable

Calls

Name Declaration Comments
TfrmOptionsReminders.lstDisplayedChange procedure lstDisplayedChange(Sender: TObject); -


Source

178   procedure TfrmOptionsReminders.btnDownClick(Sender: TObject);
179   var
180     newindex, i: integer;
181   begin
182     with lstDisplayed do
183     begin
184       i := Items.Count - 1;
185       while i > -1 do
186       begin
187         if Selected[i] then
188         begin
189           newindex := i + 1;
190           Items.Move(i, newindex);
191           Selected[newindex] := true;
192         end;
193         dec(i);
194       end;
195     end;
196     lstDisplayedChange(self);
197   end;