diff --git a/Belegscanner.lps b/Belegscanner.lps
index a8bbc1b..a1d1ace 100644
--- a/Belegscanner.lps
+++ b/Belegscanner.lps
@@ -18,8 +18,8 @@
-
-
+
+
@@ -81,123 +81,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/scanner.lfm b/scanner.lfm
index 559602b..a17f3a9 100644
--- a/scanner.lfm
+++ b/scanner.lfm
@@ -78,7 +78,7 @@ object ScanForm: TScanForm
Left = 904
Height = 29
Top = 368
- Width = 120
+ Width = 72
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
@@ -89,7 +89,7 @@ object ScanForm: TScanForm
Text = '150'
end
object DPI: TLabel
- Left = 1032
+ Left = 984
Height = 17
Top = 376
Width = 17
@@ -155,6 +155,15 @@ object ScanForm: TScanForm
OnClick = DropButtonClick
TabOrder = 9
end
+ object Swap: TButton
+ Left = 1048
+ Height = 30
+ Top = 368
+ Width = 128
+ Caption = 'Start/Ziel tauschen'
+ OnClick = SwapClick
+ TabOrder = 10
+ end
object BaseFolderDialog: TSelectDirectoryDialog
left = 520
top = 128
diff --git a/scanner.pas b/scanner.pas
index 05eb388..aa0ccad 100644
--- a/scanner.pas
+++ b/scanner.pas
@@ -25,6 +25,7 @@ type
{ TScanForm }
TScanForm = class(TForm)
+ Swap: TButton;
DropButton: TButton;
Calendar: TCalendar;
PicSize: TComboBox;
@@ -50,6 +51,7 @@ type
procedure OriginChange(Sender: TObject);
procedure ScanButtonClick(Sender: TObject);
procedure StopChange(Sender: TObject);
+ procedure SwapClick(Sender: TObject);
procedure TypeSelectorChange(Sender: TObject);
function ExportConfig(): string;
function ExportOptions(dropDown: TComboBox): string;
@@ -239,6 +241,16 @@ begin
UpdateFolder();
end;
+procedure TScanForm.SwapClick(Sender: TObject);
+var
+ dummy: String;
+begin
+ dummy:=Origin.Text;
+ Origin.Text := Destination.Text;
+ Destination.Text := dummy;
+ UpdateFolder();
+end;
+
procedure TScanForm.DestinationChange(Sender: TObject);
begin
Destination.Tag := 1;