unit UiContext; interface uses Images; const mrLogin = 101; mrHome = 102; mrPallet = 103; mrBestaandePallet = 104; mrDnaCode = 105; mrInfoLog = 106; mrHernoemPallet = 107; mrDnaCodeReedsGescand = 108; type TUiContext = class private fInitialen: String; fLoginCode: String; fPallet: String; fToelevering: String; fLaatsteDnaCode: String; fInfoLogSchermToonGescand: boolean; fImagesScherm: TImagesScherm; public Property Initialen: String Read fInitialen Write fInitialen; Property LoginCode: String Read fLoginCode Write fLoginCode; Property Pallet: String Read fPallet Write fPallet; Property Toelevering: String Read fToelevering Write fToelevering; Property LaatsteDnaCode: String Read fLaatsteDnaCode Write fLaatsteDnaCode; Property InfoLogSchermToonGescand: boolean Read fInfoLogSchermToonGescand Write fInfoLogSchermToonGescand; Property ImagesScherm: TImagesScherm Read fImagesScherm Write fImagesScherm; end; implementation { TUiContext } end.