lcl: don't use initialization section with resources in extdlgs, include resources only if calculator panel is used.

git-svn-id: trunk@23638 -

.gitattributes

@@ -4093,7 +4093,6 @@ lcl/dynhasharray.pp svneol=native#text/pascal
 lcl/dynqueue.pas svneol=native#text/pascal
 lcl/editbtn.pas svneol=native#text/pascal
 lcl/extctrls.pp svneol=native#text/pascal
-lcl/extdlgs.lrs svneol=native#text/pascal
 lcl/extdlgs.pas svneol=native#text/pascal
 lcl/extendedstrings.pas svneol=native#text/pascal
 lcl/extgraphics.pas svneol=native#text/pascal
@@ -4806,6 +4805,7 @@ lcl/lazconfigstorage.pas svneol=native#text/pascal
 lcl/lazhelphtml.pas svneol=native#text/pascal
 lcl/lazhelpintf.pas svneol=native#text/pascal
 lcl/lazlinkedlist.pas svneol=native#text/pascal
+lcl/lcl_calc_images.lrs svneol=native#text/pascal
 lcl/lcl_dbgrid_images.lrs svneol=native#text/pascal
 lcl/lcl_dbnav_images.lrs svneol=native#text/pascal
 lcl/lcl_dock_images.lrs svneol=native#text/pascal

lcl/extdlgs.pas

@@ -601,6 +601,7 @@ type
   protected
     procedure ErrorBeep;
     procedure TextChange; virtual;
+    class procedure WSRegisterClass; override;
   public
     constructor CreateLayout(AOwner: TComponent; ALayout: TCalculatorLayout);
     procedure CalcKeyPress(Sender: TObject; var Key: char);
@@ -703,6 +704,15 @@ begin
     FOnTextChange(Self);
 end;
 
+class procedure TCalculatorPanel.WSRegisterClass;
+begin
+  inherited WSRegisterClass;
+  if RegisterCalculatorPanel then
+  begin
+    {$i lcl_calc_images.lrs}
+  end;
+end;
+
 procedure TCalculatorPanel.ErrorBeep;
 
 begin
@@ -1318,8 +1328,4 @@ begin
   FreeAndNil(DF);
 end;
 
-
-initialization
-{$i extdlgs.lrs}
-
 end.

lcl/widgetset/wsextdlgs.pp

@@ -105,6 +105,7 @@ type
   procedure RegisterSavePictureDialog;
   procedure RegisterCalculatorDialog;
   procedure RegisterCalculatorForm;
+  function RegisterCalculatorPanel: Boolean;
   //procedure RegisterCalendarDialogForm;
   procedure RegisterCalendarDialog;
 
@@ -178,6 +179,17 @@ begin
   Done := True;
 end;
 
+function RegisterCalculatorPanel: Boolean;
+const
+  Done: Boolean = False;
+begin
+  Result := False;
+  if Done then exit;
+  // WSRegisterCalculatorPanel;
+  Done := True;
+  Result := True;
+end;
+
 (*procedure RegisterCalendarDialogForm;
 const
   Done: Boolean = False;