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;