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

Knopf zum Tauschen von Start und Ziel hinzugefügt

main
Stephan Richter 6 years ago
parent
3abbea2fee
commit
790469a7e6
3 changed files with 55 additions and 34 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 64
      Belegscanner.lps
  2. 13
      scanner.lfm
  3. 12
      scanner.pas

64
Belegscanner.lps
Unescape 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
Unescape 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
Unescape 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;

Write Preview
Loading…
Cancel
Save