[CDR X5-X8] Узнать Id всех палитр в библиотеке палитр корела.

[SSInf]

Как перебрать все палитры в библиотеке палитр?
Через Application.Palettes можно перебрать только активные палитры, а мне надо все которые есть в библиотеке палитр.
Как вот здесь список.

 

[dastin]

а мне надо все которые есть в библиотеке палитр

загрузить все?
Sub LoadAllPalettes()
Member of VGCore.PaletteManager
Loads all palettes registered with the application
... не станет ли худо приложению ...

 

[eugeny]

Application.PaletteManager.PaletteCount
у меня 167 .

 

[SSInf]

Так если они уже есть в списке (как на картинке с 1 поста), разве они не загружены?

 

[dastin]

///
можно попробовать опрашивать по счетчику палитр см.выше ...
... но вот на кой они понадобились сразу все?

 

[eugeny]

For i = 1 To Application.PaletteManager.PaletteCount
Set strPals = Application.PaletteManager.GetPalette(i)
MsgBox strPals.Name
Next

 

[dastin]

MsgBox strPals.Name

ИМХО судя по затее
просмотром дело не ограничится ... надо куда-то запоминать

 

[eugeny]

ИМХО судя по затее
просмотром дело не ограничится ... надо куда-то запоминать

Да это я так, в качестве примера. В данном случае в переменную записана палитра, и с ней дальше можно работать, как с объектом класса Palette.

 

[SSInf]

Блин PaletteManager.GetPalette проморгал (((

Ну да, сейчас у меня id палитр прописаны в коде, а это не есть хорошо.
Хотя я уже подумал, лучше из xml буду id брать.