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

Update utslcodeeditor.tsf 

优化图标
This commit is contained in:
JianjunLiu 2022-11-17 16:40:24 +08:00
parent 7341149080
commit 888ec1c7d9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/utslcodeeditor.tsf
View File

@ -165,11 +165,10 @@ type TPage=class(TCustomControl) //
begin begin
if FItemIndex=i then //Ñ¡ÖÐ if FItemIndex=i then //Ñ¡ÖÐ
begin begin
//dc.Brush.Color := rgb(244,205,205);
dc.Brush.Color := 0xFa901E; dc.Brush.Color := 0xFa901E;
end else end else
begin begin
dc.Brush.Color := rgb(238,238,228) //rgb(244,244,244); dc.Brush.Color := 0xe4eeee;
end end
dc.draw("roundrect",array(rc[0:1],rc[2:3],array(5,5))); dc.draw("roundrect",array(rc[0:1],rc[2:3],array(5,5)));
if it.BitmapB then if it.BitmapB then
@ -494,7 +493,7 @@ type TPage=class(TCustomControl) //
for i := 0 to FPageitems.Length()-1 do for i := 0 to FPageitems.Length()-1 do
begin begin
it := FPageitems[i]; it := FPageitems[i];
itwidth := length(it.Caption) * cw+40; itwidth := length(it.Caption) * cw+50;
if xct>0 and(r[2]-(FCloseBtn?20:0))<x+itwidth then if xct>0 and(r[2]-(FCloseBtn?20:0))<x+itwidth then
begin begin
li++; li++;