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

Update udesignerproject.tsf 

优化设计器
This commit is contained in:
JianjunLiu 2022-11-15 16:53:26 +08:00
parent e45feaf84e
commit 35e7ed4ea5
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
designer/udesignerproject.tsf
View File

@ -2554,7 +2554,7 @@ type tinheritedimput = class(TVCForm)
top=40 top=40
visible=true visible=true
width=274 width=274
onselectionchange=listselchanged onselchanged=listselchanged
end end
object btn1:tbtn object btn1:tbtn
caption="È¡Ïû" caption="È¡Ïû"
@ -2609,7 +2609,16 @@ type tinheritedimput = class(TVCForm)
idx := o.getCurrentSelection(); idx := o.getCurrentSelection();
if idx>=0 then if idx>=0 then
begin begin
edit1.text := o.getItemText(idx)+"1";
s := o.getItemText(idx);
n := 1;
while true do
begin
ns := s+inttostr(n);
if not(fns[ns]) then break;
n++;
end
edit1.text := ns;
end end
end end
function getinfo(); function getinfo();
@ -2619,6 +2628,7 @@ type tinheritedimput = class(TVCForm)
function setinfo(); function setinfo();
begin begin
ss := array(); ss := array();
fns := array();
if parent then if parent then
begin begin
tr := parent.tree; tr := parent.tree;
@ -2626,7 +2636,9 @@ type tinheritedimput = class(TVCForm)
tr.GetNodesBytype(fnds,array("form","panel")); tr.GetNodesBytype(fnds,array("form","panel"));
for i,v in fnds do for i,v in fnds do
begin begin
ss[i] := v.Fname; s := v.Fname;
ss[i] := s;
fns[s] := true;
end end
end end
listbox1.Items := ss; listbox1.Items := ss;
@ -2634,6 +2646,7 @@ type tinheritedimput = class(TVCForm)
end end
public //³ÉÔ±±äÁ¿ public //³ÉÔ±±äÁ¿
fnds; fnds;
fns;
label3; label3;
listbox1; listbox1;
btn1; btn1;