is there any reference to selected layers?

[Tomasz]

Is there any way to make Draw VBA understanding, that a couple of layers are selected? LayerRange class seems to work only in PP VBA.

Tomasz

[wOxxOm]

what goal do you pursue?
if you're processing shapes from several layers then a ShapeRange will do like this:

dim SR as shapeRange
set SR=ActiveDocument.Layers(1).FindShapes
SR.AddRange ActiveDocument.Layers(2).FindShapes
SR.Fill.ApplyUniformFill CreateCMYKColor(0,0,0,100)

[Tomasz]

Thank you wOxxOm.

I meant strictly operations on a couple of layers selected manually by an user. For example when one selects two or more layers (by ctrl clicking them), the macro would make these layers editable, printable and visible. Of course I can select all objects on the desired collection of layers, or I can just define an array with layers indexes to be processed. However the problem is how to make VBA aware that certain layers are selected.

Tomasz

[Alex]

Unless I'm missing something, you can't select more than 1 layer at a time in CorelDRAW...

[wOxxOm]

yeah, indeed, you'll have to make your own userform UI which would allow multiple selections

[Tomasz]

Well... actually... I can do it in my X3:

1. I click on a layer,
2. then holding Ctrl key pressed I click on other layers.
3. having collection of layers selected in that way, I can right click on them and for example make all of them invisible at once or all of them imprintable at once.

Of course it doesn't mean that all layers become activelayers. Only first clicked layer becomes "active", however UI does see other as selected.

Tomasz

[wOxxOm]

ah, in the Layers mode view it's possible to multiselect, then I guess you can try to read the SysTreeView32 inside Object Manager using WinAPI

[Tomasz]

wOxxOm,

I had a slight hope that I would manage to do it easily with use of an overlooked cDraw class. As the hope vanished, I have to learn more about WinAPI classes

Tomasz

[wOxxOm]

that's not too complicated, here's some code for FLOATING ObjectManager, something similar is required for docked OM.

dim h&
h=FindWindowExA(0,0,"Object Manager","Afx:62210000:1000:00010011:00000010:00000000")
if h=0 then msgbox "No ObjectManager window found"
h=FindWindowExA(h,0,vbNullString,"#32770")
h=FindWindowExA(h,0,vbNullString,"#32770")
h=FindWindowExA(h,0,vbNullString,"SysTreeView32")

now we have SysTreeView32 handle, use TV_ITEM with mask=TVIF_STATE+TVIF_TEXT in a loop, calling SendMessage h,TVM_GETITEM,0,byval varptr(tvi) - for each of the listview items (total number is determined by TVM_GETCOUNT sendmessage).

Search the internet for any TreeView examples, there are plenty of them

[Tomasz]

Thanks!
I understand that the first line returns the handle of the Object Manager itself. But why the window name of the Object Manager object is "Afx:62210000:1000:00010011:00000010:00000000"??
Has a docked OM object different window name here?
The next two lines are just to dig deeper, until the treeview handle is supposed to be found in the line no 4. Am I correct?

Tomasz