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
+
+
+ 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