Загрузка файла с отображением полной информации

[mogo]

Сообщение от mogo

ну так вы и обещали полное сходство с примером, а сделали только прогесс бар, это я и сам могу без проблем. Мне интересует, получение размера файла,сколько скачено Мб, сколько осталось МБ

Упс, там ак и есть, я не заметил...

[doktor255]

Чаво чаво говоришь?

[mogo]

Сообщение от doktor255

Чаво чаво говоришь?

Я же написал что не заметил.
Ну так сколько стоит исход этого чуда?

[doktor255]

Сообщение от mogo

Я же написал что не заметил.

Ты и сообщение в ЛС не заметил. Беда...

[doktor255]

В виду того, что топикстартер оказался жмотом, выкладываю решение на халяву так сказать. А чтоб не скучно было изучать, в архиве только pas.

[Человек_Борща]

Да не в обиду будет сказано.. но, это специально так задумано:

procedure TForm1.EnableComponents(value: Boolean);
begin
  if value = true then begin
  Edit1.Enabled := true;
  Edit2.Enabled := true;
  Btn1.Enabled := true;
  Btn2.Enabled := true;
  Btn3.Enabled := true;
  end else begin
  Edit1.Enabled := false;
  Edit2.Enabled := false;
  Btn1.Enabled := false;
  Btn2.Enabled := false;
  Btn3.Enabled := false;
  end;
end;

?

Не программируйте по ночам или будучи под веществами(даже жидкими)... Страшно утром код смотреть... Тоже проверял

[northener]

Да не в обиду будет сказано.. но, это специально так задумано:

Конечно специально. Чем больше строчек кода, тем больше стоимость работы.

[doktor255]

А что не так то собственно? Или есть иные способы переключить Enabled нескольких контроллов, не находящихся на какой нибудь панели?

[Аватар]

Так, например

  Edit1.Enabled := value;
  Edit2.Enabled := value;
  Btn1.Enabled := value;
  Btn2.Enabled := value;
  Btn3.Enabled := value;

[doktor255]

А ну да. Чёт не догадался. Вроде как мысль шла к оптимизации переключений, но по какой-то причине (запара?) не дошла до конца. Конечно оптимизация рулит, тут не поспоришь, но по сути в данном куске кода особых изменений данная оптимизация не делает. За подсказку спасибо.