Проблемка FastScript+FastReport

отредактировано 09:21 Раздел: FastScript
Видимо разработчики не пробовали подключать FastScript и FastReport к одному проекту. В пакетах используются схожие модули fs_synmemo и fr_synmemo, в которых совпадают идентификаторы SynMemoSearch и TSynMemoSearch, что и порождает указанную проблему.
На скорую руку я просто переименовал идентификаторы (см.ниже), но, полагаю, что авторы внесут нужные изменения наилучшим образом.
Кстати, вместо Form.Free - Form.Release, оно вроде получше будет;-)

unit fs_synmemo;
...
// форму переименовать в ObjectInspector'e
TfsSynMemoSearch = class(TForm)
...
var
fsSynMemoSearch: TfsSynMemoSearch;
...
procedure TfsSyntaxMemo.KeyDown(var Key: Word; Shift: TShiftState);
...
if Key = 70 then // Ctrl+F Search
begin
fsSynMemoSearch := TfsSynMemoSearch.Create(nil);
if fsSynMemoSearch.ShowModal = mrOk then
Find(fsSynMemoSearch.Edit1.Text);
LastSearch := fsSynMemoSearch.Edit1.Text;
fsSynMemoSearch.Free;
end
...
procedure TfsSynMemoSearch.FormKeyPress(Sender: TObject; var Key: Char);

Комментарии

  • отредактировано 09:21
    В FS1.3 вроде поправили.
  • отредактировано 09:21
    Спасибо! Вот как полезно следить за обновлениями, точнее обновлять обновления:-)

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.