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