Page 1 of 1

dualeditor for Srichviewedit

Posted: Wed Jan 07, 2009 7:29 am
by sr1111
1-how can I implant this procedure to Srichviewedit and without externalRvStyle

and RVStyle1DrawParaBack = ? (where write events) for Srichviewedit.


2-is there dual editor a example for Srichviewedit


procedure TForm1.RVStyle1DrawParaBack(Sender: TRVStyle; Canvas: TCanvas;
ParaNo: Integer; ARect: TRect; var DoDefault: Boolean);
var i, j: Integer;
MakeRed: Boolean;
begin
i := Sender.ItemNo;
if Sender.RVData=RichViewEdit1.RVData then
if FocusedEditor = RichViewEdit1 then
j := RichViewEdit1.CurItemNo
else
j := HltItemNo1
else
if FocusedEditor = RichViewEdit2 then
j := RichViewEdit2.CurItemNo
else
j := HltItemNo2;
repeat
MakeRed := i=j;
if MakeRed then
break;
dec(i);
until TCustomRVData(Sender.RVData).IsFromNewLine(i+1);
if MakeRed then begin
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := $CCCCFF;
Canvas.FillRect(ARect);
end;
end;

Posted: Sat Jan 10, 2009 8:38 pm
by proxy3d
In SRichViewEdit it is possible to use internal RVStyle ("public" property SRichViewEdit. RVStyle) or external ExternalRVStyle.

If you do not wish to use ExternalRVStyle, you need:

Code: Select all

SRichViewEdit.RVStyle.OnDrawParaBack := RVStyle1DrawParaBack; 

Posted: Mon Jan 12, 2009 6:11 am
by sr1111
thanks but I dont applied to srichviewedit and I dont it run

could you cretae a example for Srichviewedit dualeditor

Posted: Tue Jan 13, 2009 2:44 am
by proxy3d
Give me your Email, I will send you an example.

Posted: Fri Jan 16, 2009 3:00 am
by sr1111
my mail:[email protected]

I am waiting...

Posted: Sat Jan 17, 2009 10:31 am
by proxy3d
Excuse me for a delay, I have sent you an example.

Posted: Sun Jan 18, 2009 3:12 am
by sr1111
thanks very good

serkand