Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr =================================================================== diff -u -r548 -r549 --- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (.../VerpakkingsDefinitie.dpr) (revision 548) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (.../VerpakkingsDefinitie.dpr) (revision 549) @@ -4,11 +4,11 @@ Vcl.Forms, Main in 'Main.pas' {FormMain}, ApplicationContext in 'ApplicationContext.pas', - GebruikerService in 'WS\GebruikerService.pas', LogInScherm in 'UI\LogInScherm.pas' {FormLogin}, - UserServerService in 'WS\UserServerService.pas', Agent in 'WS\Agent.pas', - Subscherm in 'UI\Subscherm.pas'; + Subscherm in 'UI\Subscherm.pas', + UserServerService in 'WS\UserServerService.pas', + ZoekProductenScherm in 'UI\ZoekProductenScherm.pas' {FormZoekProducten}; {$R *.res} Index: VerpakkingsDefinitie/Main.pas =================================================================== diff -u -r547 -r549 --- VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 547) +++ VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 549) @@ -6,11 +6,12 @@ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, - Subscherm, LoginScherm, + Subscherm, LoginScherm, ZoekProductenScherm, ApplicationContext; const FORMLOGINID = 1; + FORMZOEKPRODUCTENID = 2; type TFormMain = class(TForm) @@ -57,6 +58,8 @@ case schermId of FORMLOGINID: fHuidigScherm := TFormLogin.Create(PanelMain, fAppContext); + FORMZOEKPRODUCTENID: + fHuidigScherm := TFormZoekProducten.Create(PanelMain, fAppContext); end; fHuidigScherm.Parent := PanelMain; Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj =================================================================== diff -u -r548 -r549 --- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (.../VerpakkingsDefinitie.dproj) (revision 548) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (.../VerpakkingsDefinitie.dproj) (revision 549) @@ -88,13 +88,16 @@
FormMain
-
FormLogin
- + + +
FormZoekProducten
+ dfm +
Cfg_2 Base Index: VerpakkingsDefinitie/UI/Subscherm.pas =================================================================== diff -u -r547 -r549 --- VerpakkingsDefinitie/UI/Subscherm.pas (.../Subscherm.pas) (revision 547) +++ VerpakkingsDefinitie/UI/Subscherm.pas (.../Subscherm.pas) (revision 549) @@ -28,6 +28,8 @@ inherited Create(AOwner); Self.ApplicationContext := ApplicationContext; + + BorderStyle := bsNone; // Alle subschermen hebben geen border end; end.