Changeset 9 for trunk/Forms/UFormSettings.pas

Timestamp:

Mar 14, 2013, 10:59:07 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Systém pro překládání angličtiny do češtiny.

File:

• trunk/Forms/UFormSettings.pas (modified) (2 diffs)

trunk/Forms/UFormSettings.pas

@@ -40 +40 @@
   UFioAPI, UCore;
 
+resourcestring
+  SSelectFolder = 'Select destination folder';
+
 { TFormSettings }
 
@@ -58 +61 @@
   Output: string;
 begin
-  if SelectDirectory('Vyberte sloÅŸku', LabeledEditFolder.Text, Output) then
+  if SelectDirectory(SSelectFolder, LabeledEditFolder.Text, Output) then
     LabeledEditFolder.Text := Output;
 end;