[CDR 2017-2022] Вызвать refresh палитры

[mnemonix]

Может подскажете, как реализовать кнопкой или макросом refresh, в стандартной customization не нашёл:

 

[_MBK_]

как реализовать кнопкой

В смысле код этой кнопки какой?

 

[DukereD]

а просто application.refresh не помогает?

 

[mnemonix]

Кода не нашел, application.refresh не помогает, хочется удалить лишние цвета из палитры документа, а если нужно- вставить.
Со вставкой проблем нет: ActiveDocument.AddColorsToDocPalette
С удалением: надо перебрать все цвета в документе, сравнить с палитрой и, если в палитре есть неиспользуемые, то удалить.

 

[_MBK_]

Кода не нашел

Где то так советовали List of GUIDs for standard CorelDraw dockers? - Code snippets feedback - Developer Area - CorelDRAW Community

 

[dastin]

без GUID
***********
1 and/or 2
*************
запускать первый Sub

Sub Reset_DocPalette()

ResetPalette ActiveDocument
End Sub

Sub ResetPalette(ByRef iDoc As Document)

Dim CurColNo As Integer, CurPg As Page, CurSh As Shape, CurSR As ShapeRange, DoIt As Boolean

For CurColNo = iDoc.Palette.Colors.Count To 1 Step -1
   DoIt = True
   For Each CurPg In iDoc.Pages
      Set CurSR = CurPg.Shapes.All
      If CurSR.Shapes.Count > 0 Then
         For Each CurSh In CurSR.Shapes
            If CurSh.Fill.Type = cdrUniformFill Then
               If CurSh.Fill.UniformColor.IsSame(iDoc.Palette.Colors(CurColNo)) Then DoIt = False
            End If
         Next CurSh
      End If
   Next CurPg
   If DoIt Then iDoc.Palette.RemoveColor CurColNo
Next CurColNo

End Sub

add
****
группы, поверклипы, пантоны в поиск не попадают

 

[mnemonix]

add
****
группы, поверклипы, пантоны в поиск не попадают

Как можно побороть? Потому что ActiveDocument.AddColorsToDocPalette тоже не ищет в них.

 

[_MBK_]

без GUID

В смысле как это он без GUID? Такое разве может быть?

 

[dastin]

В смысле как это он без GUID? Такое разве может быть?

в смысле - без поисков оного ...

 

[Titrex]

Как можно побороть? Потому что ActiveDocument.AddColorsToDocPalette тоже не ищет в них.

Вроде в 2021.5 работает, и из поверклипов второго уровня вылавливает, и пантоны....