diff --git a/Belegscanner.lps b/Belegscanner.lps
index f5145ee..71c478d 100644
--- a/Belegscanner.lps
+++ b/Belegscanner.lps
@@ -9,7 +9,7 @@
-
+
@@ -18,9 +18,9 @@
-
-
-
+
+
+
@@ -126,123 +126,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/scanner.lfm b/scanner.lfm
index 3f73532..7bdcfcc 100644
--- a/scanner.lfm
+++ b/scanner.lfm
@@ -1,10 +1,10 @@
object ScanForm: TScanForm
Left = 2222
- Height = 869
+ Height = 880
Top = 198
Width = 1188
Caption = 'Belegscanner'
- ClientHeight = 869
+ ClientHeight = 880
ClientWidth = 1188
OnCreate = FormCreate
LCLVersion = '1.8.2.0'
@@ -13,6 +13,7 @@ object ScanForm: TScanForm
Height = 28
Top = 208
Width = 276
+ Anchors = [akTop, akRight]
Enabled = False
ItemHeight = 0
OnChange = TypeSelectorChange
@@ -24,6 +25,7 @@ object ScanForm: TScanForm
Height = 28
Top = 240
Width = 272
+ Anchors = [akTop, akRight]
Enabled = False
ItemHeight = 0
OnChange = OriginChange
@@ -35,6 +37,7 @@ object ScanForm: TScanForm
Height = 28
Top = 304
Width = 272
+ Anchors = [akTop, akRight]
Enabled = False
ItemHeight = 0
OnChange = DestinationChange
@@ -46,6 +49,7 @@ object ScanForm: TScanForm
Height = 19
Top = 840
Width = 103
+ Anchors = [akLeft, akBottom]
Caption = 'Ordnername'
Font.Height = -16
Font.Name = 'Sans'
@@ -57,6 +61,7 @@ object ScanForm: TScanForm
Height = 28
Top = 240
Width = 276
+ Anchors = [akTop, akRight]
Enabled = False
ItemHeight = 0
OnChange = ProductChange
@@ -69,6 +74,7 @@ object ScanForm: TScanForm
Height = 49
Top = 400
Width = 272
+ Anchors = [akTop, akRight]
Caption = 'scannen!'
Enabled = False
OnClick = ScanButtonClick
@@ -79,6 +85,7 @@ object ScanForm: TScanForm
Height = 28
Top = 368
Width = 72
+ Anchors = [akTop, akRight]
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
@@ -93,6 +100,7 @@ object ScanForm: TScanForm
Height = 16
Top = 376
Width = 19
+ Anchors = [akTop, akRight]
Caption = 'dpi'
ParentColor = False
end
@@ -101,6 +109,7 @@ object ScanForm: TScanForm
Height = 19
Top = 816
Width = 88
+ Anchors = [akLeft, akBottom]
Caption = 'BaseFolder'
Font.Height = -16
Font.Name = 'Sans'
@@ -113,6 +122,7 @@ object ScanForm: TScanForm
Height = 28
Top = 272
Width = 272
+ Anchors = [akTop, akRight]
Enabled = False
ItemHeight = 0
OnChange = StopChange
@@ -124,6 +134,7 @@ object ScanForm: TScanForm
Height = 800
Top = 8
Width = 880
+ Anchors = [akTop, akLeft, akRight, akBottom]
Center = True
Proportional = True
end
@@ -132,6 +143,7 @@ object ScanForm: TScanForm
Height = 190
Top = 8
Width = 276
+ Anchors = [akTop, akRight]
DateTime = 0
OnChange = CalendarChange
TabOrder = 0
@@ -141,6 +153,7 @@ object ScanForm: TScanForm
Height = 28
Top = 336
Width = 272
+ Anchors = [akTop, akRight]
ItemHeight = 0
TabOrder = 6
Text = '209 x 297 mm'
@@ -150,6 +163,7 @@ object ScanForm: TScanForm
Height = 32
Top = 776
Width = 276
+ Anchors = [akRight, akBottom]
Caption = 'Löschen'
Enabled = False
OnClick = DropButtonClick
@@ -162,6 +176,7 @@ object ScanForm: TScanForm
Height = 30
Top = 368
Width = 128
+ Anchors = [akTop, akRight]
Caption = 'Start/Ziel tauschen'
OnClick = SwapClick
TabOrder = 10
@@ -171,6 +186,7 @@ object ScanForm: TScanForm
Height = 49
Top = 456
Width = 272
+ Anchors = [akTop, akRight]
Caption = 'extern öffnen'
Enabled = False
OnClick = extButtonClick
diff --git a/scanner.pas b/scanner.pas
index de8a4c4..8970e1c 100644
--- a/scanner.pas
+++ b/scanner.pas
@@ -154,16 +154,18 @@ begin
Result := Result + 'types:' + ExportOptions(TypeSelector) + #13;
Result := Result + 'items:' + ExportOptions(Product) + #13;
MixLocations(Origin, Destination, Stop);
- Result := Result + 'locations:' + ExportOPtions(Origin) + #13;
+ Result := Result + 'locations:' + ExportOptions(Origin) + #13;
Result := Result + 'sizes:' + ExportOptions(PicSize) +#13;
end;
function TScanForm.ExportOptions(dropDown: TComboBox): string;
var
list: TStringList;
+ tx: string;
begin
// 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
list := TStringList.Create;
list.StrictDelimiter := True;
@@ -352,15 +354,15 @@ var
begin
tx := FormatDateTime('YYYY-MM-DD', date) + ' - ';
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
- tx := tx + TypeSelector.Text;
+ tx := tx + Trim(TypeSelector.Text);
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
- tx := tx + ' - ' + Stop.Text;
+ tx := tx + ' - ' + Trim(Stop.Text);
if (Destination.Enabled and (Destination.Tag > 0)) then
- tx := tx + ' - ' + Destination.Text;
+ tx := tx + ' - ' + Trim(Destination.Text);
FolderName.Caption := tx;
end;