Открыть исходник компонента через ShellExecute

Форумы Помощь по средеОткрыть исходник компонента через ShellExecute ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 875

Рейтинг: 101

#1: 2010-09-03 14:07:27 ЛС | профиль | цитата

При комбинаций CTRL+F открыть pas файл например в Notepad++
Побывал сделать при помощи Плагины HiAsm команду sha_pas я получаю а вот параметров или хоть какой то намёк на pas файл нету

чую реализовать не удастся

карма: 1

Ответов: 215

Рейтинг: 45

#2: 2010-09-04 03:46:06 ЛС | профиль | цитата

Вот плагинчик для иллюстрации идеи. (Кинуть в папку ...\HiAsm\Int\plugs\, скомпилировать, перезапустить hiasm)

Принцип работы:
Копируем выделенный элемент в клипборд, выкусываем название
добавляем путь (поправь на свой), "hi", ".pas"
и открываем notepad'ом (подставь свою прогу)
посадил на шорткат "Ctrl+Shift+Alt+Z"
---
Что поленился сделать, но если будет интерес, то можно взяться:
Естественно сбойнёт на *.hws - можно проверять, что имя элемента начинается на "FT_" и ставить соответствующее расширение
Можно проверять вид пакета и соответственно поставлять правильные пути и расширения (в данный момент путь забил текстом, правильная работа будет только в пакете "delphi")
Вместо жёсткого шортката зарегистрировать команду, чтобы пользователь мог назначать свой шорткат или воткнуть как пункт в меню в "Редакторе комманд"
Вставить проверку на существование файла с выдачей сообщения об ошибке
----
что делать не буду - принимать меры по сохранению того, что содержалось в клипборде до вызова команды.


Add(hiPlugs,2953706,77,-14)
{
 Point(doCommand)
 link(onKeyDown,6175371:doCheckMask,[])
}
Add(KeyMask,6175371,154,-7)
{
 Shift=1
 Ctrl=1
 Alt=1
 Key=90
 link(onTrue,3925360:doData,[])
}
Add(DoData,3925360,217,0)
{
 Data=String(copy)
 link(onEventData,374432:doEvent1,[(251,6)(251,5)])
}
Add(Hub,374432,266,-1)
{
 link(onEvent1,2953706:doCommand,[(289,5)(289,51)(65,51)(65,6)])
 link(onEvent2,11094595:doSearch,[])
}
Add(InfoTip,14085233,126,-21)
{
 Info=#16:Shift+Alt+Ctrl+Z|
 Font=[Arial,8,0,0,1]
 Width=85
 Height=60
}
Add(Clipboard,13319729,329,-43)
{
}
Add(BlockFind,11094595,329,6)
{
 IncludeBlock=1
 StartBlock="("
 EndBlock=","
 Point(doStop)
 link(onSearch,11253185:doEvent1,[])
 link(Text,13319729:Text,[])
}
Add(Hub,11253185,378,6)
{
 link(onEvent1,15307631:doStrCat,[])
 link(onEvent2,11094595:doStop,[(399,19)(399,55)(317,55)(317,19)])
}
Add(StrCat,15307631,420,6)
{
 Str1="notepad "c:\Program Files\HiAsm4.03\Elements\Delphi\code\hi"
 link(onStrCat,2210551:doStrCat,[])
}
Add(StrCat,2210551,469,6)
{
 Str2=".pas""
 link(onStrCat,4665428:doExec,[])
}
Add(WinExec,4665428,525,6)
{
}

Ну и ещё немного:
Имя элемента можно было бы взять с точки Desktop элемента HiPlugs, не прибегая к уловкам с клипбордом, но эта функция поломалась в 4-х версиях HiAsm. (Или мне стоит обновиться?)

карма: 0

Голосовали: flud

Ответов: 875

Рейтинг: 101

#3: 2010-09-04 09:26:31 ЛС | профиль | цитата

уж все же лучше чем искать в папке

карма: 1

Форумы Помощь по средеОткрыть исходник компонента через ShellExecute ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)