Zeoslib Portal

Code: Select all

function SetSelectedItems(ListBox: TListBox; List: TStrings): Integer;
var
  I: Integer;
begin
  Result := 0;
  ListBox.Items.BeginUpdate;
  try
    for I := 0 to ListBox.Items.Count - 1 do
      if List.IndexOf(ListBox.Items[I]) > -1 then
      begin
        ListBox.Selected[I] := True;
        Inc(Result);
      end
      else
        ListBox.Selected[I] := False;
    if ListBox.Items.Count > 0 then
    begin
      //ListBox.ItemIndex := 0;
      //ListBox.TopIndex := 0;
    end;
  finally
    ListBox.Items.EndUpdate;
  end;
end;

Code: Select all

procedure SelectAll(ListBox: TListBox);
var
  I: Integer;
begin
  ListBox.Items.BeginUpdate;
  try
    with ListBox do
      for I := 0 to Items.Count - 1 do
        Selected[I] := True;
    if ListBox.Items.Count > 0 then
    begin
      //ListBox.ItemIndex := 0;
      //ListBox.TopIndex := 0;
    end;
  finally
    ListBox.Items.EndUpdate;
  end;
end; 

Code: Select all

procedure TForm1.SelectRandomButtonClick(Sender: TObject);
Var
  a: integer;
begin
  ListBox1.Items.BeginUpdate;
  Try
    For a := 0 To ListBox1.Items.Count - 1 Do
      ListBox1.Selected[a] := a Mod 2 = 0;

    ListBox1.TopIndex := 0;
  Finally

    ListBox1.Items.EndUpdate;
  End;
end;

procedure TForm1.SelectAllButonClick(Sender: TObject);
begin
  ListBox1.Items.BeginUpdate;
  Try
    ListBox1.SelectAll;

    ListBox1.TopIndex := 0;
  Finally
    ListBox1.Items.EndUpdate;
  End;
end;