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

gtk 

优化gtk消息处理
This commit is contained in:
tslediter 2023-12-15 15:33:14 +08:00
parent afdfe2e2f7
commit ff29e86b3b
2 changed files with 873 additions and 680 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/teditorform.tsf
View File

@ -1271,7 +1271,13 @@ type TBlockManager=class(TVCForm)
FEditer.EndModal(); FEditer.EndModal();
end end
FList.OnDblClick :=function(o,e)begin FList.OnDblClick :=function(o,e)begin
FEditer.caption := "Ð޸ĴúÂë¿é..."; if FList.SelectedId>=0 then
begin
FEditer.caption := "Ð޸ĴúÂë¿é...";
end else
begin
FEditer.caption := "Ìí¼Ó´úÂë¿é..."
end
FEditer.SetData(FList.SelectedValue); FEditer.SetData(FList.SelectedValue);
FEditer.showmodal(); FEditer.showmodal();
end end
@ -1327,7 +1333,6 @@ type TBlockManager=class(TVCForm)
if v[1] and v[2] and v[3] then r[ri++] := array("prefix":v[0],"caption":v[1],"value":v[2],"valueext":v[3]); if v[1] and v[2] and v[3] then r[ri++] := array("prefix":v[0],"caption":v[1],"value":v[2],"valueext":v[3]);
end end
r union2= array(); r union2= array();
return r; return r;
end end
function SetData(d); function SetData(d);

1544
funcext/tvclib/ugtkinterface.tsf
View File

File diff suppressed because it is too large Load Diff