mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 11:59:13 +02:00
TTaskDialog: remove commented out code.
This commit is contained in:
parent
9e2aabba9d
commit
f8ee1f55bb
@ -95,18 +95,10 @@ begin
|
|||||||
//several sources indicate that FMax must be <= High(Word)
|
//several sources indicate that FMax must be <= High(Word)
|
||||||
//testing reveals that FMin must be >= 0 (Vista+ native dialog)
|
//testing reveals that FMin must be >= 0 (Vista+ native dialog)
|
||||||
FMax := EnsureRange(FMax, Integer(0), High(Word));
|
FMax := EnsureRange(FMax, Integer(0), High(Word));
|
||||||
//if (FMax > High(Word)) then
|
|
||||||
// FMax := High(Word);
|
|
||||||
FMin := EnsureRange(FMin, Integer(0), High(Word));
|
FMin := EnsureRange(FMin, Integer(0), High(Word));
|
||||||
//if (FMin < 0) then
|
|
||||||
// FMin := 0;
|
|
||||||
if (FMin > FMax) then
|
if (FMin > FMax) then
|
||||||
FMin := FMax;
|
FMin := FMax;
|
||||||
FPosition := EnsureRange(FPosition, FMin, FMax);
|
FPosition := EnsureRange(FPosition, FMin, FMax); //the actual progressbar in the dialog will adjust this as well
|
||||||
//if (FPosition > FMax) then
|
|
||||||
// FPosition := FMax;
|
|
||||||
//if (FPosition < FMin) then
|
|
||||||
// FPosition := FMin;
|
|
||||||
if (tfShowProgressBar in Dlg.Flags) and (Dlg.Handle <> 0) then
|
if (tfShowProgressBar in Dlg.Flags) and (Dlg.Handle <> 0) then
|
||||||
begin
|
begin
|
||||||
Res := SendMessage(Dlg.Handle, TDM_SET_PROGRESS_BAR_RANGE, 0, MAKELPARAM(Word(FMin), Word(FMax))); //Zero indicates failure
|
Res := SendMessage(Dlg.Handle, TDM_SET_PROGRESS_BAR_RANGE, 0, MAKELPARAM(Word(FMin), Word(FMax))); //Zero indicates failure
|
||||||
|
Loading…
Reference in New Issue
Block a user