Search found 14 matches

by tothpaul
Tue Oct 25, 2016 12:21 pm
Forum: Support
Topic: InsertRVFFromStreamEd vs InsertRVFFromStream
Replies: 2
Views: 5632

hum...text protection probably.

Thanks
by tothpaul
Tue Oct 25, 2016 7:32 am
Forum: Support
Topic: InsertRVFFromStreamEd vs InsertRVFFromStream
Replies: 2
Views: 5632

InsertRVFFromStreamEd vs InsertRVFFromStream

Hello, I have an application with portions of RVF in a database, I need to merge them in a RV. I've added two Helper for that procedure TCustomRichViewEditHelper.InsertField(Field: TField); var Blob: TStream; begin Format(); // required by InsertRVFFromStreamEd Blob := Field.DataSet.CreateBlobStream...
by tothpaul
Thu Oct 20, 2016 12:44 pm
Forum: Support
Topic: Print two A5 on a A4 paper
Replies: 3
Views: 6719

at least on my printer, now I have two A5 side by side instead of two overlapping A4 ;)
by tothpaul
Thu Oct 20, 2016 8:15 am
Forum: Support
Topic: Print two A5 on a A4 paper
Replies: 3
Views: 6719

that's insane !!!

do not use SetWorldTransform on a printer canvas

Code: Select all

//    SetWorldTransform(Handle, XFORM);
     ModifyWorldTransform(Handle, XFORM, MWT_IDENTITY); // Reset
     ModifyWorldTransform(Handle, XFORM, MWT_LEFTMULTIPLY); // Apply change
by tothpaul
Wed Oct 19, 2016 3:59 pm
Forum: Support
Topic: Print two A5 on a A4 paper
Replies: 3
Views: 6719

Print two A5 on a A4 paper

Hello, I've made a little change in TPrintableRV to support what I've called a "TwinMode", the call to Printer.NewPage is replaced by a call to TwinPage procedure TPrintableRV.TwinPage(PageNo: Integer); var XFORM: tagXFORM; begin if not TPrintableRVData(RVdata).TwinMode then begin if PageNo > 1 then...
by tothpaul
Mon Jul 06, 2015 2:41 pm
Forum: Support
Topic: TRVOleDropEffect rvdeCopy
Replies: 2
Views: 7539

ok, in fact the problem is elsewhere...

when I drag&drop a selection with a Bullet inside, it is duplicated and inserted at a wrong place.

I've tried the last release with XE8, in the Emoticons demo, if you drag&drop a emoticons, it is lost ! :roll:
by tothpaul
Fri Jun 05, 2015 3:56 pm
Forum: Support
Topic: TRVOleDropEffect rvdeCopy
Replies: 2
Views: 7539

TRVOleDropEffect rvdeCopy

Hello, I've tried to change de D&D behavior; in certain conditions I want the drop inside the same RV to be a copy/paste instead a cut/paste (like with the Ctrl key). the "var" parameter DropEffect: TRVOleDropEffect of OleDrop event seems a good candidate but it doesn't change anything. I've tried a...
by tothpaul
Tue May 26, 2015 8:10 am
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Ok, in fact, like the Note demo I use a Table inside a RichViewEdit to edit multiple informations in a single component. some cells are readonly, and when the use click on it, a popup let him change informations. For this cell I use AddNLTag() to bind the text with a DB ID some other cells are read-...
by tothpaul
Fri May 22, 2015 6:57 pm
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Hello, don't know if it's the easiest way but this works var ... RichView: TCustomRichViewEdit; Table : TCustomRVItemInfo; Row, Col: Integer; begin ... RVTag := LRVData.GetItemTag(LItemNo); if (RVTag = '') and (LRVData is TRVTableInplaceRVData) then begin if RichView1.GetCurrentItemEx(TRVTableItemIn...
by tothpaul
Fri May 22, 2015 5:08 pm
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Me again :) Everything work fine, but now I have to know on witch cell the user click. for the cells with text I've use AddNLTag() to put associate a Tag to the text. procedure TForm1.RichView1MouseUp(Sender: TCustomRichView; ...) var LRVData: TCustomRVFormattedData; LItemNo, LOffs: Integer; Pt : TP...
by tothpaul
Fri May 22, 2015 7:18 am
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Oh yes ! Thank you very much !
by tothpaul
Wed May 20, 2015 1:36 pm
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Thanks Sergey,

But I still have a bug...is it related to RV version 14.12.6 ?

Image

Image

AFAIK the RVStyles are lost and reset to default values...

you can find Unit1 and the inserted RVF on
http://www.execute.fr/RVF/
by tothpaul
Wed May 20, 2015 7:40 am
Forum: Support
Topic: Moved from "Examples Demos||Editing a list of foonotes&
Replies: 8
Views: 14829

Thanks Sergey, But now RVStyles make me crazy :( with this code I can build a table the way I want it procedure TForm1.Button1Click(Sender: TObject); var table: TRVTableItemInfo; line : Integer; cell : TRVTableCellData; begin rvs.TextStyles.Clear; with rvs.TextStyles.Add do begin FontName := 'Arial'...
by tothpaul
Fri Feb 06, 2015 10:48 am
Forum: Examples, Demos
Topic: [Demo] Editing a list of foonotes/endnotes
Replies: 4
Views: 28019

nice demo that is almost what I need, but is there any way to avoid the cursor to go outside the table ? let's add some notes, go to the editor, click on a note and start selecting text with Shift+RightArrow; when you reach the end of line the cursor leaves the cell and go to the right of the table :/