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

neues Feature: 

Werte, die mit führendem Leerzeichen eingegeben werden, werden nicht gespeichert
main
Stephan Richter 5 years ago
parent
5865edc456
commit
36fefa766a
3 changed files with 61 additions and 43 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. 68
      Belegscanner.lps
  2. 20
      scanner.lfm
  3. 16
      scanner.pas

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

Write Preview
Loading…
Cancel
Save