Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 11
Рейтинг: 0
#1: 2020-06-23 07:40:27 ЛС | профиль | цитата
Для примера возьмем поле ввода,где зададим цвет и оправляем на точку надписи. Или параметры цвета нужно как- то подготовить? В программе рассчитываю процент и он может быть как отрицательный так и положительный и, соответственно, мне нужно изменять цвет на красный, если число отрицательное при выводе его в компонент надпись.
Make(delphi)
ver(4.05 build 186)
Add(SimpleForm,2953706,21,105)
{
Width=514
Height=119
}
Add(Button,4114252,287,252)
{
Top=15
Width=170
Height=60
Caption="жмём и и надпись меняет цвет на указанный в поле ввода."
link(onClick,8694836:doData,[])
}
Add(Edit,289937,357,133)
{
Left=190
Top=40
Text="255"
DataType=1
}
Add(Label,15544257,455,245)
{
Left=285
Top=45
Width=150
Caption="хочу быть чёрного цвета"
Point(doFont)
}
Add(DoData,8694836,357,252)
{
link(onEventData,15544257:doFont,[])
link(Data,289937:Text,[])
}


Редактировалось 1 раз(а), последний 2020-06-23 08:16:29
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 263
Рейтинг: 18
#2: 2020-06-23 08:18:46 ЛС | профиль | цитата
Вот фрагмент схемы в которой реализовано смена цвета шрифта.

Add(Edit,10579264,525,175)
{
Left=5
Top=14
Width=90
Height=19
Font=[MS Sans Serif,8,0,12632256,1]
Hint="Фильтр отображения данных"
Text="поиск"
Point(doSetFocus)
Point(doFont)
Point(onKeyDown)
Point(onMouseDown)
link(onKeyDown,12815927:doWork2,[])
link(onMouseDown,12815927:doWork3,[(585,202)])
}
Add(Button,12010784,273,196)
{
Left=96
Top=14
Width=20
Height=19
TabOrder=-1
Hint="Очистить фильтр поиска"
Caption="X"
link(onClick,3189327:doEvent1,[])
}
Add(Font,5673073,406,182)
{
link(onFont,3580331:doEvent1,[(453,188)(453,209)])
}
Add(Font,5717193,406,210)
{
Font=[MS Sans Serif,8,0,12632256,1]
link(onFont,3580331:doEvent2,[])
}
Add(If_else,10530133,602,189)
{
Op2=String(поиск)
link(onTrue,6115953:doEvent1,[(648,195)(648,260)(318,260)(318,181)])
link(Op1,10579264:Text,[(608,177)(573,177)(573,219)(531,219)])
}
Add(HubEx,12815927,581,189)
{
link(onEvent,10530133:doCompare,[])
}
Add(DoData,14608725,364,175)
{
link(onEventData,628621:doEvent1,[])
}
Add(Hub,6115953,329,175)
{
link(onEvent1,14608725:doData,[])
link(onEvent2,5673073:doFont,[])
}
Add(Hub,628621,476,175)
{
InCount=2
OutCount=1
link(onEvent1,10579264:doText2,[(508,181)(508,188)])
}
Add(DoData,11818751,364,203)
{
Data=String(поиск)
link(onEventData,628621:doEvent2,[(453,209)(453,188)])
}
Add(Hub,3580331,476,203)
{
InCount=2
OutCount=1
link(onEvent1,10579264:doFont,[(508,209)(508,202)])
}
Add(Hub,3189327,329,196)
{
OutCount=3
link(onEvent1,4900308:doEvent2,[])
link(onEvent2,11818751:doData,[])
link(onEvent3,5717193:doFont,[])
}
Add(Hub,4900308,476,189)
{
InCount=2
OutCount=1
link(onEvent1,10579264:doSetFocus,[])
}
карма: 3

0
Ответов: 11
Рейтинг: 0
#3: 2020-06-23 08:43:45 ЛС | профиль | цитата
Спасибо, сам не допер про компонент Font.
карма: 0

0
Ответов: 4621
Рейтинг: 746
#4: 2020-06-23 15:03:39 ЛС | профиль | цитата
Кстати, в компоненте ColorBox ошибка - событие onClick выдаётся дважды.

Add(MainForm,2953706,21,105)
{
Position=1
}
Add(ColorBox,5906334,140,105)
{
Left=15
Top=15
Width=135
Height=21
link(onClick,1771743:doData,[])
}
Add(ListBox,14727752,280,105)
{
Left=260
Top=10
Width=115
Height=190
}
Add(DoData,1771743,217,105)
{
Data=String(Click)
link(onEventData,14727752:doAdd,[])
}
карма: 26

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