From 973fd3dfe31c19440899f2436908fe2fe4b1f458 Mon Sep 17 00:00:00 2001
From: artem <megabyte1024@ya.ru>
Date: Sun, 26 Jun 2022 12:31:01 +0300
Subject: [PATCH] Fix for create date gets lost

---
 nonvisualctrlsdm.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/nonvisualctrlsdm.pas b/nonvisualctrlsdm.pas
index e9d3baf..f357b42 100644
--- a/nonvisualctrlsdm.pas
+++ b/nonvisualctrlsdm.pas
@@ -238,6 +238,8 @@ procedure TNonVisualCtrlsDataModule.EditTaskActionExecute(Sender: TObject);
     Edit;
     if TaskEditForm.ShowModal = mrOK then
     begin
+      FieldByName('created').AsDateTime :=
+          TTask.GetById(FieldByName('id').AsInteger).Created; // Fix for date gets lost
       FieldByName('modified').AsDateTime := Now;
       Post;
       ApplyUpdates;