EnableExplicit
Enumeration
  #WIN
  #GADGET_1
  #GADGET_2
EndEnumeration
#PBM_SETMARQUEE=#WM_USER+10
#PBM_SETSTATE = #WM_USER + 16
#PBST_ERROR = $0002;
;#PBST_PAUSED = 3
#PBM_SETBARCOLOR = #WM_USER + 9
#PBM_GETBKCOLOR = #WM_USER + 14
#PBM_GETBARCOLOR = #WM_USER + 15
#PBM_SETBKCOLOR = $2001

If OpenWindow(0, 0, 0, 270, 100, "Прогресс бар", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ProgressBarGadget(#GADGET_1, 10, 10, 250, 30, 0, 100, #PBS_MARQUEE)
    ButtonGadget (#GADGET_2, 10, 60, 150, 30, "Стоп")

    SendMessage_(GadgetID(#GADGET_1), #PBM_SETMARQUEE, #True, 50); передать управление анимацией прогресса винде. Работает.
    
    SetWindowTheme_(GadgetID(#GADGET_1),@"",@"")    ;Выключает тему без этого следующие 2 не работают а с этим типа не так красиво
    SendMessage_(GadgetID(#GADGET_1), #PBM_SETBARCOLOR, 0, $eb4ae8); закрасить полоску  прогресса. НЕ работает.
    SendMessage_(GadgetID(#GADGET_1), #PBM_SETBKCOLOR, 0, $29d4ec);  закрасить фон прогресса. НЕ работает.
    
    
    ;Debug SendMessage_(GadgetID(#GADGET_1), #PBM_GETBARCOLOR, 0, 0);             получить текущее значение цвета полоски. Получаем то, что установили, но визуально цвет не поменялся. ПОЧЕМУ??? 
    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_Gadget
                Select EventGadget()
                    Case #GADGET_2
                        SetWindowLong_(GadgetID(#GADGET_1), #GWL_STYLE, GetWindowLong_(GadgetID(#GADGET_1), #GWL_STYLE) & ~#PBS_MARQUEE); отменить предидущий стиль, что бы работало снова как обычно. Работает.
                        SetGadgetState (#GADGET_1, 50)
                        SendMessage_(GadgetID(#GADGET_1), #PBM_SETSTATE, #PBST_ERROR, 0);     сигнализация об ошибке, просто пример. Работает.
                EndSelect
            Case #PB_Event_CloseWindow
                CloseWindow(#WIN)
                End
        EndSelect
    ForEver
EndIf

EnableExplicit
Enumeration
  #WIN
  #GADGET_1
  #GADGET_2
EndEnumeration
#PBM_SETMARQUEE=#WM_USER+10
#PBM_SETSTATE = #WM_USER + 16
#PBST_ERROR = $0002;
;#PBST_PAUSED = 3
#PBM_SETBARCOLOR = #WM_USER + 9
#PBM_GETBKCOLOR = #WM_USER + 14
#PBM_GETBARCOLOR = #WM_USER + 15
#PBM_SETBKCOLOR = $2001

Procedure.i GetThemeBackgroundContentRect(hwhd,hTheme,*rect.rect)
 Protected  hdc=GetDC_(hwhd)
; GetThemeBackgroundContentRect_(hTheme,hdc,iPartId,iStateId,
 ;                               [in]  LPCRECT pBoundingRect,
;                                [out] LPRECT  pContentRect
 ReleaseDC_(hwhd,hdc)
  ProcedureReturn 
EndProcedure

Global  hthema.i
Procedure.i DrawThemeBackground(hwhd)
;progress 
#PP_BAR = 1
#PP_BARVERT = 2
#PP_CHUNK = 3
#PP_CHUNKVERT = 4
#PP_FILL = 5;PBFS_ERROR=2, PBFS_NORMAL=1, PBFS_PARTIAL=4, PBFS_PAUSED=3
#PP_FILLVERT = 6;PBFVS_ERROR=2, PBFVS_NORMAL=1, PBFVS_PARTIAL=4, PBFVS_PAUSED=3
#PP_PULSEOVERLAY = 7
#PP_MOVEOVERLAY = 8
#PP_PULSEOVERLAYVERT = 9
#PP_MOVEOVERLAYVERT = 10
#PP_TRANSPARENTBAR = 11;PBBS_NORMAL=1, PBBS_PARTIAL=2
#PP_TRANSPARENTBARVERT = 12;PBBVS_NORMAL=1, PBBVS_PARTIAL=2
            
#PBBS_NORMAL = 1
#PBBS_PARTIAL = 2         
;==========================
;edit  EDIT_PARTS
#EP_EDITTEXT = 1:#ETS_ASSIST=7: #ETS_CUEBANNER=8:#ETS_DISABLED=4:#ETS_FOCUSED=5:#ETS_HOT=2:#ETS_NORMAL=1:#ETS_READONLY=6:#ETS_SELECTED=3
#EP_CARET = 2
#EP_BACKGROUND = 3;EBS_ASSIST=6, EBS_DISABLED=3, EBS_FOCUSED=4, EBS_HOT=2, EBS_NORMAL=1, EBS_READONLY=5
#EP_PASSWORD = 4
#EP_BACKGROUNDWITHBORDER = 5;EBWBS_DISABLED=3, EBWBS_FOCUSED=4, EBWBS_HOT=2, EBWBS_NORMAL=1
#EP_EDITBORDER_NOSCROLL = 6;EPSN_DISABLED=4, EPSN_FOCUSED=3, EPSN_HOT=2, EPSN_NORMAL=1
#EP_EDITBORDER_HSCROLL = 7;EPSH_DISABLED=4, EPSH_FOCUSED=3, EPSH_HOT=2, EPSH_NORMAL=1
#EP_EDITBORDER_VSCROLL = 8;EPSV_DISABLED=4, EPSV_FOCUSED=3, EPSV_HOT=2, EPSV_NORMAL=1
#EP_EDITBORDER_HVSCROLL = 9;EPSHV_DISABLED=4, EPSHV_FOCUSED=3, EPSHV_HOT=2, EPSHV_NORMAL=1
;===========================

  Protected dc=GetDC_(hwhd)
  Protected rect.rect
  Protected rect2.rect
  
  GetWindowRect_(hwhd,@rect)
  
  rect2\left=5
  rect2\right=60
  rect2\top=5
  rect2\bottom=65
  ;draw the progressbar background.
  DrawThemeBackground_(hthema,dc,#EP_BACKGROUND ,4 ,@rect,0);последний параметр rect обрезки
;DrawThemeBackground_(hthema,dc,11, 2 ,@rect,0);
;SetRect_(&r,10,10,50,25);
;DrawThemeBackground_(hthema,dc,5, 4 ,@rect,0);
  
ReleaseDC_(hwhd,dc)
EndProcedure


If OpenWindow(0, 0, 0, 800, 300, "Прогресс бар", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ProgressBarGadget(#GADGET_1, 10, 10, 250, 30, 0, 100, #PBS_MARQUEE)
    ButtonGadget(#GADGET_2, 10, 60, 150, 30, "Стоп")
    EditorGadget(3,300,0,300,300)
    SendMessage_(GadgetID(#GADGET_1), #PBM_SETMARQUEE, #True, 50); передать управление анимацией прогресса винде. Работает.
    
    
 ;Debug IsCompositionActive_()
 ;Debug   GetThemeAppProperties_()
    
;Чтобы проверить доступность визуальных стилей, вызовите функцию IsAppThemed . Если визуальные стили недоступны, используйте резервный код для рисования элемента управления
 Debug  "тема поддерживается?" + "  "+Str(IsAppThemed_());Сообщает, отображается ли пользовательский интерфейс текущего приложения с помощью визуальных стилей ;TRUE;FALSE 
  
  If IsAppThemed_()=1;приложение с помощью визуальных стилей.
    
    Debug IsThemeActive_();Проверяет, активен ли визуальный стиль для текущего приложения
;
    ;hthema = OpenThemeData_(GadgetID(3),@"EDITSTYLE;Edit");получить тему классы возможно в Vsstyle.h и Vssym32.h(сейчас типа 2 класса через ;)
    hthema = GetWindowTheme_(GadgetID(3))
    Debug  hthema 
    Debug "дескриптор темы" + "  "+Str(hthema) 
  Else 
   ;Если возвращаемое значение равно NULL, используйте функции рисования, не являющиеся визуальными стилями
  EndIf  


  ;Debug SetWindowTheme_(GadgetID(#GADGET_1), @"Progress",0);
  ;Debug GetWindowTheme_(GadgetID(#GADGET_1))
;Debug SetWindowThemeAttribute_(GadgetID(#GADGET_1),0,)
;
DrawThemeBackground(GadgetID(3))


  ;SetWindowTheme_(GadgetID(#GADGET_1),0,@"")    ;Выключает тему без этого следующие 2 не работают а с этим типа не так красиво
   ;SendMessage_(GadgetID(#GADGET_1),#WM_THEMECHANGED,0,0)
    ;SendMessage_(GadgetID(#GADGET_1), #PBM_SETBARCOLOR, 0, $eb4ae8); закрасить полоску  прогресса. НЕ работает.
   ; SendMessage_(GadgetID(#GADGET_1), #PBM_SETBKCOLOR, 0, $29d4ec);  закрасить фон прогресса. НЕ работает.
    
    
    
    
    ;Debug SendMessage_(GadgetID(#GADGET_1), #PBM_GETBARCOLOR, 0, 0);             получить текущее значение цвета полоски. Получаем то, что установили, но визуально цвет не поменялся. ПОЧЕМУ??? 
    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_Gadget
                Select EventGadget()
                    Case #GADGET_2
                        SetWindowLong_(GadgetID(#GADGET_1), #GWL_STYLE, GetWindowLong_(GadgetID(#GADGET_1), #GWL_STYLE) & ~#PBS_MARQUEE); отменить предидущий стиль, что бы работало снова как обычно. Работает.
                        SetGadgetState (#GADGET_1, 50)
                        SendMessage_(GadgetID(#GADGET_1), #PBM_SETSTATE, #PBST_ERROR, 0);     сигнализация об ошибке, просто пример. Работает.
                EndSelect
           Case #PB_Event_CloseWindow
             If hthema
               CloseThemeData_(hthema);удалить дескриптор темы
             EndIf  
                CloseWindow(#WIN)
                End
        EndSelect
    ForEver
EndIf