Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u
--- AAPClient/UI/DrieKnoppenScherm.pas (revision 0)
+++ AAPClient/UI/DrieKnoppenScherm.pas (revision 1)
@@ -0,0 +1,64 @@
+unit DrieKnoppenScherm;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ActnList;
+
+type
+ TfmDrieKnoppenScherm = class(TForm)
+ btnLinksOnder: TButton;
+ btnCentraalOnder: TButton;
+ btnRechtsOnder: TButton;
+ lblGebruiker: TLabel;
+ alKnoppenOnder: TActionList;
+ actLinksOnder: TAction;
+ actCentraalOnder: TAction;
+ actRechtsOnder: TAction;
+ alAlgemeen: TActionList;
+ actVolgende: TAction;
+ actHome: TAction;
+ procedure FormShow(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ fmDrieKnoppenScherm: TfmDrieKnoppenScherm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfmDrieKnoppenScherm.FormCreate(Sender: TObject);
+begin
+ actLinksOnder := nil;
+ actCentraalOnder := nil;
+ actRechtsOnder := nil;
+end;
+
+procedure TfmDrieKnoppenScherm.FormShow(Sender: TObject);
+begin
+ btnLinksOnder.Visible := false;
+ btnCentraalOnder.Visible := false;
+ btnRechtsOnder.Visible := false;
+ if actLinksOnder<>nil then begin
+ btnLinksOnder.Visible := true;
+ btnLinksOnder.Caption := actLinksOnder.Caption;
+ end;
+ if actCentraalOnder<>nil then begin
+ btnCentraalOnder.Visible := true;
+ btnCentraalOnder.Caption := actCentraalOnder.Caption;
+ end;
+ if actRechtsOnder<>nil then begin
+ btnRechtsOnder.Visible := true;
+ btnRechtsOnder.Caption := actRechtsOnder.Caption;
+ end;
+
+end;
+
+end.
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u
Binary files differ
Index: AAPClient/UI/DrieKnoppenScherm.dfm
===================================================================
diff -u
--- AAPClient/UI/DrieKnoppenScherm.dfm (revision 0)
+++ AAPClient/UI/DrieKnoppenScherm.dfm (revision 1)
@@ -0,0 +1,79 @@
+object fmDrieKnoppenScherm: TfmDrieKnoppenScherm
+ Left = 0
+ Top = 0
+ BorderStyle = bsNone
+ ClientHeight = 241
+ ClientWidth = 232
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ OnCreate = FormCreate
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 19
+ object lblGebruiker: TLabel
+ Left = 8
+ Top = 8
+ Width = 71
+ Height = 25
+ AutoSize = False
+ Caption = 'WWW'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -21
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object btnLinksOnder: TButton
+ Left = 4
+ Top = 184
+ Width = 75
+ Height = 57
+ ModalResult = 1
+ TabOrder = 0
+ Visible = False
+ end
+ object btnCentraalOnder: TButton
+ Left = 79
+ Top = 184
+ Width = 75
+ Height = 57
+ ModalResult = 6
+ TabOrder = 1
+ Visible = False
+ end
+ object btnRechtsOnder: TButton
+ Left = 154
+ Top = 184
+ Width = 75
+ Height = 57
+ ModalResult = 7
+ TabOrder = 2
+ Visible = False
+ end
+ object alKnoppenOnder: TActionList
+ Left = 104
+ Top = 200
+ object actLinksOnder: TAction
+ end
+ object actCentraalOnder: TAction
+ end
+ object actRechtsOnder: TAction
+ end
+ end
+ object alAlgemeen: TActionList
+ Left = 24
+ Top = 48
+ object actVolgende: TAction
+ Category = 'Algemeen'
+ end
+ object actHome: TAction
+ Category = 'Algemeen'
+ end
+ end
+end
Index: AAPClient/ProScan.dproj
===================================================================
diff -u
--- AAPClient/ProScan.dproj (revision 0)
+++ AAPClient/ProScan.dproj (revision 1)
@@ -0,0 +1,155 @@
+
+
+ {B0F52F42-12BD-4122-ADBD-AB89218236B7}
+ 13.4
+ VCL
+ ProScan.dpr
+ True
+ Debug
+ Win32
+ 1
+ Application
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;xmlrtl;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;bindengine;soaprtl;CustomIPTransport;dsnap;fmxase;IndyCore;inet;fmxobj;inetdbxpress;fmxdae;IPIndyImpl;dbexpress;$(DCC_UsePackage)
+ $(BDS)\bin\delphi_PROJECTICON.ico
+ System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ .\$(Platform)\$(Config)
+ .\$(Platform)\$(Config)
+ false
+ false
+ false
+ false
+ false
+
+
+ vclimg;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;websnap;VclSmp;vcl;dsnapcon;vclx;webdsnap;$(DCC_UsePackage)
+
+
+ vcldbx;frx16;TeeDB;Rave100VCL;vclib;Tee;inetdbbde;svnui;ibxpress;vclimg;fmi;intrawebdb_120_160;frxDB16;fs16;TeeUI;FMXTee;vclactnband;vcldb;vcldsnap;bindcompvcl;vclie;vcltouch;Intraweb_120_160;websnap;vclribbon;VclSmp;frxe16;fsDB16;vcl;CloudService;CodeSiteExpressPkg;FmxTeeUI;dsnapcon;vclx;webdsnap;svn;bdertl;adortl;$(DCC_UsePackage)
+ true
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ 1033
+ $(BDS)\bin\default_app.manifest
+ CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
+
+
+ DEBUG;$(DCC_Define)
+ false
+ true
+ true
+ true
+
+
+ false
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ false
+
+
+
+ MainSource
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+ Cfg_2
+ Base
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+
+ Delphi.Personality.12
+
+
+
+
+ False
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 2067
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ ProScan.dpr
+
+
+
+
+ False
+ True
+
+
+ 12
+
+
+
+
Index: AAPClient/ProScanMain.pas
===================================================================
diff -u
--- AAPClient/ProScanMain.pas (revision 0)
+++ AAPClient/ProScanMain.pas (revision 1)
@@ -0,0 +1,37 @@
+unit ProScanMain;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList;
+
+type
+ TfmProScanHoofdscherm = class(TForm)
+ procedure FormCreate(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ fmProScanHoofdscherm: TfmProScanHoofdscherm;
+
+implementation
+
+uses
+ LoginScherm;
+
+{$R *.dfm}
+
+procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
+var
+ LoginScherm: TfmLoginScherm;
+ MyAction: TAction;
+begin
+ LoginScherm := TfmLoginScherm.Create(Self);
+ LoginScherm.Show();
+end;
+
+end.
Index: AAPClient/Win32/Debug/DrieKnoppenScherm.dcu
===================================================================
diff -u
Binary files differ
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u
--- AAPClient/ProScan.dproj.local (revision 0)
+++ AAPClient/ProScan.dproj.local (revision 1)
@@ -0,0 +1,28 @@
+
+
+
+ 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,E:\svn\Delphi\AAPClient\ProScanMain.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas
+ 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: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\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\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/04 07:46:54.107,=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/04 07:48:44.257,=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/04 07:48:53.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=
+ 2019/03/04 07:49:00.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas
+ 2019/03/04 07:49:00.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm
+
+
+
+
+
+
+
+
+
+
Index: AAPClient/ProScan.dpr
===================================================================
diff -u
--- AAPClient/ProScan.dpr (revision 0)
+++ AAPClient/ProScan.dpr (revision 1)
@@ -0,0 +1,19 @@
+program ProScan;
+
+uses
+ Vcl.Forms,
+ ProScanMain in 'ProScanMain.pas' {fmProScanHoofdscherm},
+ DrieKnoppenScherm in 'UI\DrieKnoppenScherm.pas' {fmDrieKnoppenScherm},
+ LoginScherm in 'UI\LoginScherm.pas' {fmLoginScherm};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.ShowMainForm := False;
+ Application.CreateForm(TfmProScanHoofdscherm, fmProScanHoofdscherm);
+ Application.CreateForm(TfmDrieKnoppenScherm, fmDrieKnoppenScherm);
+ Application.CreateForm(TfmLoginScherm, fmLoginScherm);
+ Application.Run;
+end.
Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u
Binary files differ
Index: AAPClient/ProScan.identcache
===================================================================
diff -u
Binary files differ
Index: AAPClient/ProScanMain.dfm
===================================================================
diff -u
--- AAPClient/ProScanMain.dfm (revision 0)
+++ AAPClient/ProScanMain.dfm (revision 1)
@@ -0,0 +1,17 @@
+object fmProScanHoofdscherm: TfmProScanHoofdscherm
+ Left = 0
+ Top = 0
+ Caption = 'fmProScanHoofdscherm'
+ ClientHeight = 300
+ ClientWidth = 635
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ OnCreate = FormCreate
+ PixelsPerInch = 96
+ TextHeight = 13
+end
Index: AAPClient/ProScan.res
===================================================================
diff -u
Binary files differ
Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u
--- AAPClient/UI/LoginScherm.pas (revision 0)
+++ AAPClient/UI/LoginScherm.pas (revision 1)
@@ -0,0 +1,46 @@
+unit LoginScherm;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
+ Vcl.StdCtrls;
+
+type
+ TfmLoginScherm = class(TfmDrieKnoppenScherm)
+ actAfsluiten: TAction;
+ lblWelkom: TLabel;
+ lblGeefPincodeIn: TLabel;
+ edtPincode: TEdit;
+ lblInitialen: TLabel;
+ edtInitialen: TEdit;
+ procedure FormCreate(Sender: TObject);
+ procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ fmLoginScherm: TfmLoginScherm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
+begin
+ inherited;
+ Key := upcase(Key);
+end;
+
+procedure TfmLoginScherm.FormCreate(Sender: TObject);
+begin
+ inherited;
+ actRechtsOnder := actVolgende;
+ actLinksOnder := actAfsluiten;
+end;
+
+end.
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u
Binary files differ
Index: AAPClient/UI/LoginScherm.dfm
===================================================================
diff -u
--- AAPClient/UI/LoginScherm.dfm (revision 0)
+++ AAPClient/UI/LoginScherm.dfm (revision 1)
@@ -0,0 +1,70 @@
+inherited fmLoginScherm: TfmLoginScherm
+ Caption = 'fmLoginScherm'
+ PixelsPerInch = 96
+ TextHeight = 19
+ object lblWelkom: TLabel [1]
+ Left = 48
+ Top = 48
+ Width = 142
+ Height = 19
+ Caption = 'Welkom bij ProScan'
+ end
+ object lblGeefPincodeIn: TLabel [2]
+ Left = 16
+ Top = 126
+ Width = 61
+ Height = 19
+ Caption = 'Pincode:'
+ end
+ object lblInitialen: TLabel [3]
+ Left = 20
+ Top = 93
+ Width = 59
+ Height = 19
+ Caption = 'Initalen:'
+ end
+ inherited btnLinksOnder: TButton
+ TabOrder = 2
+ end
+ inherited btnCentraalOnder: TButton
+ TabOrder = 3
+ end
+ inherited btnRechtsOnder: TButton
+ TabOrder = 4
+ end
+ object edtPincode: TEdit [7]
+ Left = 103
+ Top = 123
+ Width = 121
+ Height = 27
+ TabOrder = 1
+ end
+ object edtInitialen: TEdit [8]
+ Left = 103
+ Top = 90
+ Width = 121
+ Height = 27
+ TabOrder = 0
+ OnKeyPress = edtInitialenKeyPress
+ end
+ inherited alKnoppenOnder: TActionList
+ inherited actLinksOnder: TAction
+ Caption = 'actLinksOnder'
+ end
+ inherited actCentraalOnder: TAction
+ Caption = 'actCentraalOnder'
+ end
+ inherited actRechtsOnder: TAction
+ Caption = 'actRechtsOnder'
+ end
+ end
+ inherited alAlgemeen: TActionList
+ inherited actVolgende: TAction
+ Caption = 'volgende'
+ end
+ object actAfsluiten: TAction
+ Category = 'LoginScherm'
+ Caption = 'Afsluiten'
+ end
+ end
+end