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

trunk/Forms/UFormTables.pas

@@ -64 +64 @@
 {$R *.lfm}
 
+resourcestring
+  SRemoveTable = 'Remove table';
+  SRemoveTableConfirm = 'Do you want to really remove table ''%s'' ?';
+  SNewTable = 'New table';
+
+
 { TFormTables }
 
@@ -104 +110 @@
 begin
   NewTable := TTable.Create;
-  NewTable.Name := 'New table';
+  NewTable.Name := SNewTable;
   NewTable.Database := Database;
   FormTable.Load(NewTable);
@@ -128 +134 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    if MessageDlg('Remove table', 'Do you want to really remove table ' +
-    TTable(ListView1.Selected.Data).Name, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
+    if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Name]),
+    mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
       Database.Tables.Remove(ListView1.Selected.Data);
       ReloadList;
@@ -200 +206 @@
 
 procedure TFormTables.FormShow(Sender: TObject);
-begin
+var
+  I: Integer;
+begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
   UpdateInterface;
 end;