Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.
Комментарии
Даже самое простое почему то ругается.
Я делал по примеру.
Пришли код, может помогу.
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.
var
Bmp: TBitmap;
initialization
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(hInstance, 'FR_...');
frRegisterControl(Tfr..., Bmp, IntToStr('Добавить CLDS'));
finalization
frUnRegisterObject(Tfr...);
Bmp.Free;
Лень раньше родилася нас.