Вверх ↑
Ответов: 47
Рейтинг: 0
#1: 2017-05-23 10:36:07 ЛС | профиль | цитата
Как правильно сделать программу? Программа должна в фоне висеть и отслеживать появление окна Сохранить как, при появлении которого предложит транскрипцию имени файла. После согласия дожидаться пока пройдет команда вставка из буфера переведенной надписи в строку и закроется окно. Затем снова в режим ожидания. Понимаю что надо вставить цикл а как правильно сделать не понимаю.

Add(MainForm,2953706,21,105)
{
Visible=1
link(onCreate,8957594:doEnum,[])
}
Add(WinEnum,8957594,196,119)
{
VisibleOnly=1
link(onFindWindow,11643227:doCompare,[])
}
Add(StrMask,11643227,252,119)
{
Mask="*Укажите имя файла для записи*"
Point(doMask)
link(onTrue,16534726:doMessage,[(296,132)(296,223)(233,223)(233,314)])
}
Add(Message,16534726,245,308)
{
Caption="Сделать транскрипцию имени файла?"
Type=1
Icon=2
Point(onOK)
Point(onCANCEL)
link(Message,2603904:Var1,[(251,208)])
link(onOK,5391918:doEvent1,[(303,321)(303,265)])
link(onCANCEL,2953706:doClose,[(450,328)(450,205)(9,205)(9,132)])
}
Add(Edit,5043455,350,224)
{
Top=5
Width=400
Height=25
Font=[Verdana,12,3,0,204]
link(onChange,6566621:doMultiReplace,[])
link(Str,2603904:Var2,[])
}
Add(Clipboard,9682721,350,119)
{
}
Add(MultiReplace,6566621,469,224)
{
ReplaceList="Дверь левая =;ЭКРА=EKRA;Э=E; (Черн. 2,0)=F;/=_;СГК=SGK;Тяга верхняя=;(Оц. 2,0)=Z;\r\nДверь=;Швеллер=;Панель=;Угольник=;Уголок=;Крепление плиты=;ОНКУ=ONKU;\r\n(Оц. 2,5)=Z;(Оц. 1,5)=Z;Стенка задняя=;(крепление Rittal)=; (Черн. 1,5)=F;\r\nПлита=; Крышка=;(=;)=;(Черн. 1,5)=F;МП=MP;Упор=;Заглушка=; (Черн. 1,0)=F;\r\nСтенка=;(Черн. 3,0)=F;"
Mode=1
link(onResult,13454062:doValue,[])
link(Text,5043455:Text,[(475,219)(412,219)(412,268)(356,268)])
link(ReplaceList,8320363:Text,[(482,201)(440,201)])
}
Add(Memory,13454062,525,224)
{
link(onData,11828791:doTrim,[])
}
Add(Trim,11828791,602,224)
{
Mode=7
Point(Result)
link(onTrim,4621414:doEvent1,[(648,230)(648,234)])
}
Add(StrList,8320363,434,133)
{
Strings=#81:Дверь левая =;ЭКРА=EKRA;Э=E; (Черн. 2,0)=F;/=_;СГК=SGK;Тяга верхняя=;(Оц. 2,0)=Z;|69:Дверь=;Швеллер=;Панель=;Угольник=;Уголок=;Крепление плиты=;ОНКУ=ONKU;|73:(Оц. 2,5)=Z;(Оц. 1,5)=Z;Стенка задняя=;(крепление Rittal)=;(Черн. 1,5)=F;|42:Плита=; Крышка=;(=;)=;(Черн. 1,5)=F;МП=MP;|
link(FileName,3189570:Text,[(447,121)(468,121)])
}
Add(Edit,3189570,462,77)
{
Top=55
Width=355
Height=25
Font=[Verdana,12,1,0,204]
Visible=1
Text="Z:\z-=-CONFIG-=-\Macros\\transcript.txt"
Point(doAlign)
}
Add(GetDataEx,2603904,350,203)
{
link(Data,9682721:Text,[])
}
Add(Clipboard,1926085,714,224)
{
Point(PutText)
link(PutText,11828791:Result,[(720,212)(634,212)(634,264)(604,264)])
}
Add(Hub,5391918,308,259)
{
link(onEvent1,5043455:doText,[(327,265)(327,230)])
link(onEvent2,8320363:doLoad,[(378,272)(378,167)])
}
Add(Hub,4621414,672,224)
{
link(onEvent1,1926085:doPutText,[(702,230)(702,234)])
}


карма: 0

0
Редактировалось 3 раз(а), последний 2017-05-23 10:43:26