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