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