RichEdit

Onischenko Alexandr

В печатной форме необходим анализ текста (RichEdit.Lines.Text)

Просьба к авторам добавить следующий код в файле fr_rich.pas

procedure TfrRichView.DefineProperties;
begin
inherited DefineProperties;
AddProperty('GapX', [frdtInteger], nil);
AddProperty('GapY', [frdtInteger], nil);
AddProperty('Lines', [frdtHasEditor, frdtOneObject], RichEditor);
<span style='color:red'>AddProperty('RichText', [frdtString], nil);</span>
AddProperty('Stretched', [frdtBoolean], nil);
AddProperty('TextOnly', [frdtBoolean], nil);
AddProperty('DataField', [frdtOneObject, frdtHasEditor, frdtString], frFieldEditor);
end;

procedure TfrRichView.SetPropValue(Index: String; Value: Variant);
begin
inherited SetPropValue(Index, Value);
Index := AnsiUpperCase(Index);
if Index = 'TEXTONLY' then
Flags := (Flags and not flTextOnly) or Word(Boolean(Value)) * flTextOnly<span style='color:red'>;
if Index = 'RICHTEXT' then
RichEdit.Lines.Text := Value;</span>end;

function TfrRichView.GetPropValue(Index: String): Variant;
begin
Index := AnsiUpperCase(Index);
Result := inherited GetPropValue(Index);
if Result <> Null then Exit;
if Index = 'TEXTONLY' then
Result := (Flags and flTextOnly) <> 0<span style='color:red'>;
if Index = 'RICHTEXT' then
Result := RichEdit.Lines.Text;</span>end;