- Сообщения
- 588
- Реакции
- 4
(1) В Help'е указано следующее:
Аналогично, выполняю в коде:
ActiveTool = cdrToolNodeEdit
или ActiveTool = cdrToolPick
Но при выполнении макроса ничего не происходит - ActiveTool не меняется...
___________________________________________
(2) И ещё одна проблема.
В том же help'е указано:
Но в реальности эта константа равна 22 - проверил в режиме отладки. Возможно, и сдругими Tool'ами подбные аномалии. при этом если присваивать ActiveTool'у не константу cdrToolNodeEdit, а число 22, то по-прежнему ActiveTool на NodeEdit не изменяется, т.е. даже в этом случае имеет место проблема (1)...
Аналогично, в режиме редактирования текста ActiveTool = 101, тогда как в help'е такого значения у ActiveTool'а вообще нет...
Откуда все эти фокусы ?
Пробовал после изменения ActiveTool'а выполнять Application.Refresh - не помогает...
Application.ActiveTool
Property ActiveTool As cdrTools
Application
Description
The ActiveTool property returns or sets the active tool in CorelDRAW.
Example
The following example changes the active tool from the Pick tool to the Eye Dropper tool.
Sub ToolActive()
If ActiveTool = cdrToolPick Then
ActiveTool = cdrToolEyeDropper
End If
End Sub
Аналогично, выполняю в коде:
ActiveTool = cdrToolNodeEdit
или ActiveTool = cdrToolPick
Но при выполнении макроса ничего не происходит - ActiveTool не меняется...
___________________________________________
(2) И ещё одна проблема.
В том же help'е указано:
Согласно help'у, константе cdrToolNodeEdit соответствует число 2.cdrToolNone
0
cdrToolPick
1
cdrToolNodeEdit
2
cdrToolKnife
64
cdrToolBezierKnife
81
cdrToolEraser
68
cdrToolDrawRectangle
3
...
Но в реальности эта константа равна 22 - проверил в режиме отладки. Возможно, и сдругими Tool'ами подбные аномалии. при этом если присваивать ActiveTool'у не константу cdrToolNodeEdit, а число 22, то по-прежнему ActiveTool на NodeEdit не изменяется, т.е. даже в этом случае имеет место проблема (1)...
Аналогично, в режиме редактирования текста ActiveTool = 101, тогда как в help'е такого значения у ActiveTool'а вообще нет...
Откуда все эти фокусы ?
Пробовал после изменения ActiveTool'а выполнять Application.Refresh - не помогает...