From 790469a7e625e3eae9ad90bd0a7086203e66c034 Mon Sep 17 00:00:00 2001
From: Stephan Richter <github@keawe.de>
Date: Wed, 6 Nov 2019 23:51:59 +0100
Subject: [PATCH] =?UTF-8?q?Knopf=20zum=20Tauschen=20von=20Start=20und=20Zi?=
 =?UTF-8?q?el=20hinzugef=C3=BCgt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Belegscanner.lps | 64 ++++++++++++++++++++++++------------------------
 scanner.lfm      | 13 ++++++++--
 scanner.pas      | 12 +++++++++
 3 files changed, 55 insertions(+), 34 deletions(-)

diff --git a/Belegscanner.lps b/Belegscanner.lps
index a8bbc1b..a1d1ace 100644
--- a/Belegscanner.lps
+++ b/Belegscanner.lps
@@ -18,8 +18,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="112"/>
-        <CursorPos X="73" Y="233"/>
+        <TopLine Value="205"/>
+        <CursorPos X="18" Y="251"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -81,123 +81,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="scanner.pas"/>
-        <Caret Line="190" Column="21" TopLine="149"/>
+        <Caret Line="206" Column="9" TopLine="166"/>
       </Position1>
       <Position2>
         <Filename Value="scanner.pas"/>
-        <Caret Line="185" Column="27" TopLine="151"/>
+        <Caret Line="195" Column="61" TopLine="166"/>
       </Position2>
       <Position3>
         <Filename Value="scanner.pas"/>
-        <Caret Line="206" Column="9" TopLine="166"/>
+        <Caret Line="193" Column="21" TopLine="153"/>
       </Position3>
       <Position4>
         <Filename Value="scanner.pas"/>
-        <Caret Line="195" Column="61" TopLine="166"/>
+        <Caret Line="194" Column="19" TopLine="153"/>
       </Position4>
       <Position5>
         <Filename Value="scanner.pas"/>
-        <Caret Line="193" Column="21" TopLine="153"/>
+        <Caret Line="193" Column="21" TopLine="154"/>
       </Position5>
       <Position6>
         <Filename Value="scanner.pas"/>
-        <Caret Line="194" Column="19" TopLine="153"/>
+        <Caret Line="195" Column="11" TopLine="154"/>
       </Position6>
       <Position7>
         <Filename Value="scanner.pas"/>
-        <Caret Line="193" Column="21" TopLine="154"/>
+        <Caret Line="210" Column="29" TopLine="176"/>
       </Position7>
       <Position8>
         <Filename Value="scanner.pas"/>
-        <Caret Line="195" Column="11" TopLine="154"/>
+        <Caret Line="52" Column="26" TopLine="12"/>
       </Position8>
       <Position9>
         <Filename Value="scanner.pas"/>
-        <Caret Line="210" Column="29" TopLine="176"/>
+        <Caret Line="124" Column="32" TopLine="69"/>
       </Position9>
       <Position10>
         <Filename Value="scanner.pas"/>
-        <Caret Line="52" Column="26" TopLine="12"/>
+        <Caret Line="128" Column="15" TopLine="98"/>
       </Position10>
       <Position11>
         <Filename Value="scanner.pas"/>
-        <Caret Line="124" Column="32" TopLine="69"/>
+        <Caret Line="56" Column="27" TopLine="16"/>
       </Position11>
       <Position12>
         <Filename Value="scanner.pas"/>
-        <Caret Line="128" Column="15" TopLine="98"/>
+        <Caret Line="111" Column="28" TopLine="69"/>
       </Position12>
       <Position13>
         <Filename Value="scanner.pas"/>
-        <Caret Line="56" Column="27" TopLine="16"/>
+        <Caret Line="124" Column="23" TopLine="70"/>
       </Position13>
       <Position14>
         <Filename Value="scanner.pas"/>
-        <Caret Line="111" Column="28" TopLine="69"/>
+        <Caret Line="97" TopLine="79"/>
       </Position14>
       <Position15>
         <Filename Value="scanner.pas"/>
-        <Caret Line="124" Column="23" TopLine="70"/>
+        <Caret Line="216" Column="3" TopLine="209"/>
       </Position15>
       <Position16>
         <Filename Value="scanner.pas"/>
-        <Caret Line="97" TopLine="79"/>
+        <Caret Line="102" TopLine="46"/>
       </Position16>
       <Position17>
         <Filename Value="scanner.pas"/>
-        <Caret Line="216" Column="3" TopLine="209"/>
+        <Caret Line="104" TopLine="48"/>
       </Position17>
       <Position18>
         <Filename Value="scanner.pas"/>
-        <Caret Line="102" TopLine="46"/>
+        <Caret Line="229" Column="112" TopLine="209"/>
       </Position18>
       <Position19>
         <Filename Value="scanner.pas"/>
-        <Caret Line="104" TopLine="48"/>
+        <Caret Line="23" Column="29" TopLine="4"/>
       </Position19>
       <Position20>
         <Filename Value="scanner.pas"/>
-        <Caret Line="229" Column="112" TopLine="209"/>
+        <Caret Line="29" Column="80"/>
       </Position20>
       <Position21>
         <Filename Value="scanner.pas"/>
-        <Caret Line="23" Column="29" TopLine="4"/>
+        <Caret Line="75" Column="128"/>
       </Position21>
       <Position22>
         <Filename Value="scanner.pas"/>
-        <Caret Line="29" Column="80"/>
+        <Caret Line="106" Column="12" TopLine="66"/>
       </Position22>
       <Position23>
         <Filename Value="scanner.pas"/>
-        <Caret Line="75" Column="128"/>
+        <Caret Line="108" Column="26" TopLine="68"/>
       </Position23>
       <Position24>
         <Filename Value="scanner.pas"/>
-        <Caret Line="106" Column="12" TopLine="66"/>
+        <Caret Line="305" Column="38" TopLine="252"/>
       </Position24>
       <Position25>
         <Filename Value="scanner.pas"/>
-        <Caret Line="108" Column="26" TopLine="68"/>
+        <Caret Line="306" Column="6" TopLine="252"/>
       </Position25>
       <Position26>
         <Filename Value="scanner.pas"/>
-        <Caret Line="305" Column="38" TopLine="252"/>
+        <Caret Line="268" Column="157" TopLine="253"/>
       </Position26>
       <Position27>
         <Filename Value="scanner.pas"/>
-        <Caret Line="306" Column="6" TopLine="252"/>
+        <Caret Line="316" Column="106" TopLine="254"/>
       </Position27>
       <Position28>
         <Filename Value="scanner.pas"/>
-        <Caret Line="268" Column="157" TopLine="253"/>
+        <Caret Line="75" Column="30" TopLine="50"/>
       </Position28>
       <Position29>
         <Filename Value="scanner.pas"/>
-        <Caret Line="316" Column="106" TopLine="254"/>
+        <Caret Line="233" Column="73" TopLine="112"/>
       </Position29>
       <Position30>
         <Filename Value="scanner.pas"/>
-        <Caret Line="75" Column="30" TopLine="50"/>
+        <Caret Line="235" Column="73" TopLine="155"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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;