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

Update tcomponent.tsf 

设计器属性读取
This commit is contained in:
JianjunLiu 2023-08-08 16:19:41 +08:00
parent 1b9d50c5a4
commit 7f58e8db1a
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
funcext/tvclib/tcomponent.tsf
View File

@ -556,7 +556,17 @@ public //
begin
r[n]:= otype.FormatEdit(FVariableProperties[n],v["write"]?true:false);
end else
r[n]:= otype.FormatEdit(invoke(self(true),n),v["write"]?true:false);
begin
///////////////////20230808处理避免问题不一致///////////visibe,enabled,wspopup//////////////////////////
vv := FChangedProperties[n];
if ifnil(vv) then
begin
r[n]:= otype.FormatEdit(invoke(self(true),n),v["write"]?true:false);
end else
begin
r[n]:=otype.FormatEdit(vv,v["write"]?true:false);;
end
end
end
end
//次序处理
@ -658,7 +668,10 @@ public //
iv := otype.UnformatEdit(v); //反转换
if FChangedProperties[n]=vi then continue; //没有改变
SetChangedPublish(n,iv,pp); //保存
if n="visible" or n="wspopup" or n="enabled" then return 1; // 屏蔽几个属性
if n="visible" or n="wspopup" or n="enabled" then
begin
return 1; // 屏蔽几个属性
end
if vit="eventhandler" then //分类保存
begin
FEventsProperties[n]:= iv;