sashaoli писал(а):
опять же платный API googleAdd(BlockFind,3966386,448,175)
{
IncludeBlock=1
StartBlock=""trans":""
EndBlock="","orig":""
link(onSearch,2093333:doStrCat,[])
link(onEndSearch,3774539:doReplace,[(489,188)(489,237)])
}
Add(HTTP_Get,590158,301,168)
{
Wait=0
Method=1
link(onDownload,9170275:doConvert,[])
}
Add(FormatStr,4524766,252,168)
{
DataCount=1
Mask="http://translate.googleapis.com/translate_a/t?anno=4&client=te&text=%1&hl=en&tl=ru"
link(onFString,590158:doDownload,[])
}
Add(Charset,161191,210,168)
{
Type=12
link(onCharset,4524766:doString,[])
link(Text,11467722:Text,[])
}
Add(StreamConvertor,9170275,357,175)
{
Mode=6
link(onResult,13935996:doCharset,[])
}
Add(Charset,13935996,399,175)
{
Type=7
link(onCharset,3966386:doSearch,[])
}
Add(Replace,3774539,504,231)
{
SubStr="\r\n"
DestStr="
"
link(onReplace,10275973:doReplace,[])
link(Str,2171953:Var2,[])
}
Add(Memo,4979642,602,210)
{
Left=5
Top=220
Width=745
Height=225
ScrollBars=3
}
Add(Button,14364226,154,168)
{
Left=5
Top=5
Width=145
Caption="Перевести"
link(onClick,161191:doCharset,[])
}
Add(Memo,11467722,210,98)
{
Left=5
Top=30
Width=745
Height=185
Strings=#21:The license agreement|0:|75:1. The program HiAsm (further referred as "Software product") is created by|41:Dilma (further referred as the "Author").|88:The present license agreement is to acknowledge the ownership of all the rights on this |28:"Software product" by Dilma.|0:|68:2. The "Software product" made by "Author" is intended for designing|52:programs without knowledge of programming languages.|0:|68:3. The program is distributed by a principle " AS IS ", which means,|82:that the "Author" does not bear any responsibility on correct or wrong use of the |91:program. You install the program solely under your own responsibility. The "Author" is not |91:responsible for any failures after installation of the program. You install the program at |84:own risk, although, it has been made utmost by the "Author" to prevent any damages, |20:failures and losses.|0:|74:4. The program is distributed by a principle "Freeware", which means, that|41:the program is absolutely free-of-charge.|0:|66:5. Installing and using HiasM signifies acceptance of these terms |30:and conditions of the license.|0:|70:6. If you do not agree with the terms of this license you must remove |67:HiasM files from your storage devices and cease to use the product.|0:|54:On all questions and offers related to the program, or|54:its drawbacks, it is requested to inform the "Author".|0:|29:Webpage: http://www.hiasm.com|21:E-mail: hiasm@mail.ru|0:|37:The "Author": Dilma - dilma@hiasm.com|0:|26:Thank you for using HiasM!|
ScrollBars=3
}
Add(Replace,10275973,553,231)
{
SubStr="""
DestStr="""
link(onReplace,4979642:doText,[])
}
Add(StrCat,2093333,511,175)
{
Point(doClear)
link(Str1,2171953:Var1,[(517,163)(505,163)(505,219)])
}
Add(GetDataEx,2171953,504,214)
{
Angle=1
link(Data,2093333:Result,[(517,219)])
}