Вверх ↑
Ответов: 8
Рейтинг: -3
#1: 2014-08-02 12:29:04 ЛС | профиль | цитата
Не лень, надо бы читать внимательней! Там написано что ВЫДЕЛЕННОГО ТЕКСТА а не всего! Есть в RichEdit верхние точки цвета и начертания, шрифта там нет! Верхние точки для изменения цвета.. выделенного текста работают при помощи _work_doFormatSel. Верхней точки шрифта нет!
Изменение всего шрифта при компоненте Font даже дурак поймет!
------------ Дoбавленo в 12.29:
Пример(для начертания и цвета):
Add(MainForm,2953706,301,21)
{
Width=230
Height=235
}
Add(RichEdit,4566545,371,98)
{
Left=10
Top=35
Width=205
Height=165
Point(doFormatSel)
link(Color,16064775:Var2,[])
link(Style,10133678:Var1,[(391,75)])
}
Add(ComboBox,2381782,469,14)
{
Left=160
Top=5
Height=21
Strings=#7:Обычный|6:Жирный|6:Курсив|13:Жирный курсив|12:Подчёркнутый|
Text=""
ReadOnly=0
Point(Index)
link(onClick,12509891:doData,[(515,27)(515,233)(289,233)(289,181)])
}
Add(ColorBox,3901238,378,21)
{
Left=10
Top=5
Width=145
Height=21
link(onClick,4250791:doData,[(422,27)(422,87)(289,87)(289,139)])
}
Add(DoData,4250791,301,133)
{
link(onEventData,2316227:doWork2,[])
link(Data,16064775:Var1,[(307,77)])
}
Add(DoData,12509891,301,175)
{
link(onEventData,2316227:doWork3,[(354,181)])
link(Data,10133678:Var2,[(307,117)(489,117)])
}
Add(HubEx,2316227,350,133)
{
link(onEvent,4566545:doFormatSel,[])
}
Add(GetDataEx,16064775,378,72)
{
link(Data,3901238:CurrentColor,[])
}
Add(GetDataEx,10133678,483,70)
{
link(Data,2381782:Index,[])
}
карма: 0

0