Компонент Richmemo

[*Rik*]

r3916

Вроде работает.
TDBRichMemo нет в планах изготовить?

[скалогрыз]

TDBRichMemo нет в планах изготовить?

у меня нет, а вот у других - да

[скалогрыз]

под шумок добавил поддержку "inline" объектов для gtk2 (r3920). Пример "inline" должен работать, так же как и на винде.
Да - утечки, но шаг в нужном направлении - создание гламурных кроссплатформенных чатов и документаций на LCL основе... хотя до HTMLView не дотянуть в виду "естественной" ограниченности "нативных" едиторов.

[*Rik*]

скалогрыз
Сделай пример, как в RichMemo стиль текста менять..

[скалогрыз]

Сделай пример, как в RichMemo стиль текста менять..

так пойдёт

Код: Выделить всё

procedure ChangeParam(rm: TRichMemo; fs: TFontStyle);
var
  fp   : TFontParams;
begin
  rm.GetTextAttributes(rm.SelStart, fp);
  if fs in fp.Style then
    rm.SetRangeParams(rm.SelStart, rm.SelLength, [tmm_Styles], '', 0, clNone, [], [fs])
  else
    rm.SetRangeParams(rm.SelStart, rm.SelLength, [tmm_Styles], '', 0, clNone, [fs], []);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeParam(RichMemo1, fsBold);
end;


?
(полный проект в аттачменте)

после r4064 можно и старым добрым делфи способом

Код: Выделить всё

uses ... RichMemoHelpers;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if fsBold in RichMemo1.SelAttributes.Style then begin
    RichMemo1.SelAttributes.Style:=RichMemo1.SelAttributes.Style-[fsBold]
  end else
    RichMemo1.SelAttributes.Style:=RichMemo1.SelAttributes.Style+[fsBold];
end;



[*Rik*]

после r4064 можно и старым добрым делфи способом

r4064 уже доступна?

[скалогрыз]

да, конечно, через svn.
r4064 нужна чтобы "делфийский" способ работал при убирании стиля текста. Если не использовать делфи подоход, то использовать r4064 не обязательно.

Добавлено спустя 4 минуты 54 секунды:
совет: проверь Project -> View Project Source
если в его uses секции обнаружится richmemopackage - то его можно смело из этой самой uses секции убрать
Должно благотворно сказаться на итоговом размере бинарика.

[Xenar]

День добрый
После обновления компонента до текущей ревизии обнаружил два неприятных момента

1) При удалении визуального компонента с формы, Lazarus падает (начиная с ревизии 3910)
2) Начиная с ревизии 4040 при использовании в проекте DbGrid и конструкции типа

Код: Выделить всё

DBGrid1.Columns[i].Title.Alignment:=[b]taCenter[/b];

taCenter почему то начинает "искать себя" в модуле richmemo в 94 строке

TTabAlignment = (taHead, taCenter, taTail, taDecimal, taWordBar);

(Интересно что taRightJustify и taLeftJustify "обращаются" в правильный модуль, такая фигня только с taCenter)

соответственно получаем ошибку

Код: Выделить всё

Error: Incompatible type for arg no. 1: Got "TTabAlignment", expected "TAlignment"

Ubuntu 14.04 x32 Lazarus 1.4 fpc 2.6.4

[скалогрыз]

1) При удалении визуального компонента с формы, Lazarus падает (начиная с ревизии 3910)

винды или линуксы?

Добавлено спустя 5 минут 6 секунд:

2) Начиная с ревизии 4040 при использовании в проекте DbGrid и конструкции типа

r4140 исправляет сие недоразумение. RichMemo более не переобьявляет taCenter (переименовано в tabCenter)

[Xenar]

1) При удалении визуального компонента с формы, Lazarus падает (начиная с ревизии 3910)

винды или линуксы?

(внизу сообщения)
Ubuntu 14.04 x32 Lazarus 1.4 fpc 2.6.4

[скалогрыз]

(внизу сообщения)
Ubuntu 14.04 x32 Lazarus 1.4 fpc 2.6.4

call stack (backtrace) бы?!

Добавлено спустя 7 часов 57 минут 7 секунд:

1) При удалении визуального компонента с формы, Lazarus падает (начиная с ревизии 3910)

хех. Везде свои тонкости - r4142. проблемы более быть не должно.

[Xenar]

Все нормально за исключением в gtk2richmemo в строке 1159

Код: Выделить всё

AStopList.Tabs[i].Align:=taLeft;

а должно быть

Код: Выделить всё

AStopList.Tabs[i].Align:=tabLeft;

так кажется

[alexs]

Все нормально за исключением в gtk2richmemo в строке 1159

Я по этому поводу уже и в багтрекер запостил

http://bugs.freepascal.org/view.php?id=28130

[скалогрыз]

r4143

[woodhead]

Здравствуйте.
А есть ли возможность с помощью RichMemo программно добавлять таблицу в документ rtf и редактировать в ней данные?