Palette (or Colors array) property in VBA class in CDR12

Hi all,
I am writing some script that will collect statistics about colors in document.
However I am having problems with the class that will collect these statistics.

This is what I try in order to have a property in the class that will collect colors from the document.

Dim oPalette As Palette

Public Property Set Palette(ByRef thePalette As Palette)
    Set oPalette = thePalette
End Property

Public Property Get Palette() As Palette
    Set Palette = oPalette
End Property

Private Sub Class_Initialize()
    Dim oPalette As Palette
    Set oPalette = New Palette
    Set Me.Palette = oPalette
End Sub

However as soon as I try to instantiate object of this class I get

Run-time error '429':
ActiveX component can't create object

When I click on the debug button, it shows me that the error is on the line where I try to instantiate object of the class defined in the sample code above. When I step into I see that the initialization fails on line

Set oPalette = New Palette

So I guess I am doing something wrong.
The idea is to collect colors from the ones that are used in the document in a property of the instance of the class.
Hope it makes sense :roll:

_____

Looking through the VBA help of CDR12 I found Palettes.Create
However I do not like to have a physical file for the palette.
Is it possible, or I am riding the wrong horse?

_____
Another thing that I am not sure - is it possible to combine colors from different standard palettes in one custom one?

[Alex]

Yes, unfortunately you can't create an instance of pallete by just using the New keyword.. You need to use Application.Palettes.Create method instead.

However I'm not sure why you need this in your case. I would use Palettes.CreateFromDocument to create a palette from all the colors from the current (active) document like this:

Set oPalette = Application.Palettes.CreateFromDocument("MyPalette")

or if you want to do this yourself somehow, I would use something like a regular VBA's Collection object to keep the dynamic array of colors. Or have some other way, something like MS Scripting Runtime's Dictionary object which is essentially a map with very quick lookup...

However I'm not sure why you need this in your case. I would use Palettes.CreateFromDocument to create a palette from all the colors from the current (active) document like this:

Well I hesitate to use this because I would use only subset of used colors in the document.

or if you want to do this yourself somehow, I would use something like a regular VBA's Collection object to keep the dynamic array of colors.

I think Collection object will do the trick. Thank you

[Alex]

It all depends on the object's fill type. If it is Uniform Fill, then use UniformColor property, if it is fountain fill, then use Fountain and go through all of the colors in the list and so on. Obviously, No fill means no color at all...

OK Thank you for you reply, but I figured out that the error was in my code bellow the line I mentioned.
This is why I deleted my question

For the record - it was something like

How can I get 100% sure the color of the fill of an object. For the moment I use Shape.Fill.UniformColor

____
If you are still willing to answer: whats the difference (if any) between cdrColorPantoneHex and cdrColorPantone?
Well actually I need to know which color types have Tint property, and because I am not a CorelDraw expert, I actually am not aware of differences between palettes.

[Alex]

Originally Posted by zlatev

If you are still willing to answer: whats the difference (if any) between cdrColorPantoneHex and cdrColorPantone?
Well actually I need to know which color types have Tint property, and because I am not a CorelDraw expert, I actually am not aware of differences between palettes.

The just about to be released CorelDESIGNER 12 has some cool additions to the Color object, methods such as IsGray, IsWhite, IsSpot, IsTintable, IsValidDuotoneColor, and so on. I'm sure they will be in CorelDRAW 13 too.

But in meanwhile, a tintable color is any of the Pantones (except for Pantone Process) including Pantone Hexachrome, as well as DIC, TOYO, HKS, DUPONT, FOCOLTONE, and User Inks.

I hope this helps

Hopefully last thing in this thread... :roll:

Is there any fast way to get a name for an "unnamed color" like "R: 22 G: 89 B: 111" (At the moment I am doing this "by-hand" in the program code)

I mean CorelDraw12 shows a shape filled with uniform fill with such an RGB color, with name "R: 22 G: 89 B: 111" in Object Manager, but when I programatically check the Name property of the Color object - it has a value "unnamed color"

Also is there a better way to check wether a color has a name than comparing its Name property with value "unnamed color"?

And thank you for the help!

[Alex]

The Name property actually has a Boolean parameter which is optional. Set it to True to return the actual component string, rather than the color name:

MsgBox ActiveShape.Fill.UniformColor.Name(True)