界面库

优化combox细节

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);

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;