liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

更正一个函数名
This commit is contained in:
JianjunLiu 2022-10-13 16:03:19 +08:00
parent 526e4343a1
commit 5cc38d594c
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
funcext/tvclib/utslmemo.tsf
View File

@ -810,7 +810,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
function PluginsAfterPaint(cvs,rcDraw,FirstLine,LastLine);
begin
end
function PaintTextLines(RC,FirstLine,LastLine,FirstCol,LastCol);virtual;
function PaintTextLines(RC,FirstLine,LastLine,FirstCol,LastCol);//virtual;
begin
cvs := Canvas;
iy := 0;
@ -830,10 +830,13 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
iy++;
r[3]:= r[1]+fTextHeight;
if i+1=fCaretY then
begin
if Color<>fcurrentLineColor then
begin
cvs.Brush.Color := fcurrentLineColor;//rgb(232,232,255);
cvs.FillRect(r);
end
end
if bb then
begin
if i >= bb[0]-1 and i <= ee[0]-1 then
@ -864,7 +867,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
end
end
end
PaintLiensText(RC,FirstLine,LastLine,FirstCol,LastCol);
paintlinestext(RC,FirstLine,LastLine,FirstCol,LastCol);
end
function DrawLongString(cvs,dtx,tl,r,rnzf);
begin
@ -909,7 +912,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
ft.charset := bn;
end
end
function PaintLiensText(RC,FirstLine,LastLine,FirstCol,LastCol);virtual;
function paintlinestext(RC,FirstLine,LastLine,FirstCol,LastCol);virtual;
begin
cvs := canvas;
cvs.font := font;
@ -3690,7 +3693,7 @@ type TSynCustomMemo = class(TCustomMemo)
end
inherited;
end
function PaintLiensText(RC, FirstLine, LastLine, FirstCol, LastCol); override;
function paintlinestext(RC, FirstLine, LastLine, FirstCol, LastCol); override;
begin
if not Highlighter then return inherited;
cvs := canvas;
@ -3725,7 +3728,6 @@ type TSynCustomMemo = class(TCustomMemo)
end
end
crect := ClientRect;
//crect := ClientRect;
rnzf := integer(crect[2]/cw)+20;
//***************************************************************************************
for i := FirstLine to LastLine do