feat: prevent editing contents of generated columns in data grid

ansgarbecker · ansgarbecker · commit fa73114c092d · 2026-03-16T17:13:59.000+01:00
Refs #462
diff --git a/source/main.pas b/source/main.pas
@@ -10995,13 +10995,24 @@ procedure TMainForm.AnyGridKeyDown(Sender: TObject; var Key: Word; Shift: TShift
 
 procedure TMainForm.AnyGridEditing(Sender: TBaseVirtualTree; Node:
     PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
+var
+  ColInfo: TTableColumn;
 begin
   Allowed := False;
   try
     if not AnyGridEnsureFullRow(Sender as TVirtualStringTree, Node) then
       ErrorDialog(_('Could not load full row data.'))
     else begin
       Allowed := True;
+      if Sender = DataGrid then begin
+        ColInfo := SelectedTableColumns.FindByName(Sender.Header.Columns[Column].Text);
+        if Assigned(ColInfo) then begin
+          Allowed := ColInfo.GenerationExpression.IsEmpty;
+          if not Allowed then
+            ErrorDialog(f_('Column %s is defined as generated. You cannot edit its content.', [Column.ToString]));
+        end;
+      end;
+
       // Move Esc shortcut from "Cancel row editing" to "Cancel cell editing"
       actDataCancelChanges.ShortCut := 0;
       actDataPostChanges.ShortCut := 0;
