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

Update utslvclstdctl.tsf 

按钮颜色修正
This commit is contained in:
JianjunLiu 2022-11-18 15:52:45 +08:00
parent 95cbbf21fe
commit 25665746f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
funcext/tvclib/utslvclstdctl.tsf
View File

@ -547,14 +547,14 @@ type tcustombtn = class(TCustomControl) //
drawrc(dc,r,1);} drawrc(dc,r,1);}
paintfocus(dc,r); paintfocus(dc,r);
dc.pen.style := PS_DOT; dc.pen.style := PS_DOT;
dc.pen.color := 6440490;//rgb(170,220,250); dc.pen.color := 16440490;//rgb(170,220,250);
drawrc(dc,r,4); drawrc(dc,r,4);
dc.pen.style := bps; dc.pen.style := bps;
end end
private private
function paintfocus(dc,r); //绘制焦点 function paintfocus(dc,r); //绘制焦点
begin begin
dc.pen.color := rgb(150,200,230); dc.pen.color := 15124630;//rgb(150,200,230);
dc.pen.width := 1; dc.pen.width := 1;
dc.pen.style := PS_SOLID; dc.pen.style := PS_SOLID;
drawrc(dc,r,1); drawrc(dc,r,1);