Update utslcodeeditor.tsf

优化图标
This commit is contained in:
JianjunLiu
2022-11-17 16:40:24 +08:00
parent 7341149080
commit 888ec1c7d9
+2 -3
View File
@@ -165,11 +165,10 @@ type TPage=class(TCustomControl) //
begin
if FItemIndex=i then //选中
begin
//dc.Brush.Color := rgb(244,205,205);
dc.Brush.Color := 0xFa901E;
end else
begin
dc.Brush.Color := rgb(238,238,228) //rgb(244,244,244);
dc.Brush.Color := 0xe4eeee;
end
dc.draw("roundrect",array(rc[0:1],rc[2:3],array(5,5)));
if it.BitmapB then
@@ -494,7 +493,7 @@ type TPage=class(TCustomControl) //
for i := 0 to FPageitems.Length()-1 do
begin
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
begin
li++;