From 25665746f65ef475126eedfcce6976dc0789bc35 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Fri, 18 Nov 2022 15:52:45 +0800
Subject: [PATCH] Update utslvclstdctl.tsf
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

按钮颜色修正
---
 funcext/tvclib/utslvclstdctl.tsf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index 6b369f7..e36b558 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -547,14 +547,14 @@ type tcustombtn = class(TCustomControl) //
         drawrc(dc,r,1);}
         paintfocus(dc,r);
         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);
         dc.pen.style := bps;
     end 
     private 
     function paintfocus(dc,r); //»æÖƽ¹µã
     begin
-        dc.pen.color := rgb(150,200,230);
+        dc.pen.color := 15124630;//rgb(150,200,230);
         dc.pen.width := 1;
         dc.pen.style := PS_SOLID;        
         drawrc(dc,r,1);