Вверх ↑
Ответов: 4
Рейтинг: 0
#1: 2020-01-26 12:27:36 ЛС | профиль | цитата
Докрутил знак равно, с возможностью возвращения формулы при двойном нажатии по Edit


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2153324,161,84)
{
Width=278
Height=101
Caption="Сумма в строке"
}
Add(MultiElement,15466702,287,98)
{
link(onEvent1,8717068:doText,[(332,104)(332,75)(213,75)(213,90)])
link(onEvent2,8717068:doText2,[(331,111)(331,135)(213,135)(213,97)])
link(Data1,8717068:Text,[(293,86)(268,86)(268,126)(230,126)])
}
BEGIN_SDK
Add(EditMulti,15444727,21,21)
{
EventCount=2
WorkCount=2
DataCount=1
VarCount=1
Width=307
Height=235
VOffset=49
HOffset=91
link(doWork1,16440207:doCase,[])
link(doWork2,5997249:doEnum,[(35,83)(35,139)])
link(Var1,10014471:Result,[(118,243)(272,243)])
}
Add(Case,16440207,42,70)
{
Value=Integer(13)
link(onTrue,14946485:doEvent1,[])
}
Add(Hub,14946485,91,77)
{
link(onEvent1,5303958:doData,[])
link(onEvent2,1461385:doSearch,[(116,90)(116,106)(26,106)(26,209)])
}
Add(DoData,5303958,140,77)
{
link(onEventData,4816344:doAdd,[])
link(Data,5987180:getVar,[])
}
Add(ArrayEnum,5997249,42,133)
{
link(onItem,7142047:doData,[])
link(onEndEnum,4816344:doClear,[(189,146)(189,90)])
link(Array,4816344:Array,[(48,128)(223,128)])
}
Add(DoData,7142047,259,133)
{
link(onEventData,15444727:onEvent2,[(317,139)(317,83)])
link(Data,5997249:Item,[(265,121)(245,121)(245,172)(48,172)])
}
Add(StrList,4816344,203,77)
{
}
Add(If_else,15956330,105,203)
{
Op2=Integer(1)
link(onTrue,12462022:doSplit,[])
link(Op1,1461385:Position,[(111,191)(79,191)(79,247)(48,247)])
}
Add(Position,1461385,42,203)
{
Target="="
link(onSearch,15956330:doCompare,[])
link(Str,5768510:getVar,[])
}
Add(StrPart,12462022,154,203)
{
Char="="
Point(Right)
link(onSplit,8895663:doEvent1,[(207,209)(207,202)])
link(Str,533564:getVar,[])
}
Add(LineBreakEx,1039140,112,35)
{
Caption="Строка"
Type=3
link(_Data,15444727:Data1,[])
}
Add(LineBreakEx,5987180,140,49)
{
Caption="Строка"
Type=2
}
Add(LineBreakEx,533564,154,175)
{
Caption="Строка"
Type=2
}
Add(LineBreakEx,5768510,42,175)
{
Caption="Строка"
Type=2
}
Add(MathParse,10014471,266,189)
{
MathStr=""
Point(doMathStr)
link(onResult,15444727:onEvent1,[(310,195)(310,76)])
}
Add(Hub,8895663,224,196)
{
link(onEvent1,10014471:doMathStr,[])
link(onEvent2,10014471:doCalc,[(249,209)(249,195)])
}
END_SDK
Add(Edit,8717068,224,84)
{
Left=5
Top=15
Width=245
Text=""
ClearAfterEnter=1
Point(onKeyUp)
Point(onDblClick)
link(onKeyUp,15466702:doWork1,[])
link(onDblClick,15466702:doWork2,[])
}

--- Добавлено в 2020-01-26 12:29:00

А есть возможность сохранять эту формулу, чтобы при открытии программы, формула была в памяти?
карма: 0

0
Редактировалось 1 раз(а), последний 2020-01-26 12:29:00