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

编辑器 

优化
This commit is contained in:
JianjunLiu 2023-05-08 10:02:04 +08:00
parent cbeee269d4
commit bffdec23d9
2 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
designer/utslcodeeditor.tsf
View File

@ -5624,23 +5624,23 @@ type TListPages=class(TListBox)
Visible := false;
WsPopUp := true;
end
function PaintIdx(idx,rc_,cvs);override;
begin
{**
@explan(说明)绘制项 %%
@param(item)(TCustomListItem) 项 %%
@param(rc)(array) 绘制区域%%
@param(cvs)(tcanvas) 画布 %%
**}
inherited;
if idx=getCurrentSelection()then
begin
rc := rc_;
rc[2:3]-= 1;
cvs.pen.Color := rgb(30,144,255);
cvs.draw("Polyline",array(rc[0:1],(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),rc[0:1]));
end
end
// function PaintIdx(idx,rc_,cvs);override;
// begin
// {**
// @explan(说明)绘制项 %%
// @param(item)(TCustomListItem) 项 %%
// @param(rc)(array) 绘制区域%%
// @param(cvs)(tcanvas) 画布 %%
// **}
// inherited;
// if idx=getCurrentSelection()then
// begin
// rc := rc_;
// rc[2:3]-= 1;
// cvs.pen.Color := rgb(30,144,255);
// cvs.draw("Polyline",array(rc[0:1],(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),rc[0:1]));
// end
// end
function MouseUp(o,e);override;
begin
inherited;
@ -5676,7 +5676,7 @@ type TListPages=class(TListBox)
function GetSelFileName();
begin
r := GetItem(getCurrentSelection());
if pos("*",r)then
if r and pos("*",r)then
begin
return r[2:];
end

2
funcext/tvclib/tgraphiccontrol.tsf
View File

@ -146,7 +146,7 @@ type tgraphiccontrol = class(TControl)
return 1;
end
end
function CMCursorChanged(var Message:TLMessage):CM_CURSORCHANGED;override;
function CMCursorChanged(o:tgraphiccontrol;var Message:TLMessage):CM_CURSORCHANGED;override;
begin
inherited;
end