Changeset 11 for trunk/Forms/UFormDatabases.pas

Timestamp:

Feb 16, 2015, 10:42:24 PM (9 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/UFormDatabases.pas (modified) (1 diff)

trunk/Forms/UFormDatabases.pas

@@ -109 +109 @@
 
 procedure TFormDatabases.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
   ReloadList;
 end;