VPF::RichEdit. Форматирован ли текст. - Форум программистов

Snowy

Дата 6.3.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Yanis, смотрел. Реагирует даже на смену руской/английской раскладки. Это уж слишком.

Quadr0

Дата 6.3.2006, 13:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:43

Дата 6.3.2006, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

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

Что сложно лишний чекбокс прикрутить куданить smile

.

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

Yanis

Дата 7.3.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Snowy @ 6.3.2006, 10:31

)

Yanis, смотрел. Реагирует даже на смену руской/английской раскладки. Это уж слишком.

Думаю эту проблему можно решить если вместо

Код


CompareMem(@cf1, @cf, SizeOf(cf))

написать свою функцию, которая будет проверять все поля кроме bCharSet структуры TCharFormat<2>.

--------------------

*щёлк*

Snowy

Дата 7.3.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Quadr0 @ 6.3.2006, 13:52

)

А чем же сравнение с эталоном не подходит?

Потому что остается копирование из буфера обмена. Текст, скопированный из вордпада уже не считается форматированным только потому, что шрифт другой.

Цитата(Quadr0 @ 6.3.2006, 13:52

)

Искать форматирование в тэгах беполезно в том виде, в котором мы получаем выходной текст. Это тебе придётся собственный парсёр rtf-а писать.

Это не так сложно. Я ж не текст разбираю, а ищу наличие тэгов. А это не намного сложней, чем с html.

Цитата(Quadr0 @ 6.3.2006, 13:52

)

Работает!

Проверь вставку из ворда.

Цитата(RAdmin @ 6.3.2006, 20:35

)

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

Это не хранение, это отправка по сети. В 95% долен отправляться plain text. RTF будет отправляться только, когда юзверь захочит разукрасить текст.
Наличие разукраски и будет этим флагом.
Зачем мне лепить чекбокс, который в интерфейс у меня просто не вписывается, когда можно сделать автодетект.
У меня везде в проекте автодетект, а тут я буду чекбоксы лепить. Некрасиво.

Ладно. Значит кроме этих двух идей других нет...

Тогда еще идея:
Пишем в вордпаде текст. Разные его части делаем разным размером, часть жирную, часть наклонную...
Выделяем весь текст. Смотрим на панель - кнопка жирности и наклона пригашены, в поле размера шрифта пусто. Это говорит о том, что в тексте есть разное оформление по размеру, жирности и наклону.
Только вот как такого эффекта добиться в своей программе?

Quadr0

Дата 7.3.2006, 22:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:46

Snowy

Дата 9.3.2006, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Quadr0 @ 7.3.2006, 22:31

)

Да ну, у меня всё нормально. Или я как-то не так тебя понял?

Я имею ввиду, что текст, скорированный из вордпада всегда считается форматированным, низависимо ни от чего.

Цитата(Quadr0 @ 7.3.2006, 22:31

)

Я уже говорил и по прежнему уверен, что у MS, у их контролла вордовского видимо немного другая реализация.

В Delphi используется тот же самый контрол.
RxRichEdit также построен на том же самом контроле, просто расширен функционал кода.
Реально у нас вовсе не 1.0. Просто юзать выше стандартно не можем, т.к. нет реализации.
Но на уровне WinAPI можно туда и картинки и таблицы вставлять.

Цитата(Quadr0 @ 7.3.2006, 22:31

)

Что там со вставкой?Набрал в Word 2003 текст, сделал часть курсивным, часть жирным, подчёркнутым, разным шрифтом и размером. Вставил, всё работало как и прежде.

Угу. А если не делать форматирование... Делай, не делай - все равно детектит, что есть.

Ну хоть какой-то результат есть в наличии.
Наконец-то дошли руки. Вот, доработал немножко:

Код

function IsRichFormated(RE: TRichEdit): boolean;
var
  i: integer;
begin
  result := false;
  Re.SelStart := 0;
  Re.DefAttributes.Assign(Re.SelAttributes);
  for i := 0 to Length(Re.Text) do
  begin
    Re.SelStart := i;
    if (Re.SelAttributes.Name  <> Re.DefAttributes.Name) or
       (Re.SelAttributes.Color <> Re.DefAttributes.Color) or
       (Re.SelAttributes.Size  <> Re.DefAttributes.Size) or
       (fsBold in Re.SelAttributes.Style) or
       (fsItalic in Re.SelAttributes.Style) or
       (fsUnderline in Re.SelAttributes.Style) or
       (fsStrikeOut in Re.SelAttributes.Style) or
       (Re.Paragraph.Numbering <> nsNone) or
       (Re.Paragraph.Alignment <> taLeftJustify) then
     begin
       result := true;
       Break;
     end;
  end;
end;

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

Бонус в этом топике уходит Quadr0

Присоединённый файл ( Кол-во скачиваний: 3 )

RTFDetect.zip 2,72 Kb

Yanis

Дата 10.3.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Snowy @ 9.3.2006, 16:41

)

Сдаётся мне, что мой варинт работает быстрее.

--------------------

*щёлк*

Snowy

Дата 10.3.2006, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Логично. Но не настолько, чтобы это было заметно.
А если в него добавить исключения, то больше заморочек.
А суть все та же.

Quadr0

Дата 11.3.2006, 20:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:47

Snowy

Дата 11.3.2006, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Quadr0 @ 11.3.2006, 20:06

)

Ты размер шрифта в 11 и имя на Arial не забыл поменять? Просто там по дефолту Times New Roman с 12 размером. Вот он и копируется.

в том-то и дело, что пользователь этого делать не будет.
Приоритет должен быть у plain text, а не у RTF.
Код, который я нарисовал, делает точно так, как мне нужно.
Уже его воткнул в проект. Работает без нареканий.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »