Вверх ↑
Ответов: 691
Рейтинг: 142
#1: 2020-11-20 09:57:31 ЛС | профиль | цитата
atutunnik94, попробуй.

Add(MainForm,2953706,21,105)
{
Point(onClose)
}
Add(Charset,8794855,455,182)
{
Type=10
CodePage1=1251
CodePage2=1200
link(onCharset,13335200:doConvert,[])
link(Text,16764692:Text,[])
}
Add(StreamConvertor,12241763,329,112)
{
Mode=6
Point(Data)
link(onResult,8271526:doCharset,[])
}
Add(ODialog,14343632,224,112)
{
link(onExecute,6972916:doOpen,[])
}
Add(FileStream,6972916,273,112)
{
link(onLoad,12241763:doConvert,[])
}
Add(Memo,16764692,455,91)
{
Width=384
Height=261
Align=5
ScrollBars=3
}
Add(SDialog,8659637,238,182)
{
link(onExecute,160023:doValue,[])
}
Add(StreamConvertor,13335200,511,182)
{
Mode=7
link(onResult,8507145:doCopyFromStream,[])
}
Add(FileStream,8507145,567,168)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,160023:Value,[(573,159)(559,159)(559,222)(398,222)])
}
Add(Charset,8271526,385,112)
{
Type=9
CodePage1=1200
CodePage2=1251
link(onCharset,16764692:doText,[])
}
Add(Memory,160023,392,182)
{
link(onData,8794855:doCharset,[])
}
Add(Menu,8378001,91,105)
{
Menu=#9:Загрузить|9:Сохранить|
Point(onSelectNum)
link(onSelectNum,6767989:doEvent,[])
}
Add(IndexToChanel,6767989,147,112)
{
link(onEvent1,14343632:doExecute,[])
link(onEvent2,8659637:doExecute,[(214,125)(214,188)])
}

карма: 15

0