TRichView.com

procedure TForm1. memoKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); ... begin ... if (ssCtrl in Shift) and (ssShift in Shift) then begin //Strg+Shift+key ... end else if (ssShift in Shift) then begin //Shift+key ... end else if (ssCtrl in Shift) and (ssShift in Shift) then begin //St...

That works, BUT cursor is beneath table and not at the end of text which was marked before. Therefore I add in procedure TForm1.WMMyCommand rveTable.xxx procedure TForm1.WMMyCommand(var Msg: TMessage); begin rveTable.GetEditedCell(rveTzeile1,rveTspalte1); memo.Deselect; rveTable.EditCell(rveTzeile1,...

Thank you, Sergey. >>create a menu item with Ctrl+F4 and Ctrl+F10 shortcuts. //do you mean AND and not OR ? All trials don’t memo.deselect. Can you tell me what I have to write? procedure TForm1.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); … begin … Memo.ApplyStyleConversion(rv_B...

Memo.ApplyStyleConversion(rv_BackCOLOR);
if memo.GetCurrentItemEx(TRVTableItemInfo, rve, TCustomRVItemInfo(rveTable)) then key:= vk_right
else memo.deselect;

to deselect memo about key:= vk_right (or another key) is not the right way.

Do you know another way ?

Thank you. All runs.

I only have to remove "memo.deselect"

I deselect memo about key:= vk_right --> Caret jumps to next cell

Now I am looking for a key which deselect memo but remains at the position.

I want to mark a text with backcolor clYellow All is ok if text is in memo, but only if text is in a rveTable I get an error-hint. After closing error-window progam runs without error. procedure TForm1.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); { var r,c,rs,cs: Integer; Cell: T...

[quote="Sergey Tkachenko"]Something like this. Thank you. But when I use your solution, I must deactivate the red lines below (Undefinierter Bezeichner: 'rvsLabel' [Hinweis] unit1_mh.pas(1230): Das private-Symbol 'HySuchen_Memo) Why ? Best regards j&b ... function DescribeCurrentItem(r...

Hello, I want to get all infos at the position of caret (which is in a memo or in a “memo-table”). This was created under Vista, Delphi 7.1 and TDBRichViewEdit v13.9 Who can complete or finish or correct the following code ? procedure TForm1.sbTesten1Click(Sender: TObject); var fi: TFontInfo; schrSc...

Oddly enough are "memo.canChange and memo.Change" (for working with "TDBRichViewEdit") are written to "officeSpeichern" instead to "officeLaden". Sorry. Here are the corrected procedures. procedure TForm1.officeLaden(wahl: integer); var r: Boolean; begin pb.Vi...

I hope that's what you mean. Perhaps someone find a better way as "unit uDatTyp" on a new Form procedure TForm1.btnOpenClick(Sender: TObject); begin Open; end; procedure TForm1.Open; var fEinfuegen: boolean; i,wahl: integer; dateityp, filename: string; begin //if query1.state in [dsEdit, d...

I have found that many users do not publish the solution of their question. That's a shame, because I think that the last article should be the solution of a question.. Therefore, I present MY solution for my question to all those who are interested. In the meantime, I have had a "Saure Gurkenz...

Sergey Tkachenko wrote:Sorry, I do not understand the question

A joke (Scherz)

'Falls du mal nicht weißt was du machen sollst ...'
oder 'Solltest du mal "Saure Gurkenzeit haben"...' (http://de.wikipedia.org/wiki/Sauregurkenzeit)

... dann würde die Erweiterung (.doc to .rvf) dein Programm weiter abrunden.

Probably, you can use OLE automation (TWordApplication, TWordDocument) to save a document to a temporal RTF file (or the Clipboard) and then import it in TRichView. But I do not have an example, sorry. Thank you for your answere. If you do not know what time you should: Would that no be a further r...

Is there a way to load DIRECTLY WinWord Documents to rvEditor[br][br] Background:[br] The rvf files are very much smaller than Word files. This property I would like to use to archive Word files[br][br] I do not want[br] to load a DOC-file with Winword[br] save it by Winword as RTF file and[br] load...

Yes, the general idea is while memo.SearchText(fid.FindText, [rvseoDown]) do Memo.ApplyStyleConversion(rv_COLOR); + implementation of rv_COLOR in memo.OnStyleConversion. As for the rest of your code, I do not understand it. If you explain what you want to implement, I'll try to suggest a simple sol...