fix: non working "Insert row" actions and its friends

ansgarbecker · ansgarbecker · commit d1faf6b3617f · 2026-01-07T16:41:41.000+01:00
Broken through my wild rage over compiler messages in f1ac6dc Refs #2360
diff --git a/source/main.pas b/source/main.pas
@@ -5269,7 +5269,7 @@ procedure TMainForm.actDataInsertExecute(Sender: TObject);
     if (Sender = actDataDuplicateRowWithoutKeys) or (Sender = actDataDuplicateRowWithKeys) then
       DupeNode := Grid.FocusedNode;
     RowNum := Results.InsertRow;
-    NewNode := Grid.InsertNode(Grid.FocusedNode, amInsertAfter, @RowNum);
+    NewNode := Grid.InsertNode(Grid.FocusedNode, amInsertAfter, PInt64(RowNum));
     SelectNode(Grid, NewNode);
     if Assigned(DupeNode) then begin
       // Copy values from source row, ensure we have whole cell data
