Увеличение счетчика при сохранении файлов

[mihali4]

Какой еще label1.caption.refresh ??? Есть Label1.Refresh, лучше Repaint.
И так для каждой метки ?
Как уже было упомянуто, правильнее делать
Application.ProcessMessages.

[maxionans]

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

вы уж меня извините, но зачем городить такую ерунду?

Вы уж меня извините, но вы сначала изучите предмет обсуждения, прежде чем писать собственную ерунду. Согласно описанию в MSDN, progress bar может отображать позиции в диапазоне от 0 и до 65535. А на практике в Delphi доступен диапазон и того меньше: 0 - 32767. Числа небольшие и при указании максимального значения и позиции "в лоб" никто не застрахован от того, что progress bar не сможет отобразить нужное состояние. Так что впредь сначала думаем, а потом пишем, да?

[Bug2000]

И что вы все к RowCount прицепились.
Поэтому у него и не доходит до максимума.
RowCount - это размер Грида
а файлов вероятно меньше.
вот и
if FindNext(sr)<>0 then break;

[maxionans]

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

RowCount - это размер Грида
а файлов вероятно меньше.[/B]

Да, скорее всего ты прав.

[artemavd]

Количество записей в гриде у меня совпадает с количество файлов в папке.

[maxionans]

а насколько progress bar не доходит до конца? может быть имеет смысл после цикла поставить ProgressBar.Position := ProgressBar.Max, да и дело с концом?

[artemavd]

Поставил. Ладно, пусть хоть так чтоли)

[Bug2000]

procedure TMainForm.N8Click(Sender: TObject);
var
  x, y, i, counter: integer;
  b: TBitmap;
  sr: TSearchRec;
  s: string;
  jpg: TJpegImage;
begin
  if FindFirst(MainForm.RzStatusPane10.Caption + '*.bmp', faAnyFile, sr)
    <> 0 then
  begin
    ShowMessage('Нету файлов!!!');
    exit;
  end;
  ProgressBar1 b := TBitmap.Create;
  jpg := TJpegImage.Create;
  try
    counter := 0;
    with RzStringGrid2 do
    begin
      MainForm.ProgressBar1.Max := RowCount;
      for i := 0 to RowCount - 1 do
      begin
        b.LoadFromFile(MainForm.RzStatusPane10.Caption + sr.Name);
        jpg.Assign(b);
        jpg.CompressionQuality := 5;
        jpg.Compress;
        jpg.SaveToFile(MainForm.RzStatusPane12.Caption +
          MainForm.RzStringGrid2.Cells[0, i] + '.jpeg');
        Inc(counter);
        MainForm.ProgressBar1.Position := counter;
        Label25.Caption := IntToStr(counter);
        Application.ProcessMessages;
        if FindNext(sr) <> 0 then
        begin
          ShowMessage('Нехватило файлов!!!');
          break;
        end
        else if counter = RowCount then
          ShowMessage('Слишком много файлов!!!');
      end;
    end;
  finally
    b.Free;
    jpg.Free;
    FindClose(sr);
  end;
  ShowMessage('                  Âûïîëíåíî!                  ');
end;

[Bug2000]

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

Согласно описанию в MSDN, progress bar может отображать позиции в диапазоне от 0 и до 65535. А на практике в Delphi доступен диапазон и того меньше: 0 - 32767. Числа небольшие и при указании максимального значения и позиции "в лоб" никто не застрахован от того, что progress bar не сможет отобразить нужное состояние.

Вот здесь http://msdn.microsoft.com/en-us/library/bb760848.aspx
не видно ни каких ограничений в 65535.
Да и только что прогнал прогресс до миллиона ничего не случилось.
У меня правда сейчас Delphi XE - может в 7 ограничения?

Помогите разобраться. Если эти ограничения для старых win, то мне не страшно, в противном случае придется перелопачивать некоторые проекты.

[maxionans]

дело там не в делфи, а в версии comctl32.dll. сейчас, конечно, уже почти везде исопльзуются версии, обеспечивающие диапазоны progressbar-а более 64К, но всякое случается и нет никаких гарантий, что библиотека не будет замещена каким-нибудь стрёмным приложением. а пересчитывать прогресс в проценты это не сложно и надёжно.