Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Memo1   Найти похожие ветки 

 
Михайлов Антон   (2003-02-23 11:16) [0]

Программисты,
Как в Memo1 сделать:
1)Например все слова "Hello" менять на жирный шрифт и красный цвет
2)Как например для отдельного слова "Hello"(для всех слов Hello в тексте) сделать hint="hint for hello"
Буду очень благодарен за помощь!!!


 
Song   (2003-02-23 11:23) [1]

1. Можно сказать никак.
2. onMouseMove+TMemo.Hint


 
Михайлов Антон   (2003-02-23 11:25) [2]

А с richedit такое проделать можно (1 и 2)??


 
Palladin   (2003-02-23 11:27) [3]


> Михайлов Антон (23.02.03 11:16)

1. ты в блокноте (notepad) пробовал изменить стиль только одного слова?


 
Михайлов Антон   (2003-02-23 11:29) [4]

Ну можно же сделать както подцветку синтаксиса...
Предложите хотябы компоненту которой это можно сделать


 
Palladin   (2003-02-23 11:30) [5]


> Михайлов Антон (23.02.03 11:25)

можно, на то он и RichEdit.


 
Михайлов Антон   (2003-02-23 11:35) [6]

Хе :)
Вопрос стоит в то как это сделать :))
Может поможете??


 
Palladin   (2003-02-23 11:56) [7]

вот
на скорую руку набросал


procedure TForm1._ChgSubStrStyle(p_strText:string);
var
txt:string;
ocp:integer;
ocp2:integer;
b,p1:integer;
begin
txt:=RichEdit1.Lines.Text;
ocp:=RichEdit1.SelStart;
ocp2:=RichEdit1.SelLength;
b:=0;
while true do
begin
p1:=pos(p_strText,txt);
if p1=0 then break;
b:=b+p1;
txt:=copy(txt,p1+length(p_strText)-1,length(txt));
RichEdit1.SelStart:=b-1;
RichEdit1.SelLength:=length(p_strText);
RichEdit1.SelAttributes.Color:=clred;
end;
RichEdit1.SelStart:=ocp;
RichEdit1.SelLength:=ocp2;
end;


выделяет подстроку указаную в параметре в красный цвет


 
Palladin   (2003-02-23 12:02) [8]

а ведь требовалось от меня всеголишь залезть в help и посмотреть описание TRichEdit...


 
Михайлов Антон   (2003-02-23 12:06) [9]

Всё это хорошо, только он выделяет всю строку, а как сделать только слово??


 
Song   (2003-02-23 12:08) [10]

>>Предложите хотябы компоненту которой это можно сделать
SynEdit
>>Всё это хорошо, только он выделяет всю строку, а как сделать только слово??
SelLength установи в длину слова, а SelStart на начало слова.


 
Palladin   (2003-02-23 12:17) [11]


> Михайлов Антон (23.02.03 12:06)

какую нфиг строку...
ты слово в параметре укажи которое тебе выделить надо...
и он его выделит во всем ричэдите...


 
Михайлов Антон   (2003-02-23 12:19) [12]

2 Palladin
ненаю, у мя всю строку с этим словом выделяет!!!


 
Palladin   (2003-02-23 12:23) [13]

это может быть только по одной причине...
ты в параметре указал эту строку...


 
Михайлов Антон   (2003-02-23 12:25) [14]

Подскажи где ты вычитал, а то немогу понять чё к чему


 
Palladin   (2003-02-23 12:36) [15]


> help и посмотреть описание TRichEdit...



 
MAN-In-RED   (2003-02-23 14:28) [16]

Ужас...


 
Егорычев Михаил   (2003-02-23 15:47) [17]

В Memo никак. Используй TrichEdit. SetAttributes.


 
Palladin   (2003-02-23 17:35) [18]


> Егорычев Михаил © (23.02.03 15:47)

то есть предыдущее мы не читаем, да? :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.008 c
3-16928
MAxiMum
2003-02-16 16:17
2003.03.06
Программное создание пользователя Interbase


3-16916
Arick
2003-02-15 22:31
2003.03.06
Документация для чайников


14-17291
SPeller
2003-02-11 19:47
2003.03.06
---|Ветка была без названия|---


3-16880
Кило
2003-02-18 11:28
2003.03.06
Как указать процедуре что она відает множество?


14-17368
Delph
2003-02-18 17:23
2003.03.06
Есть ли эмулятор лазерного принтера?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский