Category Archives: TRichView

Delphi. TRichView. Замена текста на текст и контрола на текст

Posted on 06.08.2017 by Stanislav_Panteleev

Понадобилось, было не очевидно, решил записать Способ №1 – на примере замены текста на таг итема (взято отсюда)

procedure TTestReportConstructor.ReplaceItemToTag(RVData: TCustomRVData; const OldText, NewText: String);
var  i,r,c: Integer;
     table: TRVTableItemInfo;
     s:string; //TRVRawByteString;
begin
for i := 0 to RVData.Items.Count-1 do
  if RVData.GetItemStyle(i)>=0 then begin // this is a text item
    s := RVData.GetItemText(i); //RVData.Items[i];
    // call your function for replacing OldText with NewText in s here
    if s=OldText then s:=NewText;
    RVData.SetItemText(i,s);
    //RVData.Items[i] := s;
    end
  else if RVData.GetItemStyle(i)=rvsTable then begin
    table := TRVTableItemInfo(RVData.GetItem(i));
    for r := 0 to table.Rows.Count-1 do
      for c := 0 to table.Rows[r].Count-1 do
        if table.Cells[r,c]<>nil then
          ReplaceItemToTag(table.Cells[r,c].GetRVData, OldText, NewText);
    table.Changed;
  end;
end;

procedure TTestReportConstructor.ReplaceItemToTag(RVData: TCustomRVData; const OldText, NewText: String);

var i,r,c: Integer;

table: TRVTableItemInfo;

s:string; //TRVRawByteString;

begin

for i := 0 to RVData.Items.Count-1 do

if RVData.GetItemStyle(i)>=0 then begin // this is a text item

s := RVData.GetItemText(i); //RVData.Items[i];

// call your function for replacing OldText with NewText in s here

if s=OldText then s:=NewText;

RVData.SetItemText(i,s);

//RVData.Items[i] := s;

end

else if RVData.GetItemStyle(i)=rvsTable then begin

table := TRVTableItemInfo(RVData.GetItem(i));

for r := 0 to table.Rows.Count-1 do

for c := 0 to table.Rows[r].Count-1 do

if table.Cells[r,c]<>nil then

ReplaceItemToTag(table.Cells[r,c].GetRVData, OldText, NewText);

table.Changed;

end;

Применение, пусть текст задан так [R]Что-то[/R], а в этом итеме “Какой-то таг”, тогда пройтись по всем итемам и заменить текст на … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Как добавить изображение и сохранить его в базе в нормальном HTML формате?

Posted on 31.08.2016 by Stanislav_Panteleev

В прошлом посте мы сохраняли в базу контент в HTML формате, но проблема была в том, что программа c TRichView копировала изображение в некую директорию и прописывала пути относительно неё. Оно и записывалось и читалось корректно, но в пределах одного … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Как добавить изображение и сохранить его в базе ?

Posted on 30.08.2016 by Stanislav_Panteleev

Разрабатываю небольшой компонент – текстовый редактор DBTextEditor, для своей программы . В базе данные будут храниться в HTML формате в обычном текстовом поле. У меня MySQL, я использую TEXT поле. Изображения будут храниться рядом с EXE – в отдельной папке … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

Posted on 05.06.2016 by Stanislav_Panteleev

На примере SrichViewEdit (ScaleRichViewEdit)

uses ... RVGrHandler ...
...
    gr:=TGraphic.Create;
    gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);
...

    SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

    with SRichViewEdit1.ActiveEditor do
      begin
      BeginUpdate;

       TopLevelEditor.BeginUndoGroup(rvutInsert);
       TopLevelEditor.SetUndoGroupMode(True);

        if  InsertPicture('', gr, rvvaBaseline)
          then begin
          SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);
          SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);
          end;

          TopLevelEditor.SetUndoGroupMode(False);
          EndUpdate;

      end;
...

uses ... RVGrHandler ...

...

gr:=TGraphic.Create;

gr := RVGraphicHandler.LoadFromFile(fMediaLoader_Inherited.LastUploaded.FilePath);

...

SRichViewEdit1.ConvertToPixels;// Измерять будем в пикселях

with SRichViewEdit1.ActiveEditor do

begin

BeginUpdate;

TopLevelEditor.BeginUndoGroup(rvutInsert);

TopLevelEditor.SetUndoGroupMode(True);

if InsertPicture('', gr, rvvaBaseline)

then begin

SetCurrentItemExtraIntProperty(rvepImageWidth, 200, True);

SetCurrentItemExtraIntProperty(rvepImageHeight, 300, True);

end;

TopLevelEditor.SetUndoGroupMode(False);

EndUpdate;

end;

...

Posted in Delphi, TRichView | Comments Off

Delphi.TRichView. Как сохранить контрол в поток данных и прочитать его оттуда?

Posted on 04.06.2016 by Stanislav_Panteleev

Рассмотрим на примере TWindowsMediaPlayer. Тут всё достаточно просто. Сохранять будем в поток, в дальнейшем этот поток можно передать в Blobstream и далее в базу, Для корректного чтения из потока нужно выполнить процедуру RegisterClass, чтобы TRichView понимал что это такое. В … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi.TrichView. Вставка HTML текста и отображение его в браузере

Posted on 31.05.2016 by Stanislav_Panteleev

Мне нужно научиться вставлять HTML текст в TRichViewEdit, так чтобы потом он корректно отображался в браузере. Подробную инструкцию о том как этого добиться, я увидел здесь. В сущности, нужно следующее

Posted in Delphi, TRichView | Comments Off

Delphi.TRichView. Работа с анимированными Gif изображениями

Posted on 31.05.2016 by Stanislav_Panteleev

С “полпинка” не завелось, пришлось лезть в документацию TRichView. Если воспользоваться TRichViewActions по добавлению картинок, то gif формат там присутствует, но если загрузить анимированное gif изображение, то оно не движется. Мне пришлось решать 2 задачи

Posted in Delphi, TRichView | Comments Off

Delphi.TRichView. Таблицы. Работа с колонками и рядами

Posted on 31.05.2016 by Stanislav_Panteleev

Работу с колонками и рядами я “запрятал” в контекстное меню следующим образом… При выделении таблицы или её части и нажатии на правую клавишу мыши выпадает вот такое меню, позволяющее работать с колонками и рядами таблицы.

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. TRichViewActions. Добавление таблицы. Изменение её свойств

Posted on 31.05.2016 by Stanislav_Panteleev

В данном посте мы научимся вставлять таблицы, используя TRichViewActions, редактировать их, добавлять колонки, ряды и удалять их. Будет представлен подход, совмещающий дизайнтайм и рантайм. Я уже писал про добавление таблиц в TRichViewEditor, там был пример вставки таблицы программно, с заданием … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Идентификаторы итемов

Posted on 30.05.2016 by Stanislav_Panteleev

Если, например, выделить таблицу и написать вот такой код,

...
ShowMessage(richviewEdit1.GetCurrentItem.StyleNo.ToString());
...

...

ShowMessage(richviewEdit1.GetCurrentItem.StyleNo.ToString());

...

то получим следующий результат А всё дело в том, что каждый итем в TrichView обладает своим идентификатором. Код, который был написан выше позволяет определить этот идентификатор и сказать, например, таблица … Continue reading →

Posted in Delphi, TRichView | Comments Off

Category Archives: TRichView

Delphi. TRichView. Замена текста на текст и контрола на текст

Delphi. TRichView. Как добавить изображение и сохранить его в базе в нормальном HTML формате?

Delphi. TRichView. Как добавить изображение и сохранить его в базе ?

Delphi. TRichView. Как вставить картинку и программно изменить её размеры в документе?

Delphi.TRichView. Как сохранить контрол в поток данных и прочитать его оттуда?

Delphi.TrichView. Вставка HTML текста и отображение его в браузере

Delphi.TRichView. Работа с анимированными Gif изображениями

Delphi.TRichView. Таблицы. Работа с колонками и рядами

Delphi. TRichView. TRichViewActions. Добавление таблицы. Изменение её свойств

Delphi. TRichView. Идентификаторы итемов

MY PROJECTS

Recent Posts

Categories