fix: reveal default text value of SQLite columns

Refs #2518

Author: ansgarbecker

source/dbconnection.pas

@@ -6077,6 +6077,10 @@ function TSQLiteConnection.GetTableColumns(Table: TDBObject): TTableColumnList;
     Col.AllowNull := ColQuery.Col('notnull') <> '1';
     Col.DefaultType := cdtNothing;
     Col.DefaultText := '';
+    if not ColQuery.Col('dflt_value').IsEmpty then begin
+      Col.DefaultType := cdtText;
+      Col.DefaultText := ColQuery.Col('dflt_value').DeQuotedString(FStringQuoteChar);
+    end;
     Col.OnUpdateType := cdtNothing;
     Col.OnUpdateText := '';
     case StrToIntDef(ColQuery.Col('hidden'), 0) of