设计器

修改属性输出方式

designer/udesignerproject.tsf

@@ -421,10 +421,10 @@ type TProjectView = class(TVCForm) //
         FSetMainMenu.caption := "设置为主窗口";
         FSetMainMenu.bitmap := bmps["主窗口"];
         FSetMainMenu.OnClick := thisfunction(SetAsMainWind);
-        FSetEntryMenu := new TMenu(self);
-        FSetEntryMenu.Caption := "设置为入口脚本";
-        FSetEntryMenu.bitmap := bmps["入口"];
-        FSetEntryMenu.OnClick := thisfunction(SetAsMainWind);
+        //FSetEntryMenu := new TMenu(self);
+        //FSetEntryMenu.Caption := "设置为入口脚本";
+        //FSetEntryMenu.bitmap := bmps["入口"];
+        //FSetEntryMenu.OnClick := thisfunction(SetAsMainWind);
         FDelMenu := new TPopUpMenu(self);
         FDelMenu.bitmap := EditToolBmps["删除"];
         FDelMenu.Caption := "删除";
@@ -574,11 +574,11 @@ type TProjectView = class(TVCForm) //
                     FSetMainMenu.parent := nil;
                     //FAddMenu.visible := false;   
                 end
-                if(it.FType="tsl")and(it.FName <> FExecEntry)and(it.FPath()="")then
+                {if(it.FType="tsl")and(it.FName <> FExecEntry)and(it.FPath()="")then
                 begin
                     FSetEntryMenu.parent := FTreePopUpMenu;
                 end else
-                FSetEntryMenu.parent := nil;
+                FSetEntryMenu.parent := nil;}
                 if((it.FType="form")and(it.FName <> FMainForm))or(it.FType="tsl")and(it.FName <> FExecEntry)or(it.FType="tsf")or(it.FType="panel") {or((it.FType = "dir") and it.parent<>FTree.RootNode)}then
                 begin
                     FRenameMenu.parent := FTreePopUpMenu;
@@ -1823,7 +1823,7 @@ end
     FTreeTool;
     //设置主窗口
     FSetMainMenu;
-    FSetEntryMenu;
+    //FSetEntryMenu;
     //删除菜单
     FDelMenu;
     //********************

designer/utslvcldcomponents.tsf

@@ -1282,10 +1282,6 @@ type TDFileWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TOpenFileADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetOpenFileBitmapInfo();
@@ -1301,10 +1297,6 @@ type TDFileSaveWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TSavefileADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetSaveFileBitmapInfo();
@@ -1321,10 +1313,6 @@ type TDColorChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TColorChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetColorChooseBitmapInfo();
@@ -1340,10 +1328,6 @@ type TDFontChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TFontChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetFontChooseBitmapInfo();
@@ -1359,10 +1343,6 @@ type TDFolderChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TFolderChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetFolderChooseBitmapInfo();
@@ -3050,10 +3030,6 @@ type TDMessageboxWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TMessageboxADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetMessageBoxBitmapInfo();