Index: AAPClient/UI/HomeScherm.dfm =================================================================== diff -u --- AAPClient/UI/HomeScherm.dfm (revision 0) +++ AAPClient/UI/HomeScherm.dfm (revision 20) @@ -0,0 +1,34 @@ +inherited fmHomeScherm: TfmHomeScherm + Caption = 'fmHomeScherm' + PixelsPerInch = 96 + TextHeight = 19 + inherited btnLinksOnder: TButton + Action = nil + ImageIndex = 1 + end + inherited btnCentraalOnder: TButton + Visible = False + end + inherited btnRechtsOnder: TButton + Visible = False + end + object btnHernoemPallet: TButton [4] + Left = 56 + Top = 112 + Width = 121 + Height = 66 + Caption = 'Hernoem pallet' + ModalResult = 7 + TabOrder = 3 + end + object btnAfmeldenProducten: TButton [5] + Left = 56 + Top = 40 + Width = 121 + Height = 66 + Caption = 'Afmelden producten' + ModalResult = 6 + TabOrder = 4 + WordWrap = True + end +end Index: AAPClient/UI/HomeScherm.pas =================================================================== diff -u --- AAPClient/UI/HomeScherm.pas (revision 0) +++ AAPClient/UI/HomeScherm.pas (revision 20) @@ -0,0 +1,34 @@ +unit HomeScherm; + +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, Images; + +type + TfmHomeScherm = class(TfmDrieKnoppenScherm) + btnHernoemPallet: TButton; + btnAfmeldenProducten: TButton; + procedure FormShow(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + fmHomeScherm: TfmHomeScherm; + +implementation + +{$R *.dfm} + +procedure TfmHomeScherm.FormShow(Sender: TObject); +begin + actLinksOnder := actAfsluiten; + inherited; +end; + +end.