как загрузить файл в RICH
Как сделать сайбж
во второй версии дело решалось редактирование функции в fr_rich.pas
А где запилить в 3-й версии?
в скрипте просто писалось Rich1.Memo:=[richfilename]
//Fixed procedure
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
else
if Index = 'MEMO' then
begin
try
RichEdit.Lines.LoadFromFile(Value);
except
end;
end;
end;
во второй версии дело решалось редактирование функции в fr_rich.pas
А где запилить в 3-й версии?
в скрипте просто писалось Rich1.Memo:=[richfilename]
//Fixed procedure
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
else
if Index = 'MEMO' then
begin
try
RichEdit.Lines.LoadFromFile(Value);
except
end;
end;
end;
Комментарии