Moin,
Hab folgendes Problem:
Der Inhalt des RichEdit/RTF darf nicht kopiert werden können. Dafür gibts ja das feine 'with MateriaRTF.SelAttributes do Protected := true;' oder die Einstellung 'onSelectionchange' im ObjectInspector.
Ich wills temporär auf false setzen, lasse Schlagworte suchen (rot markieren) und dann soll er wieder protected werden. Aber das wird er nicht!
Setze ichs im ObjectInspector auf true, dann temporär auf false, lasse Schlagworte suchen und setze es wieder auf false - dann kann ic den Text trotzdem kpopieren. Aber das darf nicht.
Was mache ich falsch, wenn ich die Sperre vorrübergehend aufheben will
Delphi-Quellcode:
procedure TForm_1.Such_Box_1ButtonClick(Sender: TObject);
var
reh: TRichEditHelper; // (der von Luckie)
sl: TStringList;
begin
if trim(Such_Box_1.text) <> '' then begin
with M_RTF.SelAttributes do Protected := false; // temporär entsperren
M_RTF.ReadOnly := false;
reh := TRichEditHelper.Create(M_RTF);
sl := TStringList.Create;
try
sl.Add(trim(Such_Box_1.text));
if Suche_exact.Checked = true then
reh.HighlightWordsNonExact(sl, [fsBold], clRed)
else
reh.HighlightWords(sl, [fsBold], clRed);
M_RTF.SelStart := 0;
finally
FreeAndNil(sl);
FreeAndNil(reh);
end;
end;
M_RTF.ReadOnly := true;
with M_RTF.SelAttributes do Protected := true; // und wieder sperren
end;
Frage - Kann man trotz protected irgendwie highlighten/markieren