Изменение цвета текста. TaskBar

Форумы Помощь по пакетуИзменение цвета текста. TaskBar ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 590

Рейтинг: 19

#1: 2009-01-05 20:38:11 ЛС | профиль | цитата

Как можно изменить цвет определенного текста в строке...
code_11209.txt

Например, чтоб в Рич Едит весь текст был черного цвета, кроме слов Edit

Еще такой вопрос.. как сделать, чтобы уже из "собранной" программы можно было выбрать, чтобы программа отображалась в TaskBar'e или наоборот

карма: 0

файлы: 1

code_11209.txt [323B] [133]

Администрация

Ответов: 15295

Рейтинг: 1519

#2: 2009-01-05 20:41:50 ЛС | профиль | цитата

EcsTasY писал(а):

Еще такой вопрос.. как сделать, чтобы уже из "собранной" программы можно было выбрать, чтобы программа отображалась в TaskBar'e

doPlaceInTaskBar у формы

карма: 27

https://hiasm.com

Ответов: 199

Рейтинг: 44

#3: 2009-01-05 20:51:25 ЛС | профиль | цитата

EcsTasY писал(а):

Как можно изменить цвет определенного текста в строке

например так:
code_11210.txt

карма: 0

файлы: 1

code_11210.txt [892B] [118]

Ответов: 590

Рейтинг: 19

#4: 2009-01-05 21:14:29 ЛС | профиль | цитата

Dilma писал(а):

doPlaceInTaskBar у формы

Если можно, то пример дай.. а то я пробовал до этого.. у меня не получилось сделать... яб не создавал пост, еслиб знал как можно реализовать с помощью этой точки...

vovs писал(а):

например так:
code_11210.txt

Не подойдет.. текст должен быть просто строкой... то есть как обычное сообщение... а там символы стоят...

карма: 0

Ответов: 1304

Рейтинг: 405

#5: 2009-01-06 00:38:53 ЛС | профиль | цитата

EcsTasY, могу предложить хитрый способ, с помощью разметки html.
Хотя пример vovsа, вполне достаточен, а далее формируй строку по маске.


Add(MainForm,5011405,42,56)
{
 Width=560
 Height=274
 Position=1
}
Add(WebBrowser,10437494,161,112)
{
 Top=174
 Width=552
 Height=73
 Align=4
 Point(doFromText)
}
Add(BitBtn,2619408,35,119)
{
 Left=215
 Top=150
 Width=130
 Caption="Построить сообщение"
 link(onClick,10988143:doData,[])
}
Add(Memo,11387759,105,56)
{
 Width=552
 Height=145
 Align=2
 Strings=#6:<html>|8:  <head>|17:  <body text=red>|29:    <p> <u>подчеркнутый</u>, |33:<i>курсив</i>, <b>полужирный</b>.|44:    <font color=blue> А эта строка написана |24:синим цветом.</font></p>|7:</body>|8: </html>|
}
Add(DoData,10988143,105,119)
{
 link(onEventData,10437494:doFromText,[(149,125)(149,146)])
 link(Data,11387759:Text,[])
}

карма: 3

Голосовали: Астрамак

Ответов: 590

Рейтинг: 19

#6: 2009-01-06 00:47:22 ЛС | профиль | цитата

Нужно, чтоб текст вставлялся в рич едит

карма: 0

Ответов: 1304

Рейтинг: 405

#7: 2009-01-06 01:24:19 ЛС | профиль | цитата

Если не так, то больше вариантов нет.


Add(MainForm,2953706,-48,28)
{
 Height=209
}
Add(RichEdit,11094424,337,147)
{
 Left=5
 Top=5
 Width=370
 Height=115
 InsertCRLF=1
}
Add(Edit,11686291,15,126)
{
 Left=5
 Top=155
 Width=175
 Text=""
 link(onEnter,6558345:doWork2,[])
}
Add(StrPart,3746967,92,133)
{
 Char="["
 Point(onNotFound)
 link(onSplit,6277115:doSplit,[])
 link(onPart,11054483:doWork1,[(152,146)])
 link(onNotFound,11054483:doWork2,[])
}
Add(StrPart,6277115,169,133)
{
 Char="]"
 link(onSplit,10553536:doWork1,[(299,139)])
 link(onPart,4790102:doMT,[(217,146)(217,174)])
}
Add(HubEx,11054483,148,140)
{
 link(onEvent,10553536:doWork2,[])
}
Add(HubEx,10553536,295,140)
{
 link(onEvent,11094424:doAdd,[])
}
Add(MT_String,4790102,232,161)
{
 Delimeter="/"
 link(onResult,10553536:doWork3,[(299,167)])
}
Add(Edit,1210940,15,28)
{
 Left=5
 Top=130
 Width=175
 Text=""
 link(onEnter,4849905:doString,[(60,41)(60,68)(3,68)(3,83)])
}
Add(FormatStr,4849905,15,77)
{
 DataCount=1
 Mask="[%1/255/1]"
 link(onFString,6558345:doWork1,[(68,83)])
 link(Str1,1210940:Text,[])
}
Add(HubEx,6558345,64,126)
{
 link(onEvent,3746967:doSplit,[])
}

карма: 3

Голосовали: Астрамак

Ответов: 590

Рейтинг: 19

#8: 2009-01-06 12:27:50 ЛС | профиль | цитата

MAV, ни так.. ты вообще походу ни понял о чем я... нужно, чтобы одно слово искалось в другой строке, если оно найдено, то нужно именно его подсветить, а всё остальное оставить черным
------------ Дoбавленo:

типа помощи можно не ожидать

карма: 0

Ответов: 1304

Рейтинг: 405

#9: 2009-01-06 12:47:10 ЛС | профиль | цитата

EcsTasY, к чему такой песемизм

, есть вариант, но у него недостаток отслеживает одно слово в одной строке.


Add(MainForm,2953706,42,35)
{
 Width=298
 Height=186
 Position=1
}
Add(RichEdit,11094424,364,245)
{
 Top=20
 Width=290
 Height=115
 InsertCRLF=1
}
Add(StrPart,3746967,189,189)
{
 Char="["
 Point(onNotFound)
 link(onSplit,6277115:doSplit,[])
 link(onPart,11054483:doWork1,[(249,202)])
 link(onNotFound,11054483:doWork2,[])
}
Add(StrPart,6277115,266,189)
{
 Char="]"
 link(onSplit,10553536:doWork1,[(347,195)])
 link(onPart,10553536:doWork3,[(322,202)(322,226)(347,226)])
}
Add(HubEx,11054483,245,196)
{
 link(onEvent,10553536:doWork2,[])
}
Add(HubEx,10553536,343,196)
{
 link(onEvent,4790102:doMT,[])
}
Add(MT_String,4790102,364,196)
{
 Delimeter="/"
 link(onResult,11094424:doAdd,[(410,202)(410,233)(352,233)(352,251)])
}
Add(Edit,1210940,42,84)
{
 Width=100
 link(onEnter,10327909:doValue,[(93,97)(93,90)])
}
Add(FormatStr,4849905,42,133)
{
 DataCount=1
 Mask="[%1/255/1]"
 link(onFString,15843931:doValue,[])
 link(Str1,1210940:Text,[])
}
Add(Replace,7813958,105,189)
{
 link(onReplace,3746967:doSplit,[])
 link(Str,2987121:Text,[(111,177)(79,177)(79,226)(48,226)])
 link(Sub_str,10327909:Value,[])
 link(Dest,15843931:Value,[(125,177)(132,177)])
}
Add(Memory,10327909,112,84)
{
 Default=String(Edit)
 link(onData,4849905:doString,[(163,90)(163,127)(23,127)(23,139)])
}
Add(Memory,15843931,126,133)
{
 Default=String(Edit)
}
Add(Edit,2987121,42,182)
{
 Top=140
 Width=290
 Text="789 qwerty Edit 789 qwerty"
 link(onEnter,7813958:doReplace,[])
}

карма: 3

Голосовали: Астрамак

Ответов: 590

Рейтинг: 19

#10: 2009-01-06 14:27:46 ЛС | профиль | цитата

MAV, мне не нужно, чтоб какие то левые символы в строке были... не то это... не то..

карма: 0

-2

Голосовали:

Астрамак, Stasie

Ответов: 1304

Рейтинг: 405

#11: 2009-01-06 14:43:45 ЛС | профиль | цитата

EcsTasY, ну вопервых запаришся банить

во втрорых ты дурак или прикидываешься

В третьйх и это самое главное. Я стараюсь помочь тратя своё время, может и не понимая что ты хочешь, но притом не высказывая никаких замечаний по поводу абсурдности или невыполнимости спрашиваемого.
А что в итоге ты мне лепишь минусы и пытаешься забанить.
После такого отношения пусть тебе помогают тамбовские волки