CustomForm: Register new properties also for designer so they remain in a form. Issue #30241, solution from Balázs Székely.

git-svn-id: trunk@58838 -

components/customform/custforms.pp

@@ -5,7 +5,11 @@ unit custforms;
 interface
 
 uses
-  Classes, SysUtils, Forms;
+  Classes, SysUtils, contnrs,
+  // LCL
+  Forms,
+  // IdeIntf
+  ProjectIntf, NewItemIntf, FormEditingIntf;
 
 Type
 
@@ -40,8 +44,6 @@ Procedure Register;
 
 implementation
 
-uses ProjectIntf,NewItemIntf,contnrs;
-
 Const
   SAppFrameWork = 'Custom forms';
   SInstanceOf   = 'Create a new instance of %s';
@@ -170,6 +172,7 @@ begin
     begin
     D:=TCustomFormDescr(CustomFormList[i]);
     RegisterProjectFileDescriptor(TCustomFormFileDescriptor.Create(D),D.Category);
+    FormEditingHook.RegisterDesignerBaseClass(D.FFormClass);
     end;
 end;
 

components/customform/demo/appform.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms;
-  
+
 Type
   TInitFormAt = (ifaShow,ifaCreate,ifaActivate);
   
@@ -53,8 +53,6 @@ Type
 
 implementation
 
-uses custforms;
-
 { TAppForm }
 
 procedure TAppForm.InitForm;

components/customform/demo/appforms.lpk

@@ -1,19 +1,20 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
-  <Package Version="2">
+  <Package Version="4">
     <Name Value="appforms"/>
+    <Type Value="RunAndDesignTime"/>
+    <AddToProjectUsesSection Value="True"/>
     <Author Value="Michael Van Canneyt"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="11"/>
       <SearchPaths>
-        <UnitOutputDirectory Value="lib/"/>
+        <UnitOutputDirectory Value="lib"/>
       </SearchPaths>
-      <CodeGeneration>
+      <Parsing>
-        <Generate Value="Faster"/>
+        <SyntaxOptions>
-      </CodeGeneration>
+          <UseAnsiStrings Value="False"/>
-      <Other>
+        </SyntaxOptions>
-        <CompilerPath Value="$(CompPath)"/>
+      </Parsing>
-      </Other>
     </CompilerOptions>
     <Description Value="Demo package which shows the use of the lazcustforms package.
 It registers 2 custom forms (TAppForm and TDBAppForm)"/>
@@ -30,10 +31,10 @@ It registers 2 custom forms (TAppForm and TDBAppForm)"/>
       </Item2>
       <Item3>
         <Filename Value="regappforms.pp"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="regappforms"/>
       </Item3>
     </Files>
-    <Type Value="RunAndDesignTime"/>
     <RequiredPkgs Count="4">
       <Item1>
         <PackageName Value="LCL"/>
@@ -54,7 +55,6 @@ It registers 2 custom forms (TAppForm and TDBAppForm)"/>
     </UsageOptions>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
     </PublishOptions>
   </Package>
 </CONFIG>

components/customform/demo/appforms.pas

@@ -14,6 +14,7 @@ implementation
 
 procedure Register;
 begin
+  RegisterUnit('regappforms', @regappforms.Register);
 end;
 
 initialization

components/customform/demo/dbappform.pas

@@ -31,10 +31,6 @@ Type
 
 implementation
 
-uses
-  custforms;
-  
-
 { TDBAppForm }
 
 procedure TDBAppForm.OpenAllDatasets;

components/customform/demo/regappforms.pp

@@ -5,22 +5,21 @@ unit regappforms;
 interface
 
 uses
-  Classes, SysUtils, appform, dbappform;
+  custforms, appform, dbappform;
 
-procedure RegisterAppForms;
+procedure Register;
 
 implementation
 
-uses custforms;
+procedure Register;
-
-procedure RegisterAppForms;
-
 begin
-  RegisterCustomForm(TAppForm,'AppForms');
+  ; // Do nothing. Custom forms are registered during initialization.
-  RegisterCustomForm(TDBAppForm,'AppForms');
+    // For some reason does not work if registered here.
 end;
 
 initialization
-  RegisterAppForms;
+  RegisterCustomForm(TAppForm,'AppForms');
+  RegisterCustomForm(TDBAppForm,'AppForms');
+
 end.