HiAsm
HiAsm
Вверх ↑
ФорумыПрочееАвтоматическое добавление элементов ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 254
Рейтинг: 6
#1: 2018-07-01 01:01:47 ЛС | профиль | цитата
Доброй ночи, уважаемые форумчане!!! Подскажите как сделать автоматическое добавление элементов? 


Add(MainForm,4208909,266,175)
{
 Width=1096
 Height=688
 link(onCreate,12934610:doEvent1,[])
}
Add(ComboBox,2739535,476,147)
{
 Left=5
 Top=20
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(522,167)])
}
Add(StrList,5520690,539,112)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2339622:doReplace,[])
}
Add(Replace,2339622,588,119)
{
 SubStr=";"
 DestStr="""
 link(onReplace,10771192:doText,[(664,125)(664,111)])
}
Add(HubEx,70667,518,154)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,707,105)
{
 Left=130
 Top=20
 Width=80
 link(onChange,7460510:doEvent2,[(751,111)(751,244)(646,244)(646,377)])
}
Add(ComboBox,7276131,476,259)
{
 Left=5
 Top=60
 Width=110
 Height=21
 Strings=#12:Название 2.1|12:Название 2.2|12:Название 2.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,15346428:doWork2,[])
 link(onSelect,15346428:doWork3,[(522,279)])
}
Add(StrList,6526491,539,224)
{
 Strings=#3:400|3:500|3:600|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,7538155:doReplace,[])
}
Add(Replace,7538155,588,231)
{
 SubStr=";"
 DestStr="""
 link(onReplace,639588:doText,[(664,237)(664,223)])
}
Add(HubEx,15346428,518,266)
{
 link(onEvent,6526491:doGetString,[])
}
Add(Edit,639588,721,217)
{
 Left=130
 Top=60
 Width=80
 link(onChange,7460510:doEvent3,[(765,223)(765,303)(646,303)(646,384)])
}
Add(Hub,12934610,343,189)
{
 OutCount=3
 link(onEvent1,2739535:doSelect,[])
 link(onEvent2,7276131:doSelect,[(417,202)(417,307)])
 link(onEvent3,7460510:doEvent1,[(375,209)(375,370)])
}
Add(Label,1659965,798,301)
{
 Left=130
 Top=100
 Width=80
 Height=20
}
Add(Math,2708893,714,364)
{
 link(onResult,1659965:doText,[(772,370)(772,307)])
 link(Op1,10771192:Text,[(720,250)(713,250)])
 link(Op2,639588:Text,[])
}
Add(Hub,7460510,658,364)
{
 InCount=3
 link(onEvent1,2708893:doOperation,[])
}


На данный момент есть зависимые выпадающий список и поле ввода в двух экземплярах. При выборе значения выпадающего списка в поле ввода подставляется заданное значение. И в самом низу подсчитывается сумма из текстовых полей.
Как сделать так, чтобы при нажатии на кнопку создавался новый выпадающий список с текстовым полем и все это участвовало потом в математических расчетах - общаяя сумма?

--- Добавлено в 2018-07-01 01:20:15

Или подобное сделать как-то можно через Print? Только не нашел подобные примеры с автосуммой.

Редактировалось 1 раз(а), последний 2018-07-01 01:20:15
карма: 0

0
Ответов: 254
Рейтинг: 6
#2: 2018-07-01 03:09:23 ЛС | профиль | цитата
Пока что у меня получилось только так: 


Add(MainForm,12413584,91,98)
{
 Width=931
 Height=456
 link(onCreate,2739535:doSelect,[])
}
Add(DocumentTemplate,15557505,329,189)
{
 Name="MainPage"
 link(Bitmap,13572165:Bitmap,[(335,177)(318,177)(318,233)(251,233)])
}
BEGIN_SDK
  Add(Print_Table,15348492,32,13)
  {
   Name="mtable"
   X=35
   Y=16
   Width=903
   Height=875
   Columns=#9:ФИО|217|5|6:1|21|5|
   HeadFont=[Comic Sans MS,10,1,0,1]
   HeadBackColor=12303291
   CellBackColor=15658734
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(PaintBox,13572165,245,189)
{
 Left=10
 Top=40
 Width=905
 Height=385
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(doTop)
 Point(doHeight)
 link(onBeforeDraw,15557505:doDraw,[])
}
Add(PC_TableRow,1179918,630,245)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,13344997:doEvent1,[])
}
Add(PC_TableSetCell,3777948,714,245)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,16695146:FString,[(720,233)(590,233)(590,289)(461,289)])
 link(Col,1498554:Value,[])
}
Add(Hub,13344997,679,245)
{
 OutCount=3
 link(onEvent1,3777948:doText,[])
 link(onEvent3,8075934:doText,[(819,265)(819,489)])
}
Add(Memory,1498554,721,189)
{
 Default=Integer(0)
}
Add(VBoxLayout,10551583,98,196)
{
 Name="horz"
 Space=3
 Padding=2
}
Add(Button,9618318,98,245)
{
 Left=15
 Top=10
 link(onClick,12070866:doEvent1,[])
}
Add(Hub,12070866,161,245)
{
 OutCount=4
 link(onEvent1,16695146:doString,[])
 link(onEvent2,13572165:doRefresh,[(196,258)(196,195)])
}
Add(ComboBox,2739535,420,70)
{
 Left=355
 Top=5
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(466,90)])
}
Add(StrList,5520690,483,35)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2339622:doReplace,[])
}
Add(Replace,2339622,532,42)
{
 SubStr=";"
 DestStr="""
 link(onReplace,10771192:doText,[(608,48)(608,34)])
}
Add(HubEx,70667,462,77)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,651,28)
{
 Left=480
 Top=5
 Width=80
}
Add(PC_TableSetCell,8075934,945,483)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,10771192:Text,[(951,159)(657,159)])
 link(Col,2153375:Value,[(958,471)(1007,471)])
}
Add(Memory,2153375,1001,434)
{
 Default=Integer(1)
}
Add(FormatStr,16695146,455,245)
{
 Mask="%1"
 Point(FString)
 link(onFString,1179918:doAddRow,[])
 link(Str1,2739535:String,[(461,183)(433,183)])
}


Но вот как сделать суммирование во втором столбце значений так и не разобрался
карма: 0

0
Ответов: 254
Рейтинг: 6
#3: 2018-07-01 05:45:40 ЛС | профиль | цитата
Поломав голову, сделал следующий вариант 


Add(MainForm,12413584,91,98)
{
 Width=931
 Height=456
 link(onCreate,2739535:doSelect,[])
}
Add(DocumentTemplate,15557505,329,189)
{
 Name="MainPage"
 link(Bitmap,13572165:Bitmap,[(335,177)(318,177)(318,233)(251,233)])
}
BEGIN_SDK
  Add(Print_Table,15348492,32,13)
  {
   Name="mtable"
   X=35
   Y=16
   Width=903
   Height=875
   Columns=#10:ФИО|250|10|8:1|250|10|8:2|250|10|
   HeadFont=[Comic Sans MS,10,1,0,1]
   HeadBackColor=12303291
   CellBackColor=15658734
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(PaintBox,13572165,245,189)
{
 Left=10
 Top=40
 Width=905
 Height=385
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(doTop)
 Point(doHeight)
 link(onBeforeDraw,15557505:doDraw,[])
}
Add(PC_TableRow,1179918,630,245)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,13344997:doEvent1,[])
}
Add(PC_TableSetCell,3777948,714,245)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,16695146:FString,[(720,233)(590,233)(590,289)(461,289)])
 link(Col,1498554:Value,[])
}
Add(Hub,13344997,679,245)
{
 OutCount=3
 link(onEvent1,3777948:doText,[])
 link(onEvent2,9407334:doEvent1,[(705,258)(705,324)(667,324)(667,391)])
 link(onEvent3,8075934:doText,[])
}
Add(Memory,1498554,721,189)
{
 Default=Integer(0)
}
Add(VBoxLayout,10551583,98,196)
{
 Name="horz"
 Space=3
 Padding=2
}
Add(Button,9618318,98,245)
{
 Left=15
 Top=10
 link(onClick,12070866:doEvent1,[])
}
Add(Hub,12070866,161,245)
{
 OutCount=3
 link(onEvent1,16695146:doString,[])
 link(onEvent2,13572165:doRefresh,[(196,258)(196,195)])
}
Add(ComboBox,2739535,420,70)
{
 Left=355
 Top=5
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(466,90)])
}
Add(StrList,5520690,483,35)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2339622:doReplace,[])
}
Add(Replace,2339622,532,42)
{
 SubStr=";"
 DestStr="""
 link(onReplace,10771192:doText,[(608,48)(608,34)])
}
Add(HubEx,70667,462,77)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,651,28)
{
 Left=480
 Top=5
 Width=80
}
Add(PC_TableSetCell,8075934,952,259)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,16451748:Var2,[(958,211)(797,211)])
 link(Col,2153375:Value,[(965,247)(1014,247)])
}
Add(Memory,2153375,1008,210)
{
 Default=Integer(1)
}
Add(FormatStr,16695146,455,245)
{
 Mask="%1"
 Point(FString)
 link(onFString,1179918:doAddRow,[])
 link(Str1,2739535:String,[(461,183)(433,183)])
}
Add(PC_TableSetCell,1709785,903,469)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,14152150:Var2,[(909,427)(895,427)])
 link(Col,10008175:Value,[(916,457)(923,457)])
}
Add(Math,6199973,819,336)
{
 ResultType=0
 AngleMode=1
 link(onResult,18897:doText,[])
 link(Op1,16451748:Var3,[(825,250)(867,250)(867,159)])
 link(Op2,14152150:Var1,[(832,324)(870,324)(870,380)])
}
Add(Hub,9407334,679,385)
{
 link(onEvent1,1709785:doText,[(723,391)(723,475)])
 link(onEvent2,6199973:doOperation,[(798,398)(798,342)])
}
Add(Label,18897,903,336)
{
 Left=990
 Top=340
}
Add(GetDataEx,14152150,889,375)
{
 Angle=1
 link(Data,18897:Caption,[(909,380)])
}
Add(Memory,10008175,917,413)
{
 Default=Integer(2)
}
Add(GetDataEx,16451748,791,154)
{
 Angle=3
 link(Data,10771192:Text,[(657,159)])
}


Но получается какая-то путаница. Если добавляю строку, то накопительная сумма считает неправильно, если делать выбор разных вариантов из combobox
карма: 0

0
Ответов: 8926
Рейтинг: 823
#4: 2018-07-01 09:35:03 ЛС | профиль | цитата
Medvedoc, ни в описании желаемого, ни в схемах нет чёткого объяснения, а что таки нужно
Попробуйте ещё раз, не торопясь и помня -- экстрасенсов здесь нет
карма: 19

0
Ответов: 254
Рейтинг: 6
#5: 2018-07-01 10:23:28 ЛС | профиль | цитата
Извиняюсь. Сейчас попробую объяснить

В таблице есть три столбца. В первый столбец добавляется значение из комбобокса, во второй столбец - значение из поля ввода, а в третьем столбце происходит математические вычисления, то есть к предыдущему значению из третьего столбца приплююсовывается значение текущее из второго столбца
Столбец 1      | Столбец 2 | Столбец 3
наименование 1      100         100

наименование 2      300         400 (100 из столбца 3 выше + 300 из столбца 2)

наименование 3      500         900 (400 из столбца 3 выше + 500 из столбца 2)


Редактировалось 1 раз(а), последний 2018-07-01 10:27:07
карма: 0

0
Ответов: 8926
Рейтинг: 823
#6: 2018-07-01 12:50:37 ЛС | профиль | цитата
Medvedoc, 


Add(MainForm,2953706,336,77)
{
}
Add(StringTable,1914162,434,112)
{
 Left=60
 Width=320
 Height=260
 Columns=#7:Имя=100|10:Значен=100|9:Итого=100|
 Grid=0
 Point(Matrix)
}
Add(ComboBox,15681368,336,168)
{
 Top=30
 Height=21
 Strings=#5:Имя 1|5:Имя 2|5:Имя 3|5:Имя 4|5:Имя 5|
 DataType=1
 link(onClick,15953174:doOperation,[])
}
Add(Edit,8908963,497,112)
{
 Left=5
 Top=5
 Text="100"
 DataType=4
}
Add(Button,7153470,336,119)
{
 Left=5
 Top=235
 Caption="Del"
 link(onClick,1914162:doClear,[])
}
Add(MatrixRW,4935926,448,175)
{
 X=2
 link(onRead,6222379:doOperation,[])
 link(Matrix,1914162:Matrix,[])
 link(Y,15953174:Result,[(475,166)(440,166)(440,215)(398,215)])
}
Add(Math,15953174,392,175)
{
 OpType=1
 Op2=1
 ResultType=0
 link(onResult,4935926:doRead,[])
 link(Op1,1914162:Count,[(398,159)(440,159)])
}
Add(Math,6222379,490,175)
{
 link(onResult,15969290:doString,[])
 link(Op2,3402410:Var2,[])
}
Add(FormatStr,15969290,539,175)
{
 DataCount=3
 Mask="%1;%2;%3"
 link(onFString,1914162:doAdd,[(578,181)(578,104)(424,104)(424,118)])
 link(Str1,15681368:String,[(545,166)(530,166)(530,223)(349,223)])
 link(Str2,3402410:Var3,[(552,159)])
}
Add(GetDataEx,3402410,497,154)
{
 link(Data,8908963:Text,[])
}
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#7: 2018-07-01 14:18:43 ЛС | профиль | цитата
Леонид, кто-то говорил про полезность чтения описаний к точкам. 

Add(MainForm,3501244,238,126)
{
}
Add(StringTable,1914162,287,161)
{
 Left=60
 Width=320
 Height=260
 Columns=#7:Имя=100|10:Значен=100|9:Итого=100|
 Grid=0
 Point(Matrix)
 Point(EndIdx)
}
Add(ComboBox,15681368,238,217)
{
 Top=30
 Height=21
 Strings=#5:Имя 1|5:Имя 2|5:Имя 3|5:Имя 4|5:Имя 5|
 DataType=1
 link(onClick,4935926:doRead,[])
}
Add(Edit,8908963,350,161)
{
 Left=5
 Top=5
 Text="100"
 DataType=4
}
Add(Button,7153470,238,168)
{
 Left=5
 Top=235
 Caption="Del"
 link(onClick,1914162:doClear,[])
}
Add(MatrixRW,4935926,301,224)
{
 X=2
 link(onRead,6222379:doOperation,[])
 link(Matrix,1914162:Matrix,[])
 link(Y,1914162:EndIdx,[(328,212)(314,212)])
}
Add(Math,6222379,343,224)
{
 link(onResult,15969290:doString,[])
 link(Op2,3402410:Var2,[])
}
Add(FormatStr,15969290,392,224)
{
 DataCount=3
 Mask="%1;%2;%3"
 link(onFString,1914162:doAdd,[(431,230)(431,153)(277,153)(277,167)])
 link(Str1,15681368:String,[(398,215)(383,215)(383,272)(251,272)])
 link(Str2,3402410:Var3,[(405,208)])
}
Add(GetDataEx,3402410,350,203)
{
 link(Data,8908963:Text,[])
}


Редактировалось 1 раз(а), последний 2018-07-01 14:19:40
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8926
Рейтинг: 823
#8: 2018-07-01 15:51:15 ЛС | профиль | цитата
Tad, я всегда так говорил, и вид у меня при этом всегда важный, умный-преумный, следующий раз Skype включу, чтобы все видели
карма: 19

0
Ответов: 254
Рейтинг: 6
#9: 2018-07-02 03:29:01 ЛС | профиль | цитата
Отличные примеры, но вот как их применить к своему коду пока не пойму. Мне нужно завязать подобное с использованием Document Template
карма: 0

0
Ответов: 254
Рейтинг: 6
#10: 2018-07-02 05:41:57 ЛС | профиль | цитата
Вообщем поломав голову пришел к такой схемке. Сделал так, как и задумал изначально )) 


Add(MainForm,12413584,91,98)
{
 Width=1029
 Height=578
 link(onCreate,2739535:doSelect,[])
}
Add(DocumentTemplate,15557505,329,189)
{
 Name="MainPage"
 link(Bitmap,13572165:Bitmap,[(335,177)(318,177)(318,233)(251,233)])
}
BEGIN_SDK
  Add(Print_Table,15348492,32,13)
  {
   Name="mtable"
   X=35
   Y=16
   Width=903
   Height=875
   Columns=#10:ФИО|250|10|8:1|250|10|8:2|250|10|
   HeadFont=[Comic Sans MS,10,1,0,1]
   HeadBackColor=12303291
   CellBackColor=15658734
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(PaintBox,13572165,245,189)
{
 Left=10
 Top=40
 Width=905
 Height=385
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(doTop)
 Point(doHeight)
 link(onBeforeDraw,15557505:doDraw,[])
}
Add(PC_TableRow,1179918,483,245)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,13344997:doEvent1,[])
}
Add(PC_TableSetCell,3777948,595,217)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,16695146:FString,[(601,212)(535,212)(535,292)(433,292)])
 link(Col,1498554:Value,[])
}
Add(Hub,13344997,560,245)
{
 OutCount=4
 link(onEvent1,3777948:doText,[(584,251)(584,223)])
 link(onEvent2,8075934:doText,[(634,258)(634,223)])
 link(onEvent3,6199973:doOperation,[])
 link(onEvent4,1709785:doText,[(738,272)(738,370)])
}
Add(Memory,1498554,602,168)
{
 Default=Integer(0)
}
Add(VBoxLayout,10551583,91,63)
{
 Name="horz"
 Space=3
 Padding=2
}
Add(Button,9618318,98,245)
{
 Left=15
 Top=10
 link(onClick,12070866:doEvent1,[])
}
Add(Hub,12070866,161,245)
{
 link(onEvent1,16695146:doString,[])
 link(onEvent2,13572165:doRefresh,[(196,258)(196,195)])
}
Add(ComboBox,2739535,420,70)
{
 Left=355
 Top=5
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(466,90)])
}
Add(StrList,5520690,483,35)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2339622:doReplace,[])
}
Add(Replace,2339622,532,42)
{
 SubStr=";"
 DestStr="""
 link(onReplace,10771192:doText,[(608,48)(608,34)])
}
Add(HubEx,70667,462,77)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,651,28)
{
 Left=480
 Top=5
 Width=80
 Text="0"
}
Add(PC_TableSetCell,8075934,693,217)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,566395:Var2,[(685,188)(685,160)])
 link(Col,2153375:Value,[])
}
Add(Memory,2153375,700,168)
{
 Default=Integer(1)
}
Add(FormatStr,16695146,427,245)
{
 Mask="%1"
 Point(FString)
 link(onFString,1179918:doAddRow,[])
 link(Str1,2739535:String,[])
}
Add(PC_TableSetCell,1709785,994,364)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,5678827:Var3,[(1000,306)])
 link(Col,10008175:Value,[(1007,352)(1014,352)])
}
Add(Math,6199973,861,259)
{
 ResultType=0
 AngleMode=1
 link(onResult,8933500:doValue,[])
 link(Op1,566395:Var3,[(867,84)])
 link(Op2,5678827:Var2,[(874,247)(902,247)(902,316)(930,316)])
}
Add(Memory,10008175,1008,308)
{
 Default=Integer(2)
}
Add(Memory,8933500,924,259)
{
 Default=Integer(0)
}
Add(GetDataEx,566395,679,79)
{
 Angle=3
 link(Data,10771192:Text,[(657,84)])
}
Add(GetDataEx,5678827,924,301)
{
 link(Data,8933500:Value,[])
}


--- Добавлено в 2018-07-02 06:34:33

Но вот теперь не знаю как сделать другой вариант: 



Столбец 1      | Столбец 2 | Столбец 3
наименование 1      100         100

наименование 2      300         400 (100 из столбца 3 выше + 300 из столбца 2)

наименование 3      500         900 (400 из столбца 3 выше + 500 из столбца 2)

------------------------------------------------------------------------------

Итого (сумма):    900 (100+300+500)  1300 (100+400+900)

Редактировалось 1 раз(а), последний 2018-07-02 06:34:33
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#11: 2018-07-02 07:29:55 ЛС | профиль | цитата
Medvedoc писал(а):
Сделал так, как и задумал изначально
Закрашенные можно удалить.

Add(MainForm,12413584,392,245)
{
 Width=1029
 Height=578
 link(onCreate,2739535:doSelect,[])
}
Add(DocumentTemplate,15557505,903,406)
{
 Name="MainPage"
 link(Bitmap,13572165:Bitmap,[(909,394)(892,394)(892,453)(860,453)])
}
BEGIN_SDK
  Add(Print_Table,15348492,25,34)
  {
   Name="mtable"
   X=28
   Y=37
   Width=903
   Height=875
   Columns=#10:ФИО|250|10|8:1|250|10|8:2|250|10|
   RowHeight=20
   Spacing=1
   TableTrans=0
   TBorderStyle=5
   HeadFont=[Comic Sans MS,10,1,0,1]
   HeadBackColor=12303291
   CellBackColor=15658734
  }
END_SDK
Add(PaintBox,13572165,854,406)
{
 Left=10
 Top=40
 Width=905
 Height=385
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(doTop)
 Point(doHeight)
 link(onBeforeDraw,15557505:doDraw,[])
}
Add(PC_TableRow,1179918,546,329)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,13344997:doEvent1,[])
}
Add(PC_TableSetCell,3777948,658,301)
{
 ItemName="mtable"
 Document="MainPage"
 link(Text,2739535:String,[(664,285)(496,285)])
 link(Col,1498554:Value,[])
}
Add(Hub,13344997,623,329)
{
 OutCount=4
 link(onEvent1,3777948:doText,[(647,335)(647,307)])
 link(onEvent2,8075934:doText,[(697,342)(697,307)])
 link(onEvent3,6199973:doOperation,[])
 link(onEvent4,1709785:doText,[(647,356)(647,412)])
}
Add(Memory,1498554,665,245)
{
 Default=Integer(0)
}
Add(VBoxLayout,10551583,392,210)
{
 Name="horz"
 Space=3
 Padding=2
}
Add(Button,9618318,392,329)
{
 Left=15
 Top=10
 link(onClick,1179918:doAddRow,[])
}
Add(Hub,12070866,392,392)
{
 @Color=9342719
 link(onEvent1,16695146:doString,[])
}
Add(ComboBox,2739535,483,217)
{
 Left=355
 Top=5
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(529,237)])
}
Add(StrList,5520690,546,182)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,10771192:doText,[])
}
Add(Replace,2339622,469,392)
{
 @Color=9342719
 SubStr=";"
 DestStr="""
}
Add(HubEx,70667,525,224)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,742,189)
{
 Left=480
 Top=5
 Width=80
 Text="0"
}
Add(PC_TableSetCell,8075934,742,301)
{
 ItemName="mtable"
 Document="MainPage"
 Col=1
 link(Text,566395:Var2,[])
}
Add(Memory,2153375,518,392)
{
 @Color=9342719
 Default=Integer(1)
}
Add(FormatStr,16695146,427,392)
{
 @Color=9342719
 Mask="%1"
 Point(FString)
}
Add(PC_TableSetCell,1709785,798,406)
{
 ItemName="mtable"
 Document="MainPage"
 Col=2
 link(onText,13572165:doRefresh,[])
 link(Text,5678827:Var2,[])
}
Add(Math,6199973,798,343)
{
 ResultType=0
 AngleMode=1
 link(Op1,566395:Var3,[(804,287)])
 link(Op2,5678827:Var3,[(811,331)(840,331)(840,390)])
}
Add(Memory,10008175,602,392)
{
 @Color=9342719
 Default=Integer(2)
}
Add(Memory,8933500,560,392)
{
 @Color=9342719
 Default=Integer(0)
}
Add(GetDataEx,566395,742,282)
{
 link(Data,10771192:Text,[])
}
Add(GetDataEx,5678827,798,385)
{
 link(Data,6199973:Result,[])
}

Medvedoc писал(а):
Итого (сумма): 900 (100+300+500) 1300 (100+400+900)
100+400+900 = 1400

Редактировалось 2 раз(а), последний 2018-07-02 07:35:28
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 254
Рейтинг: 6
#12: 2018-07-02 08:36:34 ЛС | профиль | цитата
Tad писал(а):
Medvedoc писал(а):
Сделал так, как и задумал изначально
Закрашенные можно удалить.
Medvedoc писал(а):
Итого (сумма): 900 (100+300+500) 1300 (100+400+900)
100+400+900 = 1400

Редактировалось 2 раз(а), последний 2018-07-02 07:35:28


Немного ошибся )) Но вопрос так и не решился
карма: 0

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#13: 2018-07-02 13:59:25 ЛС | профиль | цитата
Medvedoc писал(а):
Но вопрос так и не решился

Схема

Add(MainForm,12413584,77,175)
{
 Width=1029
 Height=578
 link(onCreate,2739535:doSelect,[])
}
Add(DocumentTemplate,15557505,805,273)
{
 Name="MainPage"
 link(Bitmap,13572165:Bitmap,[(811,261)(794,261)(794,320)(762,320)])
}
BEGIN_SDK
  Add(Print_Table,15348492,25,34)
  {
   Name="mtable"
   X=28
   Y=37
   Width=903
   Height=875
   Columns=#10:ФИО|250|10|8:1|250|10|8:2|250|10|
   RowHeight=20
   Spacing=1
   TableTrans=0
   TBorderStyle=5
   HeadFont=[Comic Sans MS,10,1,0,1]
   HeadBackColor=12303291
   CellBackColor=15658734
  }
END_SDK
Add(PaintBox,13572165,756,273)
{
 Left=10
 Top=40
 Width=905
 Height=385
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(doTop)
 Point(doHeight)
 link(onBeforeDraw,15557505:doDraw,[])
}
Add(PC_TableRow,1179918,224,273)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,13344997:doEvent1,[])
}
Add(PC_TableSetCell,3777948,357,273)
{
 ItemName="mtable"
 Document="MainPage"
 link(onText,8075934:doText,[])
 link(Text,2739535:String,[(363,215)(174,215)])
 link(Col,1498554:Value,[])
}
Add(Hub,13344997,301,273)
{
 link(onEvent1,3777948:doText,[])
 link(onEvent2,2884650:doAdd,[(326,286)(326,447)])
}
Add(Memory,1498554,364,175)
{
 Default=Integer(0)
}
Add(VBoxLayout,10551583,77,140)
{
 Name="horz"
 Space=3
 Padding=2
}
Add(Button,9618318,133,273)
{
 Left=15
 Top=10
 Caption="Add"
 link(onClick,1179918:doAddRow,[])
}
Add(ComboBox,2739535,161,147)
{
 Left=355
 Top=5
 Width=110
 Height=21
 Strings=#12:Название 1.1|12:Название 1.2|12:Название 1.3|
 Point(doSelect)
 Point(onSelect)
 link(onClick,70667:doWork2,[])
 link(onSelect,70667:doWork3,[(207,167)])
}
Add(StrList,5520690,224,112)
{
 Strings=#3:100|3:200|3:300|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,10771192:doText,[])
}
Add(HubEx,70667,203,154)
{
 link(onEvent,5520690:doGetString,[])
}
Add(Edit,10771192,420,119)
{
 Left=480
 Top=5
 Width=80
 Text="0"
 DataType=1
}
Add(PC_TableSetCell,8075934,420,273)
{
 ItemName="mtable"
 Document="MainPage"
 Col=1
 link(onText,6199973:doOperation,[])
 link(Text,566395:Var2,[])
 link(Row,15322107:Var2,[])
}
Add(PC_TableSetCell,1709785,553,273)
{
 ItemName="mtable"
 Document="MainPage"
 Col=2
 link(onText,7361822:doWork2,[])
 link(Row,15322107:Var3,[(573,243)])
}
Add(Math,6199973,476,273)
{
 ResultType=0
 AngleMode=1
 link(onResult,1709785:doText,[])
 link(Op1,566395:Var3,[(482,215)])
 link(Op2,5678827:Var3,[(489,264)(517,264)(517,320)])
}
Add(GetDataEx,566395,420,210)
{
 link(Data,10771192:Text,[])
}
Add(GetDataEx,5678827,476,315)
{
 link(Data,6199973:Result,[])
}
Add(MT_MTArray,15261230,525,371)
{
}
Add(MT_MTArrayRW,11195959,525,427)
{
 Point(Count)
 link(Array,13675177:Var2,[])
}
Add(MT_AddData,2884650,406,441)
{
 link(onAdd,11195959:doAdd,[])
 link(Data1,566395:Var1,[(412,215)])
 link(Data2,5678827:Var1,[(419,320)])
}
Add(Button,5588290,322,504)
{
 Left=80
 Top=10
 Caption="Summ"
 link(onClick,13593899:doAddRow,[])
}
Add(MT_MTArrayEnum,7872656,511,504)
{
 link(onItem,651358:doSplit,[])
 link(Array,13675177:Var1,[(517,418)])
}
Add(GetDataEx,13675177,525,413)
{
 link(Data,15261230:Array,[])
}
Add(MT_Part,651358,560,504)
{
 link(onSplit,10387915:doOperation,[])
 link(onPart,1738135:doOperation,[(613,517)(613,545)])
}
Add(Math,10387915,679,504)
{
 ResultType=0
 AngleMode=1
 link(Op1,14142590:Var3,[(685,495)(720,495)(720,544)])
}
Add(Math,1738135,623,539)
{
 ResultType=0
 AngleMode=1
 link(Op1,11831410:Var3,[(629,530)(664,530)(664,579)])
}
Add(PC_TableSetCell,15279002,623,623)
{
 ItemName="mtable"
 Document="MainPage"
 Col=1
 link(onText,11449667:doText,[])
 link(Text,11831410:Var2,[])
 link(Row,9750795:Var2,[])
}
Add(Hub,11337918,455,504)
{
 link(onEvent1,7872656:doEnum,[])
 link(onEvent2,6729786:doText,[(487,517)(487,629)])
}
Add(PC_TableSetCell,6729786,504,623)
{
 ItemName="mtable"
 Document="MainPage"
 Text="Итого:"
 link(onText,15279002:doText,[])
 link(Col,14035191:Value,[])
}
Add(Memory,14035191,511,546)
{
 Default=Integer(0)
}
Add(GetDataEx,14142590,679,539)
{
 link(Data,10387915:Result,[])
}
Add(PC_TableSetCell,11449667,679,623)
{
 ItemName="mtable"
 Document="MainPage"
 Col=2
 link(onText,7361822:doWork3,[(739,629)])
 link(Text,14142590:Var2,[])
 link(Row,9750795:Var3,[(699,603)])
}
Add(HubEx,7361822,735,273)
{
 link(onEvent,13572165:doRefresh,[])
}
Add(GetDataEx,11831410,623,574)
{
 link(Data,1738135:Result,[])
}
Add(PC_TableRow,13593899,406,504)
{
 ItemName="mtable"
 Document="MainPage"
 link(onAddRow,11337918:doEvent1,[])
}
Add(GetDataEx,9750795,637,598)
{
 Angle=3
 link(Data,13593899:Row,[(412,603)])
}
Add(GetDataEx,15322107,434,238)
{
 Angle=3
 link(Data,1179918:Row,[(269,243)(269,313)(230,313)])
}


Редактировалось 1 раз(а), последний 2018-07-02 13:59:36
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#14: 2018-07-02 20:16:32 ЛС | профиль | цитата
Но вопрос так и не решился. И нельзя его так решать. ИМХО !

Редактировалось 1 раз(а), последний 2018-07-02 20:16:50
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#15: 2018-07-02 21:59:48 ЛС | профиль | цитата
Tad, я привел один из примеров решения на основе матрицы, в котором ничего не было сказано про возможность получения нескольких итоговых сумм.

Редактировалось 1 раз(а), последний 2018-07-02 22:01:35
карма: 22

0
ФорумыПрочееАвтоматическое добавление элементов ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика