Установщик макросов -::[MacroInstaller]::-

Статус
Закрыто для дальнейших ответов.
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Вот такое сделал себе так как утомили меня лазанья по диалогу опций в кореле когда надо кнопку на макрос сделать.

wx_MacroInstaller
Скриншот
Скриншот2

Ваши предложения/пожелания...
 
asat

asat

Участник
Сообщения
52
Реакции
0
Ответ: Установщик макросов -::[MacroInstaller]::-

wOxxOm!
то, что нужно, и то, чего так не хватало!!
затестим...
 
asat

asat

Участник
Сообщения
52
Реакции
0
Ответ: Установщик макросов -::[MacroInstaller]::-

а под какой корел написан?
у меня в 11-ом сразу заглючил
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

Пока только для 12 и 13
 
V

VATS

Участник
Сообщения
99
Реакции
0
Ответ: Установщик макросов -::[MacroInstaller]::-

wOxxOm
Очень нужная вещь!
Большое Вам спасибо за замечательные макросы!
 
banIDit

banIDit

I love this game!
Сообщения
1 160
Реакции
241
Ответ: Установщик макросов -::[MacroInstaller]::-

А можно ли удалить макрос с тулбара с помощью wx_MacroInstaller?
Еще бы горячие клавиши назначать.... Было бы ваще шикарно. :)
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

Держим альт и тянем ненужную кнопку наружу, на документ - чтобы удалить. держим ctrl+Alt = copy button
 
dizzy

dizzy

Участник
Сообщения
425
Реакции
1
Ответ: Установщик макросов -::[MacroInstaller]::-

А нельзя ли экзэшник какой-нить. Типа кой бы:

1. Ставил gms файлу в нужную папку.
2. К каждому макросу в этой файле присобачивал иконку и выводил бы их компактно в верхнюю панель. Иконку естественно самодельную. Желательно и клавишные сокращения тоже присобачить.
3. Создавал бы ini-док куды б записывались настройки макросов указанные при инсталяции (всмысле запуска этого экзэшника).

Вот это я бы и назвал установщиком макросов. Ни фига сложного в этом не вижу. Однак сам, когда решил дело сие благое забадяжить сталкнулся с рядом трудностей, что помешало мне осуществить задуманное до конца этого года (с завтрашнего дня ухожу в принудительный запой). Видно придется мучится в новогоднюю ночь, что такую фигню не успел осилить. Ежели конечно уважаемые гуры мя от этого горя не спасут.
 
dizzy

dizzy

Участник
Сообщения
425
Реакции
1
Ответ: Установщик макросов -::[MacroInstaller]::-

Ладно говорю про свои трудностию Только сильно не глумитесь:

1. Ну собственно ваще смешная... Типа не знаю как задать нечеткий путь к файлу (типа C:\...\Draw\GMS). Блин где-то одназначно читал и видел как это делается, а как хватился и не нашел. Чую кто-то уже хихикает...
2. Тут как панель создать понял.
Set myCom = CommandBars.Add("Test")
myCom.Enabled = True
myCom.Visible = True
Однак как ее на верх поместить - нет

Как кнопку сделать - не знаю
Set myBar = myCom.Controls.AddCustomButton(CategoryID As String, Command As String;) Ну команд еще че-то понятно... А вот категориИД - вычислить не знаю как...- ("Macros", "Module1.Test") - не канают.

Далее как иконку приставить ясно вроде: myBar.SetCustomIcon "C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS\test.bmp"

Клавишные сокращения не искал еще.

По третьему пункту вопросов нет...
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

1 вопрос, guid - в коде макро и на forum.oberonplace.com в поиске "Addcustombutton"
 
dizzy

dizzy

Участник
Сообщения
425
Реакции
1
Ответ: Установщик макросов -::[MacroInstaller]::-

Таак-с.... А в верхнюю панель как переместить?
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

А в чем загвоздка? Снимок экрана с этой панелью...
 
dizzy

dizzy

Участник
Сообщения
425
Реакции
1
Ответ: Установщик макросов -::[MacroInstaller]::-

wOxxOm сказал(а):
А в чем загвоздка? Снимок экрана с этой панелью...
Нажмите, чтобы раскрыть...
Ну так вот...
 

Вложения

  • 1.gif
    1.gif
    29.9 КБ · Просм.: 1 122
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

В коде макро можно посмотреть. сначала перебрать Application.framework.commandbars и найти нужный. потом application.framework.commandbars(found).controls.addcustombutton - а чтобы знать точные названия этих объектов, надо в вба в опциях->references подключить десятый примерно сверху corel vg-auto coreили как-то похоже. тогда появятся автоподсказки при наборе и описания в браузере классов. там же можно включить в меню правой кнопки показ скрытых методов. з.ы. found - это индекс-номер найденного commandbar по анализу свойства .caption, .name в цикле поиска
 
dizzy

dizzy

Участник
Сообщения
425
Реакции
1
Ответ: Установщик макросов -::[MacroInstaller]::-

Блин не перемещает... Да и странно как-то... Может есть методы какие, типа переместить этот бар в ВЕРХНЮЮ панель. Или в ЛЕВУЮ.
Вот код:
Код: 
    Dim cmdBar As VGCore.CommandBar
    Set cmdBar = Application.FrameWork.CommandBars.Add("Adobe")
    cmdBar.Visible = True
    cmdBar.Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "GlobalMacros.Module1.beg"
    cmdBar.Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "GlobalMacros.Module1.EditInPhotoShop"
    cmdBar.Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "GlobalMacros.Module1.GetFromShop"
    cmdBar.Controls(1).SetCustomIcon GMSManager.GMSPath & "PasteToShop\to_Indi.bmp"
    cmdBar.Controls(2).SetCustomIcon GMSManager.GMSPath & "PasteToShop\to_shop.bmp"
    cmdBar.Controls(3).SetCustomIcon GMSManager.GMSPath & "PasteToShop\from_shop.bmp"
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

Скорее всего надо самому менять координаты, ведь есть эти проперти.Я не пробовал, думаю надо переместить его, посмотреть новые координаты, кстати это только через присваивания переменным, в окне уочиз не получится. a потом при создании присваивание этих координаt сделать
 
P

PressMAN

Участник
Сообщения
80
Реакции
0
Ответ: Установщик макросов -::[MacroInstaller]::-

На первый вопрос можно использовать вот такую процедурку, если я правильно понял вопрос.

Private Sub CorelPath
Dim PathCMX As String
PathCMX = SetupPath & "Draw\GMS\CMX\"
MsgBox PathCMX
End Sub
 
wOxxOm

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Ответ: Установщик макросов -::[MacroInstaller]::-

  • Добавлен режим запуска выбранного макроса - работает по Enter и даблклику
  • Теперь макрос можно использовать вместо Tools->VisualBasic->Run.
  • Гораздо удобнее так как поиск ведется по всем сразу макросам по подстроке.
  • Добавлено в поиске - не покидая строки поиска можно нажимать клавиши Вверх/Вниз и переходить к след./пред. совпадению
  • Добавлен экономичный интерфейс - переключается и сохраняется "UI installer"
  • Для каждого файла макроса (.gms) показывает его файловое имя (если оно отличается от имени проекта)
  • Показывается @AppData если макрос лежит в c:\Documents and Settings\**учетная запись**\Application Data\Corel\Graphics13\draw\gms\

http://recentfiles.sbn.bz/misc/wx_MacroInstaller.zip
 

Вложения

  • installerSmall.gif
    installerSmall.gif
    13.5 КБ · Просм.: 1 049
  • installerMedium.gif
    installerMedium.gif
    22 КБ · Просм.: 1 096
Статус
Закрыто для дальнейших ответов.
Верх Низ