TRichView.com

Die Grafiken finde ich auch nicht mehr im Internet.

Inzwisch habe ich es über die IDE hinbekommen, alle Grafik- und formatierte Textstellen zu laden und anzuzeigen. Einige Grafiken werden aber mit einem roten X statt der Grafik angezeigt.
Vorher war es so, dass beim Ausführen aus der IDE das ...

Danke für den Hinweis. Habe ich gemacht.
Ich scheine aber das Glück zu haben immer die richtigen stellen auf einer Webseite zu markieren, so dass 'Fehler' auftreten:


memoImportPicture.docx

Die dazugehörige URL:
https://www.google.com/search?sca_esv=fd25005b0ac42467&rlz=1C1OZZY_deDE1216DE1216 ...

Ich habe dein Ereignis ".memoImportPicture(Sender: ...) ausgetauscht gegen

procedure TForm1.memoImportPicture(Sender: TCustomRichView;
const Location: TRVUnicodeString; Width, Height: Integer;
var Graphic: TGraphic);
var //Von Google KI-Modus, weil if RVGraphicHandler. unbekannt ist
Stream ...

zugeschickt als eMail, da die Ergebnis-Datei clipboard.html sich nicht anhängen ließ

Aus welcher Anwendung kopieren Sie das Dokument?

Meinen Sie den geposteten Code oder die Grafik?
Der Code ergab sich aus dem Dialog mit Googles KI-Modus.
Prompt:
1. Markiertes (Strg+c) aus einer Webseite ins Delphi 7 TDBRichViewEdit einfügen
2. Wenn Rückmeldung: Prompt: Markiertes enthält ...

Zum besseren Verständnis:

Es soll heißen:
Markiertes aus Webseiten direkt ins TDBVRichViewEdit kopieren

Beispiel siehe ganz unten

Mein Code sieht bisher so aus:

1.
unit xxx;
interface
uses
Windows, Messages, ...., jpeg,clipbrd, RVClipboard, RVFile, ...

2.
procedure TForm1. FormCreate ...

Ich möchte einen markierten Bereich (enthält formatierten Text und eine Grafik) über Strg+c kopieren und über Strg+v in mein TDBVRichViewEdit-Memo einfügen (ohne den Zwischenschritt über WORD gehen zu müssen).
Ich habe es mit KI so weit hinbekommen, dass der markierte Text mit den Schriftattributen ...

Ja . Die Zeile kann weg. Sie ist bei einem meiner 1. Versuche mit
GetNestingLevel(memo) und HasTable
im Code stehen geblieben und verfälschte das Ergebnis nicht. Daher habe ich sie wohl vergessen.

Jetzt, ohne die Zeile und mit rve.BeginItemModify usw., läuft die Option vielleicht noch sicherer ...

Danke Sergey. Deine Hinweise haben mir sehr geholfen.
Ich habe es mit4-fach verschachtelten Tabellen probiert. Einzelne, mehrere Zellen lassen sich jetzt fehlerfrei löschen.
Für den Fall, dass Jemand die durch deine Hilfe fertiggestellt Procedure haben will, kopiere ich sie (hoffentlich) letzmalig ...

Bild_2025-12-03_123746762.png

Wenn man in Tabelle 1 NICHT alle Zellen einer 'nested Tabelle markiert' und diese dann per Button (procedure TForm1.tbZeiDelClick(Se) löscht, erhält man das erwartete Ergebnis (Tabelle 2). Beachte in Tabelle 2, dass kein Zeichen bei Y (oberhalb der restlichen Tabelle ...

In der

procedure TForm1.tbZeiDelClick(Sender: TObject);

heißt es an der Stelle

if GetNestingLevel(memo)> 1 then begin

besser (sicherer)

if HasTable(rve.TopLevelEditor) then itemno:= 4;

Ich denke, ich habe das Problem gelöst.

procedure TForm1.sbTesten2Click(Sender: TObject);
var wahl, anz, itemNo: integer;
begin
if GetNestingLevel(memo)= 2 then begin
//if fVonVorn= false then begin
wahl:= 1; anz:= 1; //ItemNo:= 4;
fZeileEinfuegen:=TfZeileEinfuegen.Create(Application);
with ...

{
Tabellenzeile einfügen ---> geht in rve-Tabellen mit Ebene 1
Tabellenzeile löschen ----> habe ich hinbekommen (siehe weiter unten - nur 1 Code-Zeile)

Wie kann man die procedure tbZeiEinfgClick so ergänzen/ändern, dass sie auch auf nested tables (Ebene 2) macht?
}


procedure TForm1 ...

Danke!