Changeset 11 for trunk/Forms/UFormFields.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/Forms/UFormFields.pas (modified) (2 diffs)

trunk/Forms/UFormFields.pas

@@ -59 +59 @@
 {$R *.lfm}
 
+resourcestring
+  SNewField = 'New field';
+  SFieldsNotSet = 'Fields not set';
+  STableFields = 'Table fields - %s';
+
 { TFormFields }
 
 procedure TFormFields.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
   if not Assigned(Fields) then
-    raise Exception.Create('Fields not set');
-  Caption := 'Table fields - ' + TableName;
+    raise Exception.Create(SFieldsNotSet);
+  Caption := Format(STableFields, [TableName]);
   UpdateInterface;
   ReloadList;
@@ -76 +85 @@
   NewField := TField.Create;
   NewField.Table := Fields.Table;
-  NewField.Name := 'New field';
+  NewField.Name := SNewField;
+  if Fields.Table.Database.Engine.DataTypes.Count > 0 then
+    NewField.DataType := TDataType(Fields.Table.Database.Engine.DataTypes[0]);
   FormField.Load(NewField);
   if FormField.ShowModal = mrOk then begin