Changeset 33

Timestamp:

Jun 29, 2024, 8:04:24 AM (6 months ago)

Author:

chronos

Message:

• Fixed: Load main form settings before form translation.

Location:

trunk

Files:

• Core.pas (modified) (3 diffs)
• Forms/UFormField.lrj (deleted)

trunk/Core.pas

@@ -68 +68 @@
   Preferences := TPreferences.Create;
 
+  LoadConfig;
+
   TFormEx.ScaleDPI := ScaleDPI1;
   TFormEx.Translator := Translator1;
@@ -136 +138 @@
 begin
   for I := 0 to DbManager.DataTypes.Count - 1 do begin
-    TDataType(DbManager.DataTypes[I]).Title := Translator1.TranslateText(TDataType(DbManager.DataTypes[I]).Title, TDataType(DbManager.DataTypes[I]).Title);
+    DbManager.DataTypes[I].Title := Translator1.TranslateText(DbManager.DataTypes[I].Title, DbManager.DataTypes[I].Title);
   end;
 end;
@@ -197 +199 @@
     {$ENDIF}
     Initialized := True;
-    LoadConfig;
     UpdateInterface;
     if Preferences.RememberDatabase then begin