Index: ProScan/UI/DnaCodeReedsGescandScherm.pas =================================================================== diff -u -r496 -r506 --- ProScan/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 496) +++ ProScan/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 506) @@ -14,7 +14,8 @@ btnVerplaatsen: TButton; btnWegnemen: TButton; lblBestaandeDnaCode: TLabel; - btnTerug: TButton; + btnTerug: TButton; //deze staat invisible, want de onderste button geeft een AV... geen tijd gehad om verder uit te zoeken + btnTerugZonderAV: TButton; procedure FormShow(Sender: TObject); procedure edtPalletKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Index: ProScan/UI/DnaCodeReedsGescandScherm.dfm =================================================================== diff -u -r496 -r506 --- ProScan/UI/DnaCodeReedsGescandScherm.dfm (.../DnaCodeReedsGescandScherm.dfm) (revision 496) +++ ProScan/UI/DnaCodeReedsGescandScherm.dfm (.../DnaCodeReedsGescandScherm.dfm) (revision 506) @@ -1,8 +1,6 @@ inherited fmDnaCodeReedsGescandScherm: TfmDnaCodeReedsGescandScherm Caption = 'fmDrieKnoppenScherm' Color = 1513421 - ExplicitWidth = 480 - ExplicitHeight = 640 PixelsPerInch = 96 TextHeight = 19 object lblScanPallet: TLabel [0] @@ -39,7 +37,6 @@ end inherited pnlDrieKnoppen: TPanel Visible = False - ExplicitTop = 401 end object edtPallet: TEdit [4] Left = 56 @@ -78,10 +75,10 @@ OnClick = btnVerplaatsenClick end object btnTerug: TButton [6] - Left = 56 - Top = 423 + Left = 93 + Top = 488 Width = 369 - Height = 81 + Height = 40 Caption = 'Terug' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -93,6 +90,7 @@ Images = ImagesScherm.ilAlgemeen48 ParentFont = False TabOrder = 4 + Visible = False WordWrap = True OnClick = btnTerugClick end @@ -115,4 +113,23 @@ WordWrap = True OnClick = btnWegnemenClick end + object btnTerugZonderAV: TButton [8] + Left = 56 + Top = 421 + Width = 369 + Height = 81 + Caption = 'Terug' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -27 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 12 + ImageMargins.Left = 10 + Images = ImagesScherm.ilAlgemeen48 + ParentFont = False + TabOrder = 6 + WordWrap = True + OnClick = btnTerugClick + end end