Index: AAPClient/UI/PopupScherm.pas =================================================================== diff -u -r114 -r116 --- AAPClient/UI/PopupScherm.pas (.../PopupScherm.pas) (revision 114) +++ AAPClient/UI/PopupScherm.pas (.../PopupScherm.pas) (revision 116) @@ -14,6 +14,7 @@ pnlbtnActie1: TPanel; pnlbtnActie2: TPanel; procedure pnlbtnActie1Click(Sender: TObject); + procedure FormShow(Sender: TObject); private { Private declarations } public @@ -26,10 +27,18 @@ implementation uses - Images; + Images, DimmerForm; {$R *.dfm} +procedure TfmPopupScherm.FormShow(Sender: TObject); +var + fDimmerForm: TfmDimmerform; +begin + fDimmerForm := TfmDimmerform.Create(Self); + fDimmerForm.Show; +end; + procedure TfmPopupScherm.pnlbtnActie1Click(Sender: TObject); begin Close; Index: AAPClient/UI/DimmerForm.dfm =================================================================== diff -u -r115 -r116 --- AAPClient/UI/DimmerForm.dfm (.../DimmerForm.dfm) (revision 115) +++ AAPClient/UI/DimmerForm.dfm (.../DimmerForm.dfm) (revision 116) @@ -2,12 +2,12 @@ Left = 0 Top = 0 AlphaBlend = True - AlphaBlendValue = 128 + AlphaBlendValue = 100 BorderStyle = bsNone Caption = 'fmDimmerForm' - ClientHeight = 375 - ClientWidth = 651 - Color = clBtnFace + ClientHeight = 640 + ClientWidth = 480 + Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Index: AAPClient/ProScan.dpr =================================================================== diff -u -r115 -r116 --- AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 115) +++ AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 116) @@ -28,5 +28,15 @@ Application.CreateForm(TfmHernoemPalletScherm, fmHernoemPalletScherm); Application.CreateForm(TfmLoginScherm2, fmLoginScherm2); Application.CreateForm(TfmDimmerForm, fmDimmerForm); + Application.CreateForm(TfmDrieKnoppenScherm, fmDrieKnoppenScherm); + Application.CreateForm(TfmLoginScherm, fmLoginScherm); + Application.CreateForm(TfmPopupScherm, fmPopupScherm); + Application.CreateForm(TImagesScherm, ImagesScherm); + Application.CreateForm(TfmHomeScherm, fmHomeScherm); + Application.CreateForm(TfmPalletScherm, fmPalletScherm); + Application.CreateForm(TfmBestaandePalletScherm, fmBestaandePalletScherm); + Application.CreateForm(TfmDnaCodeScherm, fmDnaCodeScherm); + Application.CreateForm(TfmInfoLogScherm, fmInfoLogScherm); Application.Run; + fmProScanHoofdscherm.Visible := true; end. Index: AAPClient/ProScan.dproj =================================================================== diff -u -r115 -r116 --- AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 115) +++ AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 116) @@ -70,6 +70,8 @@ true + true + 1033 false Index: AAPClient/UI/PopupScherm.dfm =================================================================== diff -u -r114 -r116 --- AAPClient/UI/PopupScherm.dfm (.../PopupScherm.dfm) (revision 114) +++ AAPClient/UI/PopupScherm.dfm (.../PopupScherm.dfm) (revision 116) @@ -13,6 +13,7 @@ Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter + OnShow = FormShow PixelsPerInch = 96 TextHeight = 19 object lblWaarschuwing: TLabel