Вверх ↑
Этот топик читают: Гость
Ответов: 322
Рейтинг: 8
#1: 2017-03-24 13:33:36 ЛС | профиль | цитата
Собрал программу для себя, понадобилось по условию закрашивать разными цветами строки в таблице.
Вполне возможно кому-то ещё пригодится.
Add(MainForm,2953706,315,196)
{
 Width=1202
 Height=223
 AlphaBlendValue=250
 link(onCreate,1806658:doEvent2,[(410,216)(410,153)])
}
Add(TrackBar,8738272,287,140)
{
 Left=5
 Top=5
 Width=1180
 Max=1000000000
 link(onPosition,1495486:doValue,[])
}
Add(Math,13739040,182,140)
{
 link(onResult,8221039:doEvent1,[])
 link(Op1,2455806:Var1,[(188,128)(255,128)(255,180)])
 link(Op2,348424:Var1,[(195,96)])
}
Add(Edit,3066141,462,105)
{
 Left=345
 Top=85
 Width=835
 Height=100
 Text=""
 Point(doColor)
}
Add(Button,14867586,98,140)
{
 Left=745
 Top=40
 Width=100
 Height=30
 Font=[Arial,12,1,0,204]
 Caption="Вперёд"
 link(onClick,13739040:doOperation,[])
}
Add(Memory,1495486,371,140)
{
 link(onData,1806658:doEvent1,[])
}
Add(Hub,1806658,420,140)
{
 InCount=2
 OutCount=3
 link(onEvent1,3066141:doColor,[(448,146)(448,125)])
 link(onEvent2,2168652:doString,[])
 link(onEvent3,12902653:doText,[(441,160)(441,114)(114,114)(114,69)])
}
Add(Button,5728632,98,210)
{
 Left=535
 Top=40
 Width=100
 Height=30
 Font=[Arial,12,1,0,204]
 Caption="Назад"
 link(onClick,1292216:doOperation,[])
}
Add(Math,1292216,182,210)
{
 OpType=1
 link(onResult,8221039:doEvent2,[(227,216)(227,153)])
 link(Op1,2455806:Var2,[(188,199)(272,199)])
 link(Op2,348424:Var2,[(195,188)(223,188)])
}
Add(GetDataEx,2455806,266,175)
{
 Angle=1
 link(Data,4601050:Var1,[])
}
Add(Hub,8221039,238,140)
{
 InCount=4
 OutCount=1
 link(onEvent1,8738272:doPosition,[])
}
Add(Edit,10720779,217,56)
{
 Left=640
 Top=45
 Width=100
 Height=25
 Font=[Arial,12,1,0,204]
 Text="10000"
 Alignment=2
}
Add(GetDataEx,348424,217,91)
{
 link(Data,10720779:Text,[])
}
Add(Label,16203382,504,147)
{
 Left=1040
 Top=40
 Width=70
 Height=17
 Caption=""
}
Add(FormatStr,2168652,455,147)
{
 DataCount=1
 Mask="Номер цвета %1"
 link(onFString,16203382:doText,[])
}
Add(ColorBox,16266603,175,266)
{
 Left=870
 Top=40
 Width=145
 Height=21
 link(onClick,16119873:doData,[(219,272)(219,296)(163,296)(163,321)])
}
Add(DoData,16119873,175,315)
{
 link(onEventData,8221039:doEvent4,[(223,321)(223,167)])
 link(Data,16266603:CurrentColor,[])
}
Add(Edit,12902653,126,63)
{
 Left=1040
 Top=60
 Width=120
 Text=""
 link(onEnter,8221039:doEvent3,[(172,76)(172,160)])
}
Add(FormatStr,11752919,406,273)
{
 Mask="4#%1;%2"
 link(onFString,10348468:doAdd,[])
 link(Str1,6510334:Var3,[(412,251)(484,251)(484,229)])
 link(Str2,6510334:Var2,[(419,263)(475,263)])
}
Add(GetDataEx,4601050,364,175)
{
 Angle=1
 link(Data,1495486:Value,[(377,180)])
}
Add(GetDataEx,6510334,469,224)
{
 Angle=3
 link(Data,4601050:Var2,[(370,229)])
}
Add(Button,7681301,350,273)
{
 Left=345
 Top=40
 Width=105
 Height=35
 Font=[Arial,12,1,0,204]
 Caption="Сохранить"
 link(onClick,11752919:doString,[])
}
Add(StringTableMT,10348468,476,273)
{
 Left=120
 Top=40
 Width=220
 Height=143
 Columns=#18:Номер цвета=200==2|
 TabGrid=0
 TabGridFrame=0
 TableWBreak=0
 Grid=0
 BumpText=0
 Gradient=0
 ColorItems=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(Matrix)
 Point(Index)
 Point(Handle)
}
Add(Button,15670394,406,322)
{
 Left=10
 Top=40
 Width=105
 Height=35
 Font=[Arial,12,1,0,204]
 Caption="Очистить"
 link(onClick,10348468:doClear,[(457,328)(457,286)])
}
В верхней части ползунок для поиска цвета.
Всегда готов к критике.

Редактировалось 1 раз(а), последний 2017-03-24 13:37:08
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#2: 2017-03-24 14:55:10 ЛС | профиль | цитата
CG.jpg
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 322
Рейтинг: 8
#3: 2017-03-24 18:57:39 ЛС | профиль | цитата
градации.jpg
можно подобрать градации цветов
карма: 0

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)