Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2011, 10:12   #1
mikutu
Новичок
Джуниор
 
Регистрация: 29.09.2010
Сообщений: 2
По умолчанию переносы в richedit

Мне нужно разобрать текст введеный в RXRichEdit (там могут быть кроме простого текста картинки и ссылки), возникла проблема с отделением мягких переносов (вставляемых richedit) от жестких, это нужно для того чтобы коректно выводить ссылки которые не вошли на одну строку.
Пробывал следующим образом,
Код:
...
if(s = SLineBreak) then begin // s - текущий символ
 jj := SendMessage(rxRichEdit3.Handle,EM_LINEINDEX, rxRichEdit3.LineFromChar(i),0); // i - номер текущего символа
 if(SendMessage(rxRichEdit3.Handle,EM_FINDWORDBREAK,WB_ISDELIMITER,jj-1) <> 0) then 
 ShowMessage('1');
end;
...
но ни чего не получилось, помогите.
через google по теме нашел только
http://forum.sources.ru/index.php?showtopic=318993
mikutu вне форума Ответить с цитированием
Старый 25.02.2011, 05:47   #2
mikutu
Новичок
Джуниор
 
Регистрация: 29.09.2010
Сообщений: 2
По умолчанию

Тема закрыта, уже сам решил вопрос.
Код:
//....
var
 s: String;
 jj: Integer;
 m_perenos: Boolean;
 buf: Array [0..4] of char;
 tr: TEXTRANGE;
begin
//...
 if(s = SLineBreak) then begin
  jj := SendMessage(RxRichEdit3.Handle,EM_LINEINDEX,rxRichEdit3.LineFromChar(i)+1,0);
  tr.chrg.cpMin:=jj-1;
  tr.chrg.cpMax:=jj;
  tr.lpstrText:=buf;
  m_perenos := ((SendMessage(RxRichEdit3.Handle,EM_GETTEXTRANGE,0,longint(@tr)) <> 0) AND (buf[0] <> #13) AND (buf[0] <> #10));
 end;
//...
end;
mikutu вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как удалить переносы в результате запроса в Oracle Sparkman SQL, базы данных 1 08.10.2010 05:23
VBA Переносы chugo Microsoft Office Word 8 01.07.2010 23:42
RICHEDIT @hr@dj Win Api 10 18.05.2010 15:45
Переносы Syltan Microsoft Office Word 1 03.12.2009 21:06
Вставка изображения с RichEdit в RichEdit Sensizu Компоненты Delphi 2 01.10.2009 18:11