From 8012169318053d3df9c06d51ad542a22f42fee83 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Fri, 18 Aug 2023 17:57:18 +0200
Subject: [PATCH] TaskDialog: TLCLTaskDialog and Win32 WS: remove type
 definitions (and conversion routines) that were copied from the old
 LCLTaskDialog unit. Part 2.

---
 lcl/taskdlgemulation.pp | 32 ++------------------------------
 1 file changed, 2 insertions(+), 30 deletions(-)

diff --git a/lcl/taskdlgemulation.pp b/lcl/taskdlgemulation.pp
index adbd790cd0..a8c41b484d 100644
--- a/lcl/taskdlgemulation.pp
+++ b/lcl/taskdlgemulation.pp
@@ -204,9 +204,8 @@ end;
 
 const
   LCL_IMAGES: array[TTaskDialogIcon] of Integer = (
-    0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation}, idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion});
-  //LCL_FOOTERIMAGES: array[TTaskDialogIcon] of Integer = (
-  //0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation}, idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion});
+    0 {tdiNone}, idDialogWarning {tdiWarning}, idDialogError {tdiError}, idDialogInfo {tdiInformation},
+    idDialogShield {tdiShield}, idDialogConfirm {tdiQuestion});
 
 const
   TD_BTNMOD: array[TTaskDialogCommonButton] of Integer = (
@@ -227,33 +226,6 @@ end;
 
 
 
-//function TF_DIALOGICON(const aIcon: TTaskDialogIcon): TLCLTaskDialogIcon;
-//begin
-//  case aIcon of
-//    tdiWarning: Result := tiWarning;
-//    tdiError: Result := tiError;
-//    tdiInformation: Result := tiInformation;
-//    tdiShield: Result := tiShield;
-//    tdiQuestion: Result := tiQuestion;
-//  else
-//    Result := tiBlank;
-//  end;
-//end;
-
-//function TF_FOOTERICON(const aIcon: TTaskDialogIcon): TLCLTaskDialogFooterIcon;
-//begin
-//  case aIcon of
-//    tdiWarning: Result := tfiWarning;
-//    tdiError: Result := tfiError;
-//    tdiInformation: Result := tfiInformation;
-//    tdiShield: Result := tfiShield;
-//    tdiQuestion: Result := tfiQuestion;
-//  else
-//    Result := tfiBlank;
-//  end;
-//end;
-
-
 function IconMessage(Icon: TTaskDialogIcon): string;
 begin
   case Icon of