From d2794ef22e10e7a6ec7b2b561ea94bcd4e154204 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Fri, 24 Mar 2023 17:43:04 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

优化combox细节
---
 designer/utslcodeeditor.tsf      | 2 +-
 funcext/tvclib/utslvclstdctl.tsf | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf
index 5f31501..f9fdc1c 100644
--- a/designer/utslcodeeditor.tsf
+++ b/designer/utslcodeeditor.tsf
@@ -4858,7 +4858,7 @@ type tfincodemap = class(tcustomcontrol)
         inherited;
         Visible := false;
         FTempNodes := array();
-        Width := 230;        
+        Width := 300;        
         Ftimer := new TTimer(self);
         Ftimer.Interval := 200;
         Ftimer.Ontimer := thisfunction(BdownTimeOut);
diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index 4b9bcb0..ad86bc1 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -4269,6 +4269,13 @@ type TcustomComboBox=class(TCustomComboBoxbase)
             ShowDropDown(false);
             CallMessgeFunction(OnSelchanged,self(true),e);
         end
+        FEdit.onmousedown := function(o,e)begin
+            if Freadonly then 
+            begin
+                e.skip := true;
+                ShowDropDown(true);
+            end 
+        end 
         FEdit.Readonly := Freadonly;
         FListBox.parent := self;
         FEdit.parent := self;