Search found 2 matches

by yf321
Tue May 22, 2012 11:42 am
Forum: Support
Topic: SRichViewEdit OnPaint
Replies: 2
Views: 8869

in TForm3.AddEditor, add the line

Code: Select all

srve.OnPaint := ActiveEditorPaint;
it is OK,i got it,think you!
by yf321
Mon May 21, 2012 11:21 am
Forum: Support
Topic: SRichViewEdit OnPaint
Replies: 2
Views: 8869

SRichViewEdit OnPaint

in SRV demo's ActionTestTabs, open two or more rvf file, on SRVTabSet click someone tabitem, I try to get current tabitem's CurItemNo with CaretPos, and draw a line, use code by SRichViewEdit1.OnPaint event: procedure TForm3.ActiveEditorPaint(Sender: TSRichViewEdit; Canvas: TCanvas; Prepaint ...