TRichView.com

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 ...

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 ...

Thanks for your help.

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 ...

Thank you very much for your effort.

Unfortunately, I must have expressed myself incorrectly.

Your solution corresponds to mine.

I need 2 steps to get the 'cross':

1. Click in wanted cell
2. Click at 'sbTabZeilefaerben' button to run code.
Result: The 'cross' is created as posted by you.

It's ...

First Thanks.

The example in
TRichView\Demos\DelphiUnicode\Assorted\Graphics\DragImg\
is dragging a TImage to TRichViewEdit.
This does not fit my circumstances.

I want to have a row and column that intersect in the focused cell.

Does really nobody know what a solution could look like, if you click in a rveTabelle (rve: RichViewEdit) to get the 'cross' - in the intersection of which the focused cell is located?

My solution requires 2 steps:
1. Click on the cell
2. Click the switch '.sbTabZeilefaerbenClick'.

Hello,

my code for marking the whole table row and the whole table column of a focused table cell works as long as I put the code into a panel (.sbTabZeilefaerbenClick (Sender: TObject)).

But if I set it in .memoRVDblClick (Sender: TCustomRichView; ClickedWord: TRVUnicodeString; Style: Integer) I ...

Thank you.

This runs now without border lines

procedure TForm1.FokusierteZelleMarkierenClick(Sender: TObject);
var RVData: TCustomRVData; //uses CRVData, CRVFData,
yNc: Integer;
begin
if Memo.GetItemStyle(memo.CurItemNo)=rvsTable then begin
RVData := rveTable.Cells[0,0];
RVData := RVData.Edit ...

How can I mark the content of a 1-cell table (with all attributes) and place it in the clipboard (can be done with Ctrl + c)?

Subsequently, the content of the clipboard should be inserted again in another 1-cell table (can be done with Ctrl + v).

My experiments always show that in the 'other 1 ...

Is there any way to know if memo has focus?

Thank you for your efforts.

I will try my solution.
So that not every record-change determines the number of images, I have added a button to allow to count images or not
Only in a few memos are a large number of pictures.

Jürgen


procedure TForm1.memoEnter(Sender: TObject);
var i,picZae ...

Trials confirmed the assumption that the number of images in the memo is responsible for the delay.

procedure TForm1.MemoEnter (Sender: TObject);
var i, picZae: integer;
begin
// ...

for i: = 0 to Memo.ItemCount-1 do
if Memo.GetItemStyle (i) = rvsPicture then inc (picZae);
pStatusbar.Caption ...

In other words, you can't do anything against the delay until first letter appears ?

Your hint wasn'tsuccessful. Everything as usual.

Here my .dpr:

program mHilfe;

uses
Forms,
unit1_mh in 'unit1_mh.pas' {Form1},
RVGrCache;



{$R *.RES}

begin
RichViewMaxPictureCount := 100000;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

By the ...