ADD: DialogAPI - DM_SETPASSWORDCHAR message

sdk/extension.h

@@ -40,6 +40,7 @@
 #define DM_LISTSET DM_FIRST+36
 #define DM_SETPROGRESSVALUE DM_FIRST+37
 #define DM_SETPROGRESSSTYLE DM_FIRST+38
+#define DM_SETPASSWORDCHAR DM_FIRST+39
 
 /* events messages */
 #define DN_FIRST 0x1000

sdk/extension.pas

@@ -43,6 +43,7 @@ const
   DM_LISTSET              = DM_FIRST+36;
   DM_SETPROGRESSVALUE     = DM_FIRST+37;
   DM_SETPROGRESSSTYLE     = DM_FIRST+38;
+  DM_SETPASSWORDCHAR      = DM_FIRST+39;
 
   // events messages
   DN_FIRST                = $1000;

src/fdialogbox.pas

@@ -547,6 +547,13 @@ begin
         TProgressBar(Control).Style:= TProgressBarStyle(wParam);
       end;
     end;
+  DM_SETPASSWORDCHAR:
+    begin
+      if (Control is TCustomEdit) then
+      begin
+        TCustomEdit(Control).PasswordChar:= Char(wParam);
+      end;
+    end;
   end;
 end;