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

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?'). Ho...

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

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

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

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

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: integer; be...

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

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 way Is there a fun...