StephanRichter/BelegScanner
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Knopf zum Tauschen von Start und Ziel hinzugefügt

Browse Source
This commit is contained in:
Stephan Richter
2019-11-06 23:51:59 +01:00
parent 3abbea2fee
commit 790469a7e6
3 changed files with 55 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
Belegscanner.lps
View File

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

13
scanner.lfm
View File

@@ -78,7 +78,7 @@ object ScanForm: TScanForm
Left = 904 Left = 904
Height = 29 Height = 29
Top = 368 Top = 368
Width = 120 Width = 72
ItemHeight = 0 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@@ -89,7 +89,7 @@ object ScanForm: TScanForm
Text = '150' Text = '150'
end end
object DPI: TLabel object DPI: TLabel
Left = 1032 Left = 984
Height = 17 Height = 17
Top = 376 Top = 376
Width = 17 Width = 17
@@ -155,6 +155,15 @@ object ScanForm: TScanForm
OnClick = DropButtonClick OnClick = DropButtonClick
TabOrder = 9 TabOrder = 9
end end
object Swap: TButton
Left = 1048
Height = 30
Top = 368
Width = 128
Caption = 'Start/Ziel tauschen'
OnClick = SwapClick
TabOrder = 10
end
object BaseFolderDialog: TSelectDirectoryDialog object BaseFolderDialog: TSelectDirectoryDialog
left = 520 left = 520
top = 128 top = 128

12
scanner.pas
View File

@@ -25,6 +25,7 @@ type
{ TScanForm } { TScanForm }
TScanForm = class(TForm) TScanForm = class(TForm)
Swap: TButton;
DropButton: TButton; DropButton: TButton;
Calendar: TCalendar; Calendar: TCalendar;
PicSize: TComboBox; PicSize: TComboBox;
@@ -50,6 +51,7 @@ type
procedure OriginChange(Sender: TObject); procedure OriginChange(Sender: TObject);
procedure ScanButtonClick(Sender: TObject); procedure ScanButtonClick(Sender: TObject);
procedure StopChange(Sender: TObject); procedure StopChange(Sender: TObject);
procedure SwapClick(Sender: TObject);
procedure TypeSelectorChange(Sender: TObject); procedure TypeSelectorChange(Sender: TObject);
function ExportConfig(): string; function ExportConfig(): string;
function ExportOptions(dropDown: TComboBox): string; function ExportOptions(dropDown: TComboBox): string;
@@ -239,6 +241,16 @@ begin
UpdateFolder(); UpdateFolder();
end; 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); procedure TScanForm.DestinationChange(Sender: TObject);
begin begin
Destination.Tag := 1; Destination.Tag := 1;