feat: support some keywords like CURRENT_TIMESTAMP in SQLite default value drop-down

Refs #2517

Author: ansgarbecker

source/dbconnection.pas

@@ -631,6 +631,7 @@   TDBConnection = class(TComponent)
       function Has(Item: TFeatureOrRequirement): Boolean;
       property SqlProvider: TSqlProvider read FSqlProvider;
       property NamedEnums: TStringList read FNamedEnums;
+      procedure GetColumnDefaultExpressions(Items: TStrings); virtual;
     published
       property Active: Boolean read FActive write SetActive default False;
       property Database: String read FDatabase write SetDatabase;
@@ -772,6 +773,7 @@   TSQLiteConnection = class(TDBConnection)
       function GetTableColumns(Table: TDBObject): TTableColumnList; override;
       function GetTableKeys(Table: TDBObject): TTableKeyList; override;
       function GetTableForeignKeys(Table: TDBObject): TForeignKeyList; override;
+      procedure GetColumnDefaultExpressions(Items: TStrings); override;
   end;
 
   TInterbaseRawResults = Array of TFDQuery;
@@ -6655,6 +6657,14 @@ function TInterbaseConnection.GetTableForeignKeys(Table: TDBObject): TForeignKey
   ForeignQuery.Free;
 end;
 
+procedure TSQLiteConnection.GetColumnDefaultExpressions(Items: TStrings);
+begin
+  // Add some extra default values allowed for SQLite
+  inherited;
+  Items.Add('CURRENT_TIME');
+  Items.Add('CURRENT_DATE');
+  Items.Add('CURRENT_TIMESTAMP');
+end;
 
 function TDBConnection.GetTableCheckConstraints(Table: TDBObject): TCheckConstraintList;
 var
@@ -6759,12 +6769,23 @@ function TDBConnection.Has(Item: TFeatureOrRequirement): Boolean;
         frInvisibleColumns: Result := (FParameters.IsMariaDB and (ServerVersionInt >= 100303)) or
           (FParameters.IsMySQL(True) and (ServerVersionInt >= 80023));
         frCompressedColumns: Result := (FParameters.IsMariaDB and (ServerVersionInt >= 100301));
+        else Result := False;
       end;
     else Result := False;
   end;
 end;
 
 
+procedure TDBConnection.GetColumnDefaultExpressions(Items: TStrings);
+var
+  SQLFunc: TSQLFunction;
+begin
+  for SQLFunc in SQLFunctions do begin
+    Items.Add(SQLFunc.Name + SQLFunc.Declaration);
+  end;
+end;
+
+
 function TDBConnection.GetRowCount(Obj: TDBObject; ForceExact: Boolean=False): Int64;
 var
   Rows, QueryApprox, QueryExact: String;

source/grideditlinks.pas

@@ -1354,9 +1354,7 @@ constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit:
   FExpressionEdit.Width := FExpressionEdit.Parent.Width - 2*FExpressionEdit.Left;
   FExpressionEdit.OnChange := EditChange;
   FExpressionEdit.DropDownCount := 20;
-  for SQLFunc in FTableColumn.Connection.SQLFunctions do begin
-    FExpressionEdit.Items.Add(SQLFunc.Name + SQLFunc.Declaration);
-  end;
+  FTableColumn.Connection.GetColumnDefaultExpressions(FExpressionEdit.Items);
 
   FlblOnUpdate := TLabel.Create(FPanel);
   FlblOnUpdate.Parent := FPanel;
@@ -1372,9 +1370,7 @@ constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit:
   FOnUpdateEdit.Width := FOnUpdateEdit.Parent.Width - 2*FOnUpdateEdit.Left;
   FOnUpdateEdit.OnChange := EditChange;
   FOnUpdateEdit.DropDownCount := 20;
-  for SQLFunc in FTableColumn.Connection.SQLFunctions do begin
-    FOnUpdateEdit.Items.Add(SQLFunc.Name + SQLFunc.Declaration);
-  end;
+  FTableColumn.Connection.GetColumnDefaultExpressions(FOnUpdateEdit.Items);
 
   FRadioAutoInc := TAllKeysRadioButton.Create(FPanel);
   FRadioAutoInc.Parent := FPanel;