подмена окна редактирования Sql запросов

altcore

Я пишу движок ADS для FR4. Для компоненты Query возникла необходимость заменить стандартное окно редактирования SQL запросов

-=Den=-

  TfrxADSSQLProperty = class(TfrxClassProperty)
  public
    function GetAttributes: TfrxPropertyAttributes; override;
    function Edit: Boolean; override;
  end;


function TfrxADSSQLProperty.Edit: Boolean;
begin
  with TfrxADSSQLEditorForm.Create(Designer) do
  begin
    Query := TfrxADSQuery(Component);
    Result := ShowModal = mrOk;
    if Result then
      Self.Designer.UpdateDataTree;
    Free;
  end;
end;

function TfrxADSSQLProperty.GetAttributes: TfrxPropertyAttributes;
begin
  Result := [paDialog, paReadOnly];
end;

initialization
  frxPropertyEditors.Register(TypeInfo(TStrings), TfrxADSQuery, 'SQL',
    TfrxADSSQLProperty);

Где: TfrxADSSQLEditorForm Ваша форма, TfrxADSQuery - сам ADS компонент.

altcore

Ага, большое спасибо, сегодня утром сам разобрался Ж-)
Подсмотрел в исходника FastReport'a

Nadya_rus

Здравствуйте!
Я ищу ADS (advantage) компонент для фаст-репорт4. Кто-нибудь написал или может подскажите где можно скачать?
Заранее спасибо,
Надежда

gpi

Есть для FR3:
http://rapidshare.com/files/410001215/Fast...x_Component.rar

Nadya_rus

gpi написал: »

Есть для FR3:
http://rapidshare.com/files/410001215/Fast...x_Component.rar

Ой, извините, сразу не уточнила, что я работаю в FR4 и ADS сервер 9 версии. Этот компонент для FR3, который вы указали, нельзя использовать в FR4 версии?
Может еще кто откликнется со ссылочкой для нужной мне версии?

Nadya_rus

Здравствуйте! Решила «поднять» ранее открытую тему. Повторю свой ранее заданный вопрос. Я работаю в FR4 и Advantage сервер 9-ой версии. Ищу ADS (advantage) компонент для фаст-репорт4. Кто-нибудь написал или может подскажите где можно скачать?
Заранее спасибо,
Надежда