Вверх ↑
Этот топик читают: Гость
Ответов: 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
vip
#1.1контекстная реклама от партнеров
Ответов: 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
Сообщение
...
Прикрепленные файлы
(файлы не залиты)