From 0112fc445639be75ec7cad4cd36cfd8a3a27f8c9 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Thu, 17 Aug 2023 19:05:30 +0200
Subject: [PATCH] TaskDialog: add comments to TTaskDialogFlag definitions.

---
 lcl/dialogs.pp | 36 +++++++++++++++++++++++++-----------
 1 file changed, 25 insertions(+), 11 deletions(-)

diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index 44cad94e12..b99f1d0f31 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -535,17 +535,31 @@ type
 type
   TCustomTaskDialog = class;
 
-  TTaskDialogFlag = (tfEnableHyperlinks, tfUseHiconMain,
-    tfUseHiconFooter, tfAllowDialogCancellation,
-    tfUseCommandLinks, tfUseCommandLinksNoIcon,
-    tfExpandFooterArea, tfExpandedByDefault,
-    tfVerificationFlagChecked, tfShowProgressBar,
-    tfShowMarqueeProgressBar, tfCallbackTimer,
-    tfPositionRelativeToWindow, tfRtlLayout,
-    tfNoDefaultRadioButton, tfCanBeMinimized,
-    tfNoSetForeGround, tfSizeToContent,
-    tfForceNonNative, tfEmulateClassicStyle,
-    tfQuery, tfSimpleQuery, tfQueryFixedChoices, tfQueryFocused);
+  TTaskDialogFlag = (
+    tfEnableHyperlinks,       //Native Vista+ only
+    tfUseHiconMain,           //Not functional
+    tfUseHiconFooter,         //Not functional
+    tfAllowDialogCancellation,
+    tfUseCommandLinks,
+    tfUseCommandLinksNoIcon,
+    tfExpandFooterArea,
+    tfExpandedByDefault,
+    tfVerificationFlagChecked,
+    tfShowProgressBar,        //Native Vista+ only, not fully functional
+    tfShowMarqueeProgressBar, //Native Vista+ only, not fully functional
+    tfCallbackTimer,
+    tfPositionRelativeToWindow,
+    tfRtlLayout,              //Native Vista+ only
+    tfNoDefaultRadioButton,
+    tfCanBeMinimized,
+    tfNoSetForeGround,        //Native Vista+ only
+    tfSizeToContent,          //Native Vista+ only
+    tfForceNonNative,
+    tfEmulateClassicStyle,    //this and following flags: Emulated dialog only
+    tfQuery,
+    tfSimpleQuery,
+    tfQueryFixedChoices,
+    tfQueryFocused);
   TTaskDialogFlags = set of TTaskDialogFlag;
 
   TTaskDialogCommonButton = (tcbOk, tcbYes, tcbNo, tcbCancel, tcbRetry, tcbClose);