Index: AAPClient/Win32/Debug/LoginScherm.dcu =================================================================== diff -u -r4 -r6 Binary files differ Index: AAPClient/ProScan.dpr =================================================================== diff -u -r3 -r6 --- AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 3) +++ AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 6) @@ -5,7 +5,8 @@ ProScanMain in 'ProScanMain.pas' {fmProScanHoofdscherm}, DrieKnoppenScherm in 'UI\DrieKnoppenScherm.pas' {fmDrieKnoppenScherm}, LoginScherm in 'UI\LoginScherm.pas' {fmLoginScherm}, - GebruikerService in 'WS\GebruikerService.pas'; + GebruikerService in 'WS\GebruikerService.pas', + PopupScherm in 'UI\PopupScherm.pas' {fmPopupScherm}; {$R *.res} @@ -16,5 +17,6 @@ Application.CreateForm(TfmProScanHoofdscherm, fmProScanHoofdscherm); Application.CreateForm(TfmDrieKnoppenScherm, fmDrieKnoppenScherm); Application.CreateForm(TfmLoginScherm, fmLoginScherm); + Application.CreateForm(TfmPopupScherm, fmPopupScherm); Application.Run; end. Index: AAPClient/UI/LoginScherm.pas =================================================================== diff -u -r5 -r6 --- AAPClient/UI/LoginScherm.pas (.../LoginScherm.pas) (revision 5) +++ AAPClient/UI/LoginScherm.pas (.../LoginScherm.pas) (revision 6) @@ -31,7 +31,7 @@ implementation uses - GebruikerService; + GebruikerService, PopupScherm; {$R *.dfm} @@ -46,6 +46,7 @@ Service: GebruikerServiceSoap; Request: GebruikerAanmeldenRequest; Response: GebruikerAanmeldenResponse; + PopupScherm: TfmPopupScherm; begin Service := GebruikerService.GetGebruikerServiceSoap(); // request opbouwen @@ -57,7 +58,10 @@ Response := Service.GebruikerAanmelden(Request); try if Response.Header.Status <> '200' then begin - ShowMessage(Response.Header.Omschrijving); + PopupScherm := TfmPopupScherm.Create(self); + PopupScherm.lblWaarschuwing.Caption := Response.Header.Omschrijving; + PopupScherm.btnPopupActie.Caption := 'Probeer opnieuw'; + PopupScherm.ShowModal; end else begin lblGebruiker.Caption := edtInitialen.Text; lblGebruiker.Visible := true; Index: AAPClient/ProScan.dproj =================================================================== diff -u -r3 -r6 --- AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 3) +++ AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 6) @@ -95,6 +95,10 @@ dfm + +
fmPopupScherm
+ dfm +
Cfg_2 Base Index: AAPClient/ProScan.dproj.local =================================================================== diff -u -r3 -r6 --- AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 3) +++ AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 6) @@ -2,30 +2,35 @@ 2019/03/01 14:25:16.000.954,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2019/03/01 14:25:57.000.930,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\AAPClient\ProScanMain.pas - 2019/03/01 14:25:57.000.930,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\AAPClient\ProScanMain.dfm - 2019/03/01 14:26:05.000.981,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\AAPClient\ProScan.dproj + 2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm + 2019/03/01 14:25:57.000.930,E:\svn\Delphi\AAPClient\ProScanMain.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas + 2019/03/01 14:26:05.000.981,E:\svn\Delphi\AAPClient\ProScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj 2019/03/01 14:28:35.000.977,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm - 2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas + 2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/01 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas + 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm 2019/03/04 07:46:54.000.107,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/04 07:48:44.000.257,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/04 07:48:53.000.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas= - 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas - 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm - 2019/03/05 10:51:12.820,=E:\svn\Delphi\AAPClient\WS.pas - 2019/03/05 10:53:16.806,=E:\svn\Delphi\AAPClient\WS.pas - 2019/03/05 10:56:57.976,E:\svn\Delphi\AAPClient\WS\GebruikerService.pas=E:\svn\Delphi\AAPClient\WS.pas + 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/03/05 10:51:12.000.820,=E:\svn\Delphi\AAPClient\WS.pas + 2019/03/05 10:53:16.000.806,=E:\svn\Delphi\AAPClient\WS.pas + 2019/03/05 10:56:57.000.976,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\GebruikerService.pas + 2019/03/05 11:54:27.053,=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/05 11:57:08.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + + Index: AAPClient/Win32/Debug/ProScan.exe =================================================================== diff -u -r5 -r6 Binary files differ