Index: AAPClient/UI/BestaandePalletScherm.dfm =================================================================== diff -u -r222 -r228 --- AAPClient/UI/BestaandePalletScherm.dfm (.../BestaandePalletScherm.dfm) (revision 222) +++ AAPClient/UI/BestaandePalletScherm.dfm (.../BestaandePalletScherm.dfm) (revision 228) @@ -1,27 +1,21 @@ inherited fmBestaandePalletScherm: TfmBestaandePalletScherm Caption = 'fmBestaandePalletScherm' + Color = 1513421 ExplicitWidth = 480 ExplicitHeight = 640 PixelsPerInch = 96 TextHeight = 19 - object lblPalletCode: TLabel [0] - Left = 144 - Top = 8 - Width = 73 - Height = 19 - AutoSize = False - end - object lblBestaandePallet: TLabel [1] + object lblBestaandePallet: TLabel [0] Left = 0 Top = 57 Width = 480 Height = 39 Align = alTop Alignment = taCenter Caption = 'Bestaande pallet: %s' - Color = clBtnFace + Color = clWhite Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText + Font.Color = clWhite Font.Height = -32 Font.Name = 'Tahoma' Font.Style = [] @@ -32,162 +26,84 @@ inherited pnlDrieKnoppen: TPanel Visible = False end - object pnlAnnuleren: TPanel [4] - Left = 256 - Top = 320 - Width = 157 - Height = 185 - BevelOuter = bvNone - Color = 1513421 - ParentBackground = False + object btnHuidigeToelevering: TButton [3] + Left = 56 + Top = 120 + Width = 369 + Height = 81 + Caption = 'Huidige toelevering' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 7 + ImageMargins.Left = 10 + Images = ImagesScherm.ilAlgemeen48 + ModalResult = 6 + ParentFont = False TabOrder = 2 - object imgAnnuleren: TImage - Left = 14 - Top = 18 - Width = 128 - Height = 128 - Transparent = True - OnClick = imgRechtsOnderClick - end - object lblAnnuleren: TLabel - Left = 0 - Top = 152 - Width = 157 - Height = 33 - Align = alBottom - Alignment = taCenter - AutoSize = False - Caption = 'Annuleren' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -27 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - Layout = tlCenter - WordWrap = True - ExplicitTop = 134 - end + WordWrap = True + OnClick = btnHuidigeToeleveringClick end - object pnlExtraToelevering: TPanel [5] - Left = 60 - Top = 320 - Width = 157 - Height = 185 - BevelOuter = bvNone - Color = 1513421 - ParentBackground = False + object btnRework: TButton [4] + Left = 56 + Top = 221 + Width = 369 + Height = 81 + Caption = 'Rework' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 10 + ImageMargins.Left = 10 + Images = ImagesScherm.ilAlgemeen48 + ModalResult = 7 + ParentFont = False TabOrder = 3 - object imgExtraToelevering: TImage - Left = 14 - Top = 18 - Width = 128 - Height = 128 - Transparent = True - OnClick = imgExtraToeleveringClick - end - object lblExtraToelevering: TLabel - Left = 0 - Top = 152 - Width = 157 - Height = 33 - Align = alBottom - Alignment = taCenter - AutoSize = False - Caption = 'Extra toelev.' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -27 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - Layout = tlCenter - WordWrap = True - ExplicitLeft = -8 - ExplicitTop = 134 - end + WordWrap = True + OnClick = btnReworkClick end - object pnlHuidigeToelevering: TPanel [6] - Left = 60 - Top = 112 - Width = 157 - Height = 183 - BevelOuter = bvNone - Color = 1513421 - ParentBackground = False + object btnExtraToelevering: TButton [5] + Left = 56 + Top = 322 + Width = 369 + Height = 81 + Caption = 'Extra toelevering' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 11 + ImageMargins.Left = 10 + Images = ImagesScherm.ilAlgemeen48 + ModalResult = 7 + ParentFont = False TabOrder = 4 - object imgHuidigeToelevering: TImage - Left = 14 - Top = 16 - Width = 128 - Height = 128 - Transparent = True - OnClick = imgHuidigeToeleveringClick - end - object lblHuidigeToelevering: TLabel - Left = 0 - Top = 150 - Width = 157 - Height = 33 - Align = alBottom - Alignment = taCenter - AutoSize = False - Caption = 'Huidige toel.' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -27 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - Layout = tlCenter - WordWrap = True - ExplicitLeft = -8 - ExplicitTop = 134 - end + WordWrap = True + OnClick = btnExtraToeleveringClick end - object pnlRework: TPanel [7] - Left = 256 - Top = 112 - Width = 157 - Height = 183 - BevelOuter = bvNone - Color = 1513421 - ParentBackground = False + object btnTerug: TButton [6] + Left = 56 + Top = 423 + Width = 369 + Height = 81 + Caption = 'Terug' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 12 + ImageMargins.Left = 10 + Images = ImagesScherm.ilAlgemeen48 + ModalResult = 7 + ParentFont = False TabOrder = 5 - object imgRework: TImage - Left = 14 - Top = 16 - Width = 128 - Height = 128 - Transparent = True - OnClick = imgReworkClick - end - object lblRework: TLabel - Left = 0 - Top = 150 - Width = 157 - Height = 33 - Align = alBottom - Alignment = taCenter - AutoSize = False - Caption = 'Rework' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -27 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - Layout = tlCenter - WordWrap = True - ExplicitTop = 134 - end + WordWrap = True + OnClick = btnTerugClick end - inherited alAlgemeen: TActionList - inherited actHome: TAction - OnExecute = actHomeExecute - end - inherited actPallet: TAction - OnExecute = actPalletExecute - end - end end