Changeset 11 for trunk/UCore.pas

Timestamp:

Feb 16, 2015, 10:42:24 PM (10 years ago)

Author:

chronos

Message:

• Added: Czech translation for most of interface texts.
• Fixed: Creation of new table fields.
• Fixed: Saving XML database on exit.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -25 +25 @@
     procedure AExitExecute(Sender: TObject);
     procedure APreferencesExecute(Sender: TObject);
+    procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -57 +58 @@
 {$R *.lfm}
 
+resourcestring
+  STypeString = 'String';
+  STypeInteger = 'Integer';
+  STypeFloat = 'Float';
+  STypeBoolean = 'Boolean';
+  STypeMapPosition = 'Map position';
+  STypeImage = 'Image';
+  STypeDate = 'Date';
+  STypeTime = 'Time';
+  STypeDateTime = 'Date and time';
+
 { TCore }
 
@@ -69 +81 @@
 procedure TCore.AExitExecute(Sender: TObject);
 begin
-  FormTables.Close;
+  FormMain.Close;
 end;
 
@@ -89 +101 @@
   if FormPreferences.ShowModal = mrOk then begin
     FormPreferences.Save(Preferences);
+  end;
+end;
+
+procedure TCore.CoolTranslator1Translate(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to DataTypes.Count - 1 do begin
+    TDataType(DataTypes[I]).Name := CoolTranslator1.TranslateText(TDataType(DataTypes[I]).Name, TDataType(DataTypes[I]).Name);
   end;
 end;
@@ -119 +140 @@
   DataTypes.Clear;
   with DataTypes do begin
-    RegisterType('String', ftString, TFieldString);
-    RegisterType('Integer', ftInteger, TFieldInteger);
-    RegisterType('Date and time', ftDateTime, TFieldDateTime);
-    RegisterType('Boolean', ftBoolean, TFieldBoolean);
-    RegisterType('Float', ftFloat, TFieldFloat);
-    RegisterType('MapPosition', ftMapPosition, TFieldMapPosition);
-    RegisterType('Date', ftDate, TFieldDate);
-    RegisterType('Time', ftTime, TFieldTime);
-    RegisterType('Image', ftImage, TFieldImage);
+    RegisterType(STypeString, ftString, TFieldString);
+    RegisterType(STypeInteger, ftInteger, TFieldInteger);
+    RegisterType(STypeDateTime, ftDateTime, TFieldDateTime);
+    RegisterType(STypeBoolean, ftBoolean, TFieldBoolean);
+    RegisterType(STypeFloat, ftFloat, TFieldFloat);
+    RegisterType(STypeMapPosition, ftMapPosition, TFieldMapPosition);
+    RegisterType(STypeDate, ftDate, TFieldDate);
+    RegisterType(STypeTime, ftTime, TFieldTime);
+    RegisterType(STypeImage, ftImage, TFieldImage);
   end;
 end;
@@ -135 +156 @@
   if FDatabase = AValue then Exit;
   if Assigned(FDatabase) then begin
+    FDatabase.Save;
     FDatabase.Clear;
   end;