unit UiContext;

interface

uses
  Images;

const
  mrLogin               = 101;
  mrHome                = 102;
  mrPallet              = 103;
  mrBestaandePallet     = 104;
  mrDnaCode             = 105;
  mrInfoLog             = 106;
  mrHernoemPallet       = 107;
  mrDnaCodeReedsGescand = 108;
  modusDefault          = 1;
  modusKAD              = 2;
  modusVHOSS            = 3;

type
  TUiContext = class
  private
    fInitialen: String;
    fLoginCode: String;
    fPallet: String;
    fToelevering: String;
    fLaatsteDnaCode: String;
    fInfoLogSchermToonGescand: boolean;
    fImagesScherm: TImagesScherm;
    fDesktopMode: boolean;
    fIsDirecteLeveringPopupGetoond: boolean;
    fIsWegwerpPalletPopupGetoond: boolean;
    fIsExportPopupGetoond: boolean;
    fServerName: string;
    fModus: integer;
    fInternVhossId: string;
    fBatchId: String;
  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;
    Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
    Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
    Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
    Property ServerName: string Read fServerName Write fServerName;
    Property Modus: integer Read fModus Write fModus;
    Property InternVhossId: string read fInternVhossId Write fInternVhossId;
    Property IsExportPopupGetoond: boolean Read fIsExportPopupGetoond write fIsExportPopupGetoond;
    Property BatchId: string Read fBatchId Write fBatchId;
  end;

implementation

{ TUiContext }

end.