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