Search found 189 matches

by j&b
Thu Dec 04, 2025 5:51 pm
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

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 ...
by j&b
Wed Dec 03, 2025 5:11 pm
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table - Endfassung (hoffentlich)

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 ...
by j&b
Wed Dec 03, 2025 11:54 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table2

Image
Nested Tables2.png
Nested Tables2.png (8.56 KiB) Viewed 301 times
by j&b
Wed Dec 03, 2025 11:39 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

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 ...
by j&b
Tue Dec 02, 2025 4:01 pm
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

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;
by j&b
Tue Dec 02, 2025 9:40 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

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 ...
by j&b
Mon Dec 01, 2025 11:42 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table - Zeile einfügen

{
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 ...
by j&b
Sun Nov 30, 2025 8:53 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

Danke! :D :idea:
by j&b
Sat Nov 29, 2025 5:09 pm
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

Ich habe doch noch eine eine Situation vergessen:
Gibt es eine Funktion "In dieser Zelle liegt eine andere Tabelle", wenn man in der (großen) Tabelle (-b- ist fokusiert) eine entsprechende Funktion (wie z.B. GetNestingLevel) aufruft?
Bild_2025-11-29_180243408.png
Bild_2025-11-29_180243408.png (2.39 KiB) Viewed 408 times
by j&b
Sat Nov 29, 2025 9:54 am
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Re: Nested Table

Danke Sergey. Mein Problem ist damit gelöst.

Ein anderes Problem habe ich schon seit Jahren:
Wie lädt man ein Bild in dieses Formular?
Ich weiß http://bild_url .
Aber welche URL ist gemeint?
Die von einer meiner Cloud oder eine bestimmtes Verzeichnis auf deiner Webseite?
Wenn es eine URL von meiner ...
by j&b
Fri Nov 28, 2025 6:29 pm
Forum: Support
Topic: Nested Table
Replies: 16
Views: 550

Nested Table


Welche URL muss man denn nehmen?


Hello Sergey,
es geht um nested table. Ich möchte gern die Ebene der Tabellen wissen.

Ich habe 1 Tabelle (A) mit 4 Zeilen und 3 Spalten.
In dieser Tabelle (A) habe ich in einer Zelle (3;2) eine weitere Tabelle (B) mit 5 Zeilen und 2 Spalten.

Nun möchte ich ...
by j&b
Tue May 28, 2024 11:57 am
Forum: Support
Topic: Show a column by scrolling
Replies: 1
Views: 29716

Re: Show a column by scrolling

I think I have found a solution.
I only had to insert the option ‘sbHscrollClick(Self);’ twice.

If you know a ‘better’ solution, please write.
I also found the procedure ‘Scroll2selection’ by Sergey. However, I still can't get it to work with my code.
(At the end of my procedure, which copies the ...
by j&b
Mon May 27, 2024 11:52 am
Forum: Support
Topic: Show a column by scrolling
Replies: 1
Views: 29716

Show a column by scrolling

Hello,
I am working with Delphi 7.1 and tRichView v21.3.

I have a table in a memo that extends over the right border of the memo.
In the visible area of the memo are the first 20 (of 40 table) columns.
Now I would like to jump to the 30th column via a switch ('Which column should be jumped to ...
by j&b
Tue Dec 24, 2019 8:52 am
Forum: Support
Topic: Marking the whole table row and the whole table column of a focused table cell
Replies: 10
Views: 47901

Re: Marking the whole table row and the whole table column of a focused table cell

Sorry, sorry, sorry.

Your solution is different and works perfectly. I tried your example without looking into the code enough because I saw the 'Highlight' button.
I had double-clicked in a cell, but in anticipation I forgot that I had to do Shift + double-click.
Sorry again for my hasty feedback ...