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

neues Feature:

Browse Source 
Werte, die mit führendem Leerzeichen eingegeben werden, werden nicht gespeichert
This commit is contained in:
Stephan Richter
2020-10-27 11:12:36 +01:00
parent 5865edc456
commit 36fefa766a
3 changed files with 61 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Belegscanner.lps
View File

@@ -9,7 +9,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="17" Y="10"/> <CursorPos X="17" Y="10"/>
<UsageCount Value="31"/> <UsageCount Value="32"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
@@ -18,9 +18,9 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="301"/> <TopLine Value="304"/>
<CursorPos Y="340"/> <CursorPos X="30" Y="358"/>
<UsageCount Value="31"/> <UsageCount Value="32"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@@ -126,123 +126,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="327" Column="53" TopLine="295"/> <Caret Line="133" Column="107" TopLine="46"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="334" Column="6" TopLine="240"/> <Caret Line="238" Column="49" TopLine="228"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="235" Column="3" TopLine="228"/> <Caret Line="153" Column="3" TopLine="151"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="109" Column="11" TopLine="70"/> <Caret Line="168" Column="15" TopLine="133"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="110" Column="134" TopLine="70"/> <Caret Line="167" Column="7" TopLine="133"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="333" Column="10" TopLine="295"/> <Caret Line="168" Column="11" TopLine="134"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="334" Column="3" TopLine="295"/> <Caret Line="196" Column="66" TopLine="189"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="342" Column="13" TopLine="295"/> <Caret Line="363" Column="97" TopLine="302"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="23" Column="119"/> <Caret Line="131" Column="24" TopLine="97"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="30" Column="15"/> <Caret Line="363" Column="97" TopLine="302"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="48" Column="25"/> <Caret Line="131" Column="24"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="83" Column="126" TopLine="22"/> <Caret Line="238" Column="3" TopLine="231"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="86" Column="21" TopLine="25"/> <Caret Line="153" Column="3" TopLine="151"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="246" Column="120" TopLine="185"/> <Caret Line="168" Column="31" TopLine="161"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="334" Column="33" TopLine="273"/> <Caret Line="150" Column="49" TopLine="134"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="335" Column="44" TopLine="274"/> <Caret Line="168" Column="26" TopLine="134"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="338" Column="31" TopLine="277"/> <Caret Line="242" Column="18" TopLine="230"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="340" Column="24" TopLine="279"/> <Caret Line="188" Column="3" TopLine="184"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="342" Column="13" TopLine="281"/> <Caret Line="310" Column="48" TopLine="301"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="340" Column="3" TopLine="297"/> <Caret Line="224" Column="29" TopLine="190"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="30" Column="15" TopLine="12"/> <Caret Line="188" Column="3" TopLine="184"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="23" Column="119" TopLine="12"/> <Caret Line="365" Column="45" TopLine="301"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="30" Column="15" TopLine="12"/> <Caret Line="357" Column="33" TopLine="301"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="48" Column="25" TopLine="12"/> <Caret TopLine="109"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="83" Column="126" TopLine="22"/> <Caret Line="237" Column="3" TopLine="230"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="86" Column="21" TopLine="25"/> <Caret Line="153" Column="3" TopLine="151"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="83" Column="141" TopLine="125"/> <Caret Line="168" Column="8" TopLine="161"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="23" Column="149" TopLine="25"/> <Caret Line="318" Column="172" TopLine="302"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="224" Column="51" TopLine="213"/> <Caret Line="168" TopLine="134"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="338" Column="39" TopLine="302"/> <Caret Line="358" Column="28" TopLine="302"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

20
scanner.lfm
View File

@@ -1,10 +1,10 @@
object ScanForm: TScanForm object ScanForm: TScanForm
Left = 2222 Left = 2222
Height = 869 Height = 880
Top = 198 Top = 198
Width = 1188 Width = 1188
Caption = 'Belegscanner' Caption = 'Belegscanner'
ClientHeight = 869 ClientHeight = 880
ClientWidth = 1188 ClientWidth = 1188
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.8.2.0' LCLVersion = '1.8.2.0'
@@ -13,6 +13,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 208 Top = 208
Width = 276 Width = 276
Anchors = [akTop, akRight]
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = TypeSelectorChange OnChange = TypeSelectorChange
@@ -24,6 +25,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 240 Top = 240
Width = 272 Width = 272
Anchors = [akTop, akRight]
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = OriginChange OnChange = OriginChange
@@ -35,6 +37,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 304 Top = 304
Width = 272 Width = 272
Anchors = [akTop, akRight]
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = DestinationChange OnChange = DestinationChange
@@ -46,6 +49,7 @@ object ScanForm: TScanForm
Height = 19 Height = 19
Top = 840 Top = 840
Width = 103 Width = 103
Anchors = [akLeft, akBottom]
Caption = 'Ordnername' Caption = 'Ordnername'
Font.Height = -16 Font.Height = -16
Font.Name = 'Sans' Font.Name = 'Sans'
@@ -57,6 +61,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 240 Top = 240
Width = 276 Width = 276
Anchors = [akTop, akRight]
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = ProductChange OnChange = ProductChange
@@ -69,6 +74,7 @@ object ScanForm: TScanForm
Height = 49 Height = 49
Top = 400 Top = 400
Width = 272 Width = 272
Anchors = [akTop, akRight]
Caption = 'scannen!' Caption = 'scannen!'
Enabled = False Enabled = False
OnClick = ScanButtonClick OnClick = ScanButtonClick
@@ -79,6 +85,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 368 Top = 368
Width = 72 Width = 72
Anchors = [akTop, akRight]
ItemHeight = 0 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@@ -93,6 +100,7 @@ object ScanForm: TScanForm
Height = 16 Height = 16
Top = 376 Top = 376
Width = 19 Width = 19
Anchors = [akTop, akRight]
Caption = 'dpi' Caption = 'dpi'
ParentColor = False ParentColor = False
end end
@@ -101,6 +109,7 @@ object ScanForm: TScanForm
Height = 19 Height = 19
Top = 816 Top = 816
Width = 88 Width = 88
Anchors = [akLeft, akBottom]
Caption = 'BaseFolder' Caption = 'BaseFolder'
Font.Height = -16 Font.Height = -16
Font.Name = 'Sans' Font.Name = 'Sans'
@@ -113,6 +122,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 272 Top = 272
Width = 272 Width = 272
Anchors = [akTop, akRight]
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = StopChange OnChange = StopChange
@@ -124,6 +134,7 @@ object ScanForm: TScanForm
Height = 800 Height = 800
Top = 8 Top = 8
Width = 880 Width = 880
Anchors = [akTop, akLeft, akRight, akBottom]
Center = True Center = True
Proportional = True Proportional = True
end end
@@ -132,6 +143,7 @@ object ScanForm: TScanForm
Height = 190 Height = 190
Top = 8 Top = 8
Width = 276 Width = 276
Anchors = [akTop, akRight]
DateTime = 0 DateTime = 0
OnChange = CalendarChange OnChange = CalendarChange
TabOrder = 0 TabOrder = 0
@@ -141,6 +153,7 @@ object ScanForm: TScanForm
Height = 28 Height = 28
Top = 336 Top = 336
Width = 272 Width = 272
Anchors = [akTop, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 6 TabOrder = 6
Text = '209 x 297 mm' Text = '209 x 297 mm'
@@ -150,6 +163,7 @@ object ScanForm: TScanForm
Height = 32 Height = 32
Top = 776 Top = 776
Width = 276 Width = 276
Anchors = [akRight, akBottom]
Caption = 'Löschen' Caption = 'Löschen'
Enabled = False Enabled = False
OnClick = DropButtonClick OnClick = DropButtonClick
@@ -162,6 +176,7 @@ object ScanForm: TScanForm
Height = 30 Height = 30
Top = 368 Top = 368
Width = 128 Width = 128
Anchors = [akTop, akRight]
Caption = 'Start/Ziel tauschen' Caption = 'Start/Ziel tauschen'
OnClick = SwapClick OnClick = SwapClick
TabOrder = 10 TabOrder = 10
@@ -171,6 +186,7 @@ object ScanForm: TScanForm
Height = 49 Height = 49
Top = 456 Top = 456
Width = 272 Width = 272
Anchors = [akTop, akRight]
Caption = 'extern öffnen' Caption = 'extern öffnen'
Enabled = False Enabled = False
OnClick = extButtonClick OnClick = extButtonClick

16
scanner.pas
View File

@@ -154,16 +154,18 @@ begin
Result := Result + 'types:' + ExportOptions(TypeSelector) + #13; Result := Result + 'types:' + ExportOptions(TypeSelector) + #13;
Result := Result + 'items:' + ExportOptions(Product) + #13; Result := Result + 'items:' + ExportOptions(Product) + #13;
MixLocations(Origin, Destination, Stop); MixLocations(Origin, Destination, Stop);
Result := Result + 'locations:' + ExportOPtions(Origin) + #13; Result := Result + 'locations:' + ExportOptions(Origin) + #13;
Result := Result + 'sizes:' + ExportOptions(PicSize) +#13; Result := Result + 'sizes:' + ExportOptions(PicSize) +#13;
end; end;
function TScanForm.ExportOptions(dropDown: TComboBox): string; function TScanForm.ExportOptions(dropDown: TComboBox): string;
var var
list: TStringList; list: TStringList;
tx: string;
begin begin
// make sure the current text appears in future lists // make sure the current text appears in future lists
dropDown.Items.Add(dropDown.Text); tx := dropDown.Text;
if (tx[1] <> ' ') then dropDown.Items.Add(tx);
// create a StringList to sort and concatenate // create a StringList to sort and concatenate
list := TStringList.Create; list := TStringList.Create;
list.StrictDelimiter := True; list.StrictDelimiter := True;
@@ -352,15 +354,15 @@ var
begin begin
tx := FormatDateTime('YYYY-MM-DD', date) + ' - '; tx := FormatDateTime('YYYY-MM-DD', date) + ' - ';
if (Product.Enabled and (Product.Tag > 0) and not( Product.Text = '') and not (Product.Text = 'Produkt')) then if (Product.Enabled and (Product.Tag > 0) and not( Product.Text = '') and not (Product.Text = 'Produkt')) then
tx := tx + Product.Text + ' von '; tx := tx + Trim(Product.Text) + ' von ';
if (TypeSelector.Tag > 0) then if (TypeSelector.Tag > 0) then
tx := tx + TypeSelector.Text; tx := tx + Trim(TypeSelector.Text);
if (Origin.Enabled and (Origin.Tag > 0)) then if (Origin.Enabled and (Origin.Tag > 0)) then
tx := tx + ': ' + Origin.Text; tx := tx + ': ' + Trim(Origin.Text);
if (Stop.Enabled and (Stop.Tag > 0) and not (Stop.Text = '')and not (Stop.Text = 'Zwischenhalt')) then if (Stop.Enabled and (Stop.Tag > 0) and not (Stop.Text = '')and not (Stop.Text = 'Zwischenhalt')) then
tx := tx + ' - ' + Stop.Text; tx := tx + ' - ' + Trim(Stop.Text);
if (Destination.Enabled and (Destination.Tag > 0)) then if (Destination.Enabled and (Destination.Tag > 0)) then
tx := tx + ' - ' + Destination.Text; tx := tx + ' - ' + Trim(Destination.Text);
FolderName.Caption := tx; FolderName.Caption := tx;
end; end;