diff --git a/components/nicegrid/demos/Basic Demo/Project_Lazarus/basic_demo.lpi b/components/nicegrid/demos/Basic Demo/Project_Lazarus/basic_demo.lpi
index 0e611bc80..15a05ad1c 100644
--- a/components/nicegrid/demos/Basic Demo/Project_Lazarus/basic_demo.lpi
+++ b/components/nicegrid/demos/Basic Demo/Project_Lazarus/basic_demo.lpi
@@ -33,7 +33,7 @@
-
+
@@ -95,16 +95,24 @@
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
+
@@ -117,6 +125,61 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/nicegrid/source/nicegrid.pas b/components/nicegrid/source/nicegrid.pas
index cdf7a7354..0f4dc6f62 100644
--- a/components/nicegrid/source/nicegrid.pas
+++ b/components/nicegrid/source/nicegrid.pas
@@ -397,6 +397,7 @@ type
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
+ procedure Loaded; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
@@ -822,6 +823,8 @@ var
end;
begin
+ if csLoading in ComponentState then
+ exit;
BuildMergeData;
@@ -2289,6 +2292,12 @@ begin
end;
+procedure TNiceGrid.Loaded;
+begin
+ inherited;
+ Recalculate;
+end;
+
procedure TNiceGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var