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

界面库 

优化combox细节
This commit is contained in:
JianjunLiu 2023-03-24 17:43:04 +08:00
parent 03d73ebec9
commit d2794ef22e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/utslcodeeditor.tsf
View File

@ -4858,7 +4858,7 @@ type tfincodemap = class(tcustomcontrol)
inherited; inherited;
Visible := false; Visible := false;
FTempNodes := array(); FTempNodes := array();
Width := 230; Width := 300;
Ftimer := new TTimer(self); Ftimer := new TTimer(self);
Ftimer.Interval := 200; Ftimer.Interval := 200;
Ftimer.Ontimer := thisfunction(BdownTimeOut); Ftimer.Ontimer := thisfunction(BdownTimeOut);

7
funcext/tvclib/utslvclstdctl.tsf
View File

@ -4269,6 +4269,13 @@ type TcustomComboBox=class(TCustomComboBoxbase)
ShowDropDown(false); ShowDropDown(false);
CallMessgeFunction(OnSelchanged,self(true),e); CallMessgeFunction(OnSelchanged,self(true),e);
end end
FEdit.onmousedown := function(o,e)begin
if Freadonly then
begin
e.skip := true;
ShowDropDown(true);
end
end
FEdit.Readonly := Freadonly; FEdit.Readonly := Freadonly;
FListBox.parent := self; FListBox.parent := self;
FEdit.parent := self; FEdit.parent := self;