View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0003004 | JEDI VCL | 00 JVCL Components | public | 2005-05-30 06:22 | 2005-06-01 06:07 |
| Reporter | mholmes | Assigned To | obones | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.00 | ||||
| Target Version | Fixed in Version | 3.10 | |||
| Summary | 0003004: ProgressPosition is not updated by ProgressStepIt in JVProgressComponent | ||||
| Description | I'm working with JVProgressComponent, and I have some code to update it like this: procedure TfrmMain.Timer1Timer(Sender: TObject); begin with dlgJVProgComp do begin if Cancel or (ProgressPosition >= ProgressMax) then begin Timer1.Enabled := False; Hide; Exit; end; ProgressStepIt; end; end; However, the condition (ProgressPosition >= ProgressMax) is never satisfied; when the progress reaches its end, it just starts again. Debugging shows that while the component is updated visually by ProgressStepIt, the value of ProgressPosition never changes from 0. | ||||
| Tags | No tags attached. | ||||
|
|
This is confirmed in D7 |
|
|
This is now in CVS. To fix it in your copy, go into the ProgressStepIt function in JvProgressComponent.pas and replace "FProgressBar.StepIt" by the code below: Inc(FProgressPosition, ProgressStep); if ProgressPosition > ProgressMax then FProgressPosition := ProgressMax else if ProgressPosition < ProgressMin then FProgressPosition := ProgressMin else FProgressBar.StepIt; Cheers Olivier |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2005-05-30 06:22 | mholmes | New Issue | |
| 2005-06-01 05:57 | obones | Note Added: 0007376 | |
| 2005-06-01 05:57 | obones | Status | new => confirmed |
| 2005-06-01 06:07 | obones | Status | confirmed => resolved |
| 2005-06-01 06:07 | obones | Resolution | open => fixed |
| 2005-06-01 06:07 | obones | Assigned To | => obones |
| 2005-06-01 06:07 | obones | Note Added: 0007377 |
