Index: AAPClient/UI/DnaCodeScherm.pas =================================================================== diff -u -r42 -r43 --- AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 42) +++ AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 43) @@ -20,6 +20,9 @@ lblSlash: TLabel; Image1: TImage; procedure FormShow(Sender: TObject); + procedure actPalletExecute(Sender: TObject); + procedure actHomeExecute(Sender: TObject); + procedure actVolgendeExecute(Sender: TObject); private { Private declarations } public @@ -33,6 +36,24 @@ {$R *.dfm} +procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject); +begin + inherited; + // +end; + +procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject); +begin + inherited; + // +end; + +procedure TfmDnaCodeScherm.actVolgendeExecute(Sender: TObject); +begin + inherited; + // +end; + procedure TfmDnaCodeScherm.FormShow(Sender: TObject); begin btnLinksOnder.Action := actPallet;