Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
8. Nov 2003
Const Tempo1x = 153600 {150 KB/s * 1024};
{bei DVD's sind das 1,3-1,4 MB/s}
Var Verzeichnis: String;
Tempo: Byte;
Zeit: Integer;
Verzeichnis := 'E:\Download';
Tempo := 4; {1=1x(150 KB/s), 2=2x(300 KB/s), 4=4x(600 KB/s)...}
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
3. Nov 2003
@Duffy
:oops: vertauscht - hätte das wohl an AddProgress auch schon merken müssen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
3. Nov 2003
@Spider
ProgressBar1.Position := ProgressBar1.Position + 1;
{=}
Progressbar1.StepBy(1);
ProgressBar1.Position := ProgressBar1.Position + Progressbar1.Step;
{=}
Gauge1.StepIt;