TClientDataSet - MIDAS

lvi

Нужна компонета TfrClientDataSet к FastReport для доступа из дизайнера

don

А в чем собственно дело, примеры есть, руки есть.

lvi

У меня чего то не получается , я хочу сделать не ввиде постоянного компонента , а тока в данном приложении , могу набросать.
Даже самое простое почему то ругается.

Я делал по примеру.

don

Как ругается?
Пришли код, может помогу.

lvi

unit FR_CDS;

interface

{$I FR.inc}

uses
FR_Class, DB, DBClient, FR_DBSet;


type
TfrCDSDataset = class(TfrNonVisualControl)
protected
FDataSet: TCustomClientDataSet;
FDataSource: TDataSource;
FDBDataSet: TfrDBDataset;
public
constructor Create; override;
destructor Destroy; override;
end;

TfrClientDataSet = class(TfrCDSDataSet)
private
FClientDataSet: TClientDataSet;
public
constructor Create; override;
end;

implementation

{ TfrCDSDataset }

constructor TfrCDSDataset.Create;
begin
inherited Create;
FDataSource := TDataSource.Create(frDialogForm);
FDataSource.DataSet := nil;
FDBDataSet := TfrDBDataSet.Create(frDialogForm);
FDBDataSet.DataSource := FDataSource;
Flags := Flags or flDontUndo;
end;

destructor TfrCDSDataset.Destroy;
begin
FDBDataset.Free;
FDataSource.Free;
FDataSet.Free;
inherited Destroy;
end;

{ TfrClientDataSet }

constructor TfrClientDataSet.Create;
begin
inherited Create;
FClientDataSet:= TClientDataSet.Create(frDialogForm);
FDataSet := FClientDataSet;
FDataSource.DataSet := FDataSet;
Component := FClientDataSet;
BaseName := 'Table';
Bmp.LoadFromResourceName(hInstance, 'FR_CDS');
end;

initialization
frRegisterControl(TfrClientDataSet,nil,'frClientDataSet');

finalization
frUnRegisterObject(TfrClientDataSet);

end.

lvi

Дой своё мыло или асю если есть

don

Bmp надо объявить и создать:

var
Bmp: TBitmap;

initialization
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(hInstance, 'FR_...');
frRegisterControl(Tfr..., Bmp, IntToStr('Добавить CLDS'));

finalization
frUnRegisterObject(Tfr...);
Bmp.Free;

lvi

Это не помогает

lvi

Всё заработало - ок - ты меня заставил разобраться - СПАСИБО

Лень раньше родилася нас.