Работа с ProgressBar

[star007]

Всем доброго времени суток. Вобщем иработает эта функция:

Procedure TCleanThread.Execute;
begin
//MainForm.Label1.Caption := 'Scan in progress';
//    InvExt: Boolean;
//    InvFlp: Boolean;

Scanning := True;
if InvExt = True then begin
Form1.Panel1.Caption := 'Поиск неверных расширений. Пожалуйста ждите...;
FReg := TRegistry.Create;
FReg.RootKey := HKEY_CLASSES_ROOT;
RegRecurseScan('','','',1);
FReg.Free;
end;
if InvFlp = True then begin
Form1.Panel1.Caption := 'Поиск неверных ссылок на файлы. Пожалуйста ждите...';
FReg := TRegistry.Create;
FReg.RootKey := HKEY_LOCAL_MACHINE;
RegRecurseScan('\SOFTWARE','\SOFTWARE','',1);
FReg.Free;
end;
if InvFlp = True then begin
Form1.Panel1.Caption := 'Поиск неверных ссылок на файлы. Пожалуйста ждите...';
FReg := TRegistry.Create;
FReg.RootKey := HKEY_CURRENT_USER;
RegRecurseScan('\SOFTWARE','\SOFTWARE','',1);
FReg.Free;
end;
Form1.Panel1.Caption := 'Анализ ключей реестра завершён.';
Scanning := False;

Form1.Button1.Enabled := True;
Form1.Button2.Enabled := False;
if Form1.ListView1.Items.Count > 0 then Form1.Button3.Enabled := True;
end;

Через эту кнопку:

procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.Clear;
Scan := TCleanThread.Create(True);
Scan.InvExt := True;
Scan.InvFlp := True;
Scan.FreeOnTerminate := True;
Scan.Resume;
Button1.Enabled := False;
Button3.Enabled := False;
Button2.Enabled := True;
end;

Надо вместо Panel прикрутить ProgressBar. Пробовал сам, но что-то всё стоит на месте. Заранее благодарен.

[FaTaL]

А что именно не получается? Покажите. А стоять может из-за того, что Вы обращаетесь в VCL из потока без метода Syncronize (синхронизация с главным потоком программы).

[star007]

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

А что именно не получается? Покажите. А стоять может из-за того, что Вы обращаетесь в VCL из потока без метода Syncronize (синхронизация с главным потоком программы).

Делаю вот так:

Procedure TCleanThread.Execute;
var
g:integer;
begin
//MainForm.Label1.Caption := 'Scan in progress';
//    InvExt: Boolean;
//    InvFlp: Boolean;

Scanning := True;
if InvExt = True then begin
Form1.Panel1.Caption := 'Поиск неверных расширений';
FReg := TRegistry.Create;
FReg.RootKey := HKEY_CLASSES_ROOT;
RegRecurseScan('','','',1);
FReg.Free;
g:=form1.ListView1.Items.Count;
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+g;
end;
if InvFlp = True then begin
Form1.Panel1.Caption := 'Поиск неверных ссылок на файлы';
FReg := TRegistry.Create;
FReg.RootKey := HKEY_LOCAL_MACHINE;
RegRecurseScan('\SOFTWARE','\SOFTWARE','',1);
FReg.Free;
g:=form1.ListView1.Items.Count;
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+g;
end;
if InvFlp = True then begin
Form1.Panel1.Caption := 'Поиск неверных ссылок на файлы';
FReg := TRegistry.Create;
FReg.RootKey := HKEY_CURRENT_USER;
RegRecurseScan('\SOFTWARE','\SOFTWARE','',1);
FReg.Free;
g:=form1.ListView1.Items.Count;;
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+g;
end;
Form1.Panel1.Caption := 'Анализ реестра завершён';
Scanning := False;

Form1.Button1.Enabled := True;
Form1.Button2.Enabled := False;
if Form1.ListView1.Items.Count > 0 then Form1.Button3.Enabled := True;
end;

ничего не происходит
З.Ы. С ProgressBar'ом первый раз работаю, погите

[FaTaL]

А что Вы этим делаете?

g:=form1.ListView1.Items.Count;;
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+g;

Для чего это? Зачем так?

[star007]

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

А что Вы этим делаете?

g:=form1.ListView1.Items.Count;;
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+g;

Для чего это? Зачем так?

хотел изменять состояние брав кол-во записей из ListView.
З.Ы. Исходник прилогается (Основные процедуры в юните ClearReg в очистке реестра)

[C_R_E_S_C_H]

а где тут вы задаете максимальное значение в прогресс баре?