paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:36:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TTaskDialog: remove commented out code.

Browse Source
This commit is contained in:
Bart 2023-08-25 18:49:11 +02:00
parent 9e2aabba9d
commit f8ee1f55bb
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/taskdialog.inc
View File

@ -95,18 +95,10 @@ begin
//several sources indicate that FMax must be <= High(Word)
//testing reveals that FMin must be >= 0 (Vista+ native dialog)
FMax := EnsureRange(FMax, Integer(0), High(Word));
//if (FMax > High(Word)) then
// FMax := High(Word);
FMin := EnsureRange(FMin, Integer(0), High(Word));
//if (FMin < 0) then
// FMin := 0;
if (FMin > FMax) then
FMin := FMax;
FPosition := EnsureRange(FPosition, FMin, FMax);
//if (FPosition > FMax) then
// FPosition := FMax;
//if (FPosition < FMin) then
// FPosition := FMin;
FPosition := EnsureRange(FPosition, FMin, FMax); //the actual progressbar in the dialog will adjust this as well
if (tfShowProgressBar in Dlg.Flags) and (Dlg.Handle <> 0) then
begin
Res := SendMessage(Dlg.Handle, TDM_SET_PROGRESS_BAR_RANGE, 0, MAKELPARAM(Word(FMin), Word(FMax))); //Zero indicates failure