Index: PlanScan/UI/KlantinstellingenDetailScherm.dfm =================================================================== diff -u -r639 -r657 --- PlanScan/UI/KlantinstellingenDetailScherm.dfm (.../KlantinstellingenDetailScherm.dfm) (revision 639) +++ PlanScan/UI/KlantinstellingenDetailScherm.dfm (.../KlantinstellingenDetailScherm.dfm) (revision 657) @@ -3,7 +3,7 @@ Top = 0 ActiveControl = btnOk Caption = 'KlantinstellingenDetail' - ClientHeight = 300 + ClientHeight = 306 ClientWidth = 377 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -17,7 +17,7 @@ TextHeight = 13 object lblKlantId: TLabel Left = 68 - Top = 48 + Top = 24 Width = 113 Height = 19 AutoSize = False @@ -31,7 +31,7 @@ end object lblExport: TLabel Left = 68 - Top = 88 + Top = 64 Width = 113 Height = 19 AutoSize = False @@ -45,7 +45,7 @@ end object lblWegwerpPallet: TLabel Left = 68 - Top = 128 + Top = 103 Width = 113 Height = 19 AutoSize = False @@ -59,7 +59,7 @@ end object lblMeerdereToeleveringen: TLabel Left = 68 - Top = 168 + Top = 143 Width = 113 Height = 19 AutoSize = False @@ -73,7 +73,7 @@ end object lblBlumXs: TLabel Left = 68 - Top = 208 + Top = 183 Width = 113 Height = 19 AutoSize = False @@ -85,9 +85,23 @@ Font.Style = [] ParentFont = False end + object lblHalvePallet: TLabel + Left = 68 + Top = 223 + Width = 113 + Height = 19 + AutoSize = False + Caption = 'Halve pallet' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end object edtklantId: TEdit Left = 187 - Top = 45 + Top = 21 Width = 121 Height = 27 Font.Charset = DEFAULT_CHARSET @@ -100,7 +114,7 @@ end object cbIsExport: TCheckBox Left = 187 - Top = 90 + Top = 66 Width = 97 Height = 17 Font.Charset = DEFAULT_CHARSET @@ -113,7 +127,7 @@ end object btnOk: TButton Left = 133 - Top = 248 + Top = 256 Width = 112 Height = 33 Caption = 'Ok' @@ -129,7 +143,7 @@ end object cbWegwerppallet: TCheckBox Left = 187 - Top = 130 + Top = 105 Width = 97 Height = 17 Font.Charset = DEFAULT_CHARSET @@ -142,7 +156,7 @@ end object cbMeerdereToeleveringen: TCheckBox Left = 187 - Top = 170 + Top = 145 Width = 97 Height = 17 Font.Charset = DEFAULT_CHARSET @@ -155,7 +169,7 @@ end object cbIsBlumXs: TCheckBox Left = 187 - Top = 210 + Top = 185 Width = 97 Height = 17 Font.Charset = DEFAULT_CHARSET @@ -166,4 +180,17 @@ ParentFont = False TabOrder = 5 end + object cbHalvePallet: TCheckBox + Left = 187 + Top = 225 + Width = 97 + Height = 17 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 6 + end end Index: PlanScan/UI/KlantinstellingenDetailScherm.pas =================================================================== diff -u -r639 -r657 --- PlanScan/UI/KlantinstellingenDetailScherm.pas (.../KlantinstellingenDetailScherm.pas) (revision 639) +++ PlanScan/UI/KlantinstellingenDetailScherm.pas (.../KlantinstellingenDetailScherm.pas) (revision 657) @@ -19,6 +19,8 @@ lblMeerdereToeleveringen: TLabel; lblBlumXs: TLabel; cbIsBlumXs: TCheckBox; + lblHalvePallet: TLabel; + cbHalvePallet: TCheckBox; private function getIsExport: boolean; function getIsBlumXs: boolean;