unit UiContext;

interface

uses
  Images, Classes;

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;
    fIsSSTPopupGetoond: boolean;
    fIsExportPopupGetoond: boolean;
    fServerName: string;
    fModus: integer;
    fInternVhossId: string;
    fBatchId: String;
    fFormBreedte: integer;
    fFormHoogte: integer;
    fLaatsteDnaCodeGoedAfgemeld: boolean;
    fLaatstAfgedrukteDnaCodes: TStringList;
  public
    Constructor Create; overload;
    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 IsSSTPopupGetoond: boolean Read fIsSSTPopupGetoond Write fIsSSTPopupGetoond;
    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;
    Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
    Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
    Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
    Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes;
  end;

implementation

{ TUiContext }
constructor TUiContext.Create();
begin
  fLaatstAfgedrukteDnaCodes := TStringList.Create();
end;

end.