Вверх ↑
Ответов: 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