Index: AAPClient/ProScan.identcache
===================================================================
diff -u -r63 -r96
Binary files differ
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r93 -r96
--- AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 93)
+++ AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 96)
@@ -9,8 +9,8 @@
2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas=E:\svn\Delphi\AAPClient\Unit1.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 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.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=
@@ -58,14 +58,14 @@
2019/03/18 11:06:46.000.842,=E:\svn\Delphi\AAPClient\WS.pas
2019/03/18 11:07:10.000.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
2019/03/18 11:07:23.000.750,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas
- 2019/03/19 14:36:29.587,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/19 14:42:58.764,E:\svn\Delphi\AAPClient\UI\UiContext.pas=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/20 14:52:28.434,=E:\svn\Delphi\AAPClient\WS.pas
- 2019/03/20 14:52:34.233,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
- 2019/03/20 14:52:47.492,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
- 2019/03/22 12:38:06.040,=E:\svn\Delphi\AAPClient\Unit1.pas
- 2019/03/22 12:42:12.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
- 2019/03/22 12:42:12.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/19 14:36:29.000.587,=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/19 14:42:58.000.764,E:\svn\Delphi\AAPClient\UI\UiContext.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/20 14:52:28.000.434,=E:\svn\Delphi\AAPClient\WS.pas
+ 2019/03/20 14:52:34.000.233,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=
+ 2019/03/20 14:52:47.000.492,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas
+ 2019/03/22 12:38:06.000.040,=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+ 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
Index: AAPClient/ProScanMain.dfm
===================================================================
diff -u -r90 -r96
--- AAPClient/ProScanMain.dfm (.../ProScanMain.dfm) (revision 90)
+++ AAPClient/ProScanMain.dfm (.../ProScanMain.dfm) (revision 96)
@@ -13,8 +13,8 @@
Font.Style = []
OldCreateOrder = False
Visible = True
+ OnActivate = FormActivate
OnCreate = FormCreate
- OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
end
Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r94 -r96
--- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 94)
+++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 96)
@@ -9,7 +9,7 @@
type
TfmProScanHoofdscherm = class(TForm)
procedure FormCreate(Sender: TObject);
- procedure FormShow(Sender: TObject);
+ procedure FormActivate(Sender: TObject);
private
fUiContext: TUiContext;
fHuidigScherm: TForm;
@@ -35,22 +35,7 @@
{$R *.dfm}
-procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
-begin
- fUiContext := TUiContext.Create();
- //fImagesScherm := TImagesScherm.Create(Self);
- fLoginScherm := TfmLoginScherm.Create(Self);
- fHomeScherm := TfmHomeScherm.Create(Self);
- fPalletScherm := TfmPalletScherm.Create(Self);
- fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
- fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
- fInfoLogScherm := TfmInfoLogScherm.Create(Self);
- fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self);
-
- fHuidigScherm := fLoginScherm;
-end;
-
-procedure TfmProScanHoofdscherm.FormShow(Sender: TObject);
+procedure TfmProScanHoofdscherm.FormActivate(Sender: TObject);
var
fModalResult: TModalResult;
begin
@@ -76,6 +61,20 @@
Application.Terminate;
end;
+procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
+begin
+ fUiContext := TUiContext.Create();
+ fLoginScherm := TfmLoginScherm.Create(Self);
+ fHomeScherm := TfmHomeScherm.Create(Self);
+ fPalletScherm := TfmPalletScherm.Create(Self);
+ fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
+ fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
+ fInfoLogScherm := TfmInfoLogScherm.Create(Self);
+ fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self);
+
+ fHuidigScherm := fLoginScherm;
+end;
+
procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden;
var
Service: GebruikerServiceSoap;