Evo jedan mali snippet iz jednog programa koji sam pisao:
Code:
procedure TBaseBackupWindow.ArchiverFileProgress(Sender: TObject;
FileName: String; Progress: Double; Operation: TZFProcessOperation;
ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
Label3.Caption := ExtractFileName(FileName);
Gauge1.Progress := Trunc(Progress);
Cancel := Button1.Cancel;
Application.ProcessMessages;
end;
Obrati paznju na liniju
Gauge1.Progress := Trunc(Progress);