Вверх ↑
Этот топик читают: Гость
Ответов: 109
Рейтинг: 0
#1: 2022-10-23 11:44:13 ЛС | профиль | цитата
Добрый день всем. Подскажите, как вставить в Memo строку иного цвета? Т.е. предположим пишется лог и если есть ошибка, то она вставляется красным цветом к примеру. С помощью RichEdit у меня вставляется всё не по строчно, а просто стеной текста.
Вот моя программа. Она еще не доделана, так что не обращайте внимания на ошибки или непонятки )

Add(MainForm,2953706,21,105)
{
Width=1212
Height=671
}
Add(HTTPClient,5402032,196,105)
{
ResumeDL=1
IgnoreInvalidDate=1
Point(RawHeaders)
Point(doResumeDL)
link(onHeadersAvail,8782115:doSearch,[])
}
Add(HTTP_Get,6556790,308,238)
{
Wait=0
link(onURLSize,9561896:doEvent1,[])
}
Add(Button,6490615,35,161)
{
Left=10
Top=20
link(onClick,9376306:doEvent1,[])
}
Add(Time,15211976,658,385)
{
Format="D:M:Y h:m:s"
}
Add(FormatStr,11937011,658,441)
{
Mask="[%1]: размер Sitemap %2 байт"
Point(FString)
link(onFString,16158665:doEvent3,[(702,447)(702,531)(618,531)(618,615)])
link(Str1,15211976:FormatTime,[])
link(Str2,12519540:Value,[(671,408)(699,408)])
}
Add(Memory,12519540,693,343)
{
Point(Data)
}
Add(HTTP_Get,7392708,308,105)
{
Wait=0
link(onURLSize,12288493:doValue,[(398,125)(398,34)])
}
Add(HTTP_Get,9026340,308,168)
{
Wait=0
link(onURLSize,8274939:doValue,[])
}
Add(Hub,9376306,77,161)
{
OutCount=3
link(onEvent1,5402032:doLoadString,[(143,167)(143,111)])
link(onEvent2,11223156:doLoadString,[])
link(onEvent3,15408556:doLoadString,[(143,181)(143,244)])
}
Add(Hub,16158665,630,595)
{
InCount=3
link(onEvent1,4585179:doWork1,[(686,601)(686,552)])
}
Add(BlockFind,8782115,245,105)
{
IncludeBlock=1
StartBlock="HTTP/1.1"
EndBlock="Found"
Point(onNotFind)
link(onSearch,7392708:GetURLSize,[(293,111)(293,125)])
link(Text,5402032:RawHeaders,[(251,93)(233,93)(233,149)(216,149)])
}
Add(HTTPClient,11223156,196,168)
{
ResumeDL=1
IgnoreInvalidDate=1
Point(RawHeaders)
Point(doResumeDL)
link(onHeadersAvail,4306956:doSearch,[])
}
Add(BlockFind,4306956,245,168)
{
IncludeBlock=1
StartBlock="HTTP/1.1"
EndBlock="Found"
Point(onNotFind)
link(onSearch,9026340:GetURLSize,[(293,174)(293,188)])
link(Text,11223156:RawHeaders,[(251,156)(233,156)(233,212)(216,212)])
}
Add(HTTPClient,15408556,196,238)
{
ResumeDL=1
IgnoreInvalidDate=1
Point(RawHeaders)
Point(doResumeDL)
link(onHeadersAvail,522240:doSearch,[])
}
Add(BlockFind,522240,245,238)
{
IncludeBlock=1
StartBlock="HTTP/1.1"
EndBlock="Found"
Point(onNotFind)
link(Text,15408556:RawHeaders,[(251,226)(233,226)(233,282)(216,282)])
link(onNotFind,6556790:GetURLSize,[])
}
Add(Time,13656742,658,231)
{
Format="D:M:Y h:m:s"
}
Add(FormatStr,1133305,658,287)
{
Mask="[%1]: размер Sitemap1 %2 байт"
Point(FString)
link(onFString,13522356:doEvent1,[(702,293)(702,423)(569,423)(569,559)])
link(Str1,13656742:FormatTime,[])
link(Str2,8274939:Value,[(671,254)(699,254)])
}
Add(Memory,8274939,693,182)
{
Point(Data)
link(onData,1133305:doString,[(737,188)(737,240)(646,240)(646,293)])
}
Add(Time,16309751,658,77)
{
Format="D:M:Y h:m:s"
}
Add(FormatStr,2908327,658,133)
{
Mask="[%1]: размер Sitemap0 %2 байт"
Point(FString)
link(onFString,16158665:doEvent1,[(702,139)(702,331)(618,331)(618,601)])
link(Str1,16309751:FormatTime,[])
link(Str2,12288493:Value,[(671,100)(699,100)])
}
Add(Memory,12288493,693,28)
{
Point(Data)
link(onData,2908327:doString,[(737,34)(737,86)(646,86)(646,139)])
}
Add(If_else,5073620,392,273)
{
Type=2
Op2=Integer(51200)
link(onTrue,11937011:doString,[(541,279)(541,447)])
}
Add(Hub,9561896,357,252)
{
InCount=3
link(onEvent1,5073620:doCompare,[(381,258)(381,279)])
link(onEvent2,12519540:doValue,[(532,265)(532,349)])
}
Add(RichEdit,9654878,938,623)
{
Left=79
Top=240
Width=360
Height=120
ScrollBars=2
CanDragOle=1
InsertCRLF=1
link(Color,14420888:Var,[])
}
Add(Hub,13522356,581,553)
{
InCount=3
link(onEvent1,4585179:doWork2,[])
}
Add(InfoTip,2830673,980,462)
{
Info=#6:цвет 2|
Width=43
Height=18
}
Add(Memory,8934708,917,483)
{
Default=Integer(1)
}
Add(Memory,14367362,980,483)
{
Default=Integer(255)
}
Add(GetIndexData,14420888,945,546)
{
link(Data1,8934708:Value,[(951,530)(923,530)])
link(Data2,14367362:Value,[(958,530)(986,530)])
}
Add(ChanelToIndex,4585179,728,546)
{
Point(Data)
link(onIndex,11376981:doEvent1,[])
}
Add(Hub,11376981,770,546)
{
OutCount=3
link(onEvent1,14420888:doIndex,[])
link(onEvent2,10879217:doData,[(808,559)(808,594)])
}
Add(InfoTip,3045966,917,462)
{
Info=#6:цвет 1|
Width=43
Height=18
}
Add(DoData,10879217,833,588)
{
link(onEventData,9654878:doAdd,[(901,594)(901,629)])
link(Data,4585179:Data,[(839,583)(734,583)])
}

карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 698
Рейтинг: 143
#2: 2022-10-23 12:59:41 ЛС | профиль | цитата
Serascer писал(а):
С помощью RichEdit у меня вставляется всё не по строчно, а просто стеной текста.

Свойство компонента RichEdit InsertCRLF = True
Add(MainForm,12410321,140,126)
{
Width=1212
Height=671
}
Add(Button,6490615,245,189)
{
Left=10
Top=20
link(onClick,985105:doFor,[])
}
Add(RichEdit,9654878,777,266)
{
Left=79
Top=35
Width=360
Height=545
ScrollBars=3
CanDragOle=1
link(Color,14420888:Var,[])
}
Add(InfoTip,2830673,819,105)
{
Info=#6:цвет 2|
Width=43
Height=18
}
Add(Memory,8934708,756,126)
{
Default=Integer(1)
}
Add(Memory,14367362,819,126)
{
Default=Integer(255)
}
Add(GetIndexData,14420888,784,189)
{
link(Data1,8934708:Value,[(790,173)(762,173)])
link(Data2,14367362:Value,[(797,173)(825,173)])
}
Add(ChanelToIndex,4585179,567,189)
{
Point(Data)
link(onIndex,11376981:doEvent1,[])
}
Add(Hub,11376981,609,189)
{
OutCount=3
link(onEvent1,14420888:doIndex,[])
link(onEvent2,10879217:doData,[(647,202)(647,237)])
}
Add(InfoTip,3045966,756,105)
{
Info=#6:цвет 1|
Width=43
Height=18
}
Add(DoData,10879217,672,231)
{
link(onEventData,9654878:doAdd,[(740,237)(740,272)])
link(Data,4585179:Data,[(678,226)(573,226)])
}
Add(For,985105,322,189)
{
End=500
link(onEvent,3678133:doRandom,[])
}
Add(Random,3678133,392,189)
{
link(onRandom,3996637:doCompare,[])
}
Add(If_else,3996637,448,189)
{
Type=2
Op2=Integer(30)
link(onTrue,4585179:doWork1,[])
link(onFalse,4585179:doWork2,[])
}


Редактировалось 1 раз(а), последний 2022-10-23 13:02:50
карма: 15

0
Ответов: 109
Рейтинг: 0
#3: 2022-10-23 13:05:39 ЛС | профиль | цитата
Спасибо большое!
карма: 1

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