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

trunk/Forms/UFormRecords.pas

@@ -52 +52 @@
 {$R *.lfm}
 
+resourcestring
+  STable = 'Table';
+  SRemoveRecord = 'Remove record';
+  SRemoveRecordConfirm = 'Do you want to remove record?';
+
 { TFormRecords }
 
 procedure TFormRecords.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
-  Caption := 'Table - ' + Table.Caption;
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  Caption := STable + ' - ' + Table.Caption;
   ReloadList;
 end;
@@ -94 +103 @@
 procedure TFormRecords.ARemoveExecute(Sender: TObject);
 begin
-  if Assigned(ListView1.Selected) then begin
+  if Assigned(ListView1.Selected) then
+  if MessageDlg(SRemoveRecord, SRemoveRecordConfirm,
+  mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
     Table.Records.Remove(ListView1.Selected.Data);
     ReloadList;