Knopf zum Tauschen von Start und Ziel hinzugefügt

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>

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

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;