From 7f58e8db1a5a9290c0bec48dc023c71a7a9d84d7 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Tue, 8 Aug 2023 16:19:41 +0800
Subject: [PATCH] Update tcomponent.tsf
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

设计器属性读取
---
 funcext/tvclib/tcomponent.tsf | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/funcext/tvclib/tcomponent.tsf b/funcext/tvclib/tcomponent.tsf
index de65bca..9c30506 100644
--- a/funcext/tvclib/tcomponent.tsf
+++ b/funcext/tvclib/tcomponent.tsf
@@ -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;