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;