ADD: DialogAPI - progress bar support #2

sdk/extension.h

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

sdk/extension.pas

@@ -42,6 +42,7 @@ const
   DM_SETITEMDATA          = DM_FIRST+35;
   DM_LISTSET              = DM_FIRST+36;
   DM_SETPROGRESSVALUE     = DM_FIRST+37;
+  DM_SETPROGRESSSTYLE     = DM_FIRST+38;
 
   // events messages
   DN_FIRST                = $1000;

src/fdialogbox.pas

@@ -540,6 +540,13 @@ begin
         TProgressBar(Control).Position:= wParam;
       end;
     end;
+  DM_SETPROGRESSSTYLE:
+    begin
+      if (Control is TProgressBar) then
+      begin
+        TProgressBar(Control).Style:= TProgressBarStyle(wParam);
+      end;
+    end;
   end;
 end;