Цитата(Quadr0 @ 7.3.2006, 22:31  ) | | Да ну, у меня всё нормально. Или я как-то не так тебя понял? |
| Цитата(Quadr0 @ 7.3.2006, 22:31 ) | | Я уже говорил и по прежнему уверен, что у MS, у их контролла вордовского видимо немного другая реализация. |
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 |
способа: