LCL: Allow overriding resource loading in TCustomForm. Issue #20358, patch from Anton Kavalenka.

git-svn-id: trunk@50911 -

lcl/forms.pp

@@ -557,6 +557,7 @@ type
     procedure SetAutoScroll(Value: Boolean); override;
     procedure DoAddActionList(List: TCustomActionList);
     procedure DoRemoveActionList(List: TCustomActionList);
+    procedure ProcessResource;virtual;
   protected
     // drag and dock
     procedure BeginAutoDrag; override;

lcl/include/customform.inc

@@ -1966,12 +1966,7 @@ begin
     begin
       Include(FFormState, fsCreating);
       try
-        if not InitResourceComponent(Self, TForm) then
+         ProcessResource;
-          if RequireDerivedFormResource then
-            raise EResNotFound.CreateFmt(
-              rsFormResourceSNotFoundForResourcelessFormsCreateNew, [ClassName])
-          else
-            DebugLn(Format(rsFormResourceSNotFoundForResourcelessFormsCreateNew, [ClassName]));
       finally
         Exclude(FFormState, fsCreating);
       end;
@@ -1981,6 +1976,16 @@ begin
   end;
 end;
 
+procedure TCustomForm.ProcessResource;
+begin
+  if not InitResourceComponent(Self, TForm) then
+  if RequireDerivedFormResource then
+    raise EResNotFound.CreateFmt(
+      rsFormResourceSNotFoundForResourcelessFormsCreateNew, [ClassName])
+  else
+    DebugLn(Format(rsFormResourceSNotFoundForResourcelessFormsCreateNew, [ClassName]));
+end;
+
 {------------------------------------------------------------------------------
   constructor TCustomForm.CreateNew(AOwner: TComponent; Num : Integer);
 ------------------------------------------------------------------------------}