Проблемка FastScript+FastReport
Видимо разработчики не пробовали подключать 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);
На скорую руку я просто переименовал идентификаторы (см.ниже), но, полагаю, что авторы внесут нужные изменения наилучшим образом.
Кстати, вместо 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);
Комментарии