Index: ProScan/ProScanMain.pas =================================================================== diff -u -r681 -r684 --- ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 681) +++ ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 684) @@ -29,7 +29,7 @@ implementation uses - OnderdelenScherm, DnaCodeSchermVoorOnderdelen, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, + LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm, DimmerForm, DnaCodeReedsGescandScherm, Agent; @@ -106,16 +106,14 @@ end else begin fHuidigScherm.Free; case mr of - mrLogin : fHuidigScherm := TfmLoginScherm2.Create(pnlMain); - mrHome : fHuidigScherm := TfmHomeScherm.Create(pnlMain); - mrPallet : fHuidigScherm := TfmPalletScherm.Create(pnlMain); - mrHernoemPallet : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain); - mrBestaandePallet : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain); - mrDnaCode : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain); - mrInfoLog : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain); - mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain); - mrOnderdelen : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain); - mrDnaCodeVoorOnderdelen : fHuidigScherm := TfmDnaCodeSchermVoorOnderdelen.Create(pnlMain); + mrLogin : fHuidigScherm := TfmLoginScherm2.Create(pnlMain); + mrHome : fHuidigScherm := TfmHomeScherm.Create(pnlMain); + mrPallet : fHuidigScherm := TfmPalletScherm.Create(pnlMain); + mrHernoemPallet : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain); + mrBestaandePallet : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain); + mrDnaCode : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain); + mrInfoLog : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain); + mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain); end; fHuidigScherm.Parent := pnlMain;