Changeset 7 for trunk/Forms/UFormSettings.pas

Timestamp:

Mar 14, 2013, 10:21:42 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Okno s informacemi o aplikaci.
• Přidáno: Datový modul TCore do něhož byly odděleny obecné části přímo nesouvisející s hlavním oknem.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormSettings.pas (modified) (2 diffs)

trunk

@@ -3 +3 @@
 FioInfo.lps
 FioInfo.exe
+FioInfo.dbg

@@ -3 +3 @@
 FioInfo.lps
 FioInfo.exe
+FioInfo.dbg

trunk/Forms/UFormSettings.pas

@@ -38 +38 @@
 
 uses
-  UFioAPI, UFormMain;
+  UFioAPI, UCore;
 
 { TFormSettings }
@@ -64 +64 @@
 procedure TFormSettings.Load;
 begin
-  LabeledEditToken.Text := FormMain.Token;
-  ComboBox1.ItemIndex := Integer(FormMain.Format);
-  LabeledEditFolder.Text := FormMain.TargetDirectory;
+  LabeledEditToken.Text := Core.Token;
+  ComboBox1.ItemIndex := Integer(Core.Format);
+  LabeledEditFolder.Text := Core.TargetDirectory;
 end;
 
 procedure TFormSettings.Save;
 begin
-  FormMain.Token := LabeledEditToken.Text;
-  FormMain.Format := TFioDataFormat(ComboBox1.ItemIndex);
-  FormMain.TargetDirectory := LabeledEditFolder.Text;
+  Core.Token := LabeledEditToken.Text;
+  Core.Format := TFioDataFormat(ComboBox1.ItemIndex);
+  Core.TargetDirectory := LabeledEditFolder.Text;
 end;
 

@@ -3 +3 @@
 FioInfo.lps
 FioInfo.exe
+FioInfo.dbg