Index: PlanScan/Main.pas =================================================================== diff -u -r411 -r454 --- PlanScan/Main.pas (.../Main.pas) (revision 411) +++ PlanScan/Main.pas (.../Main.pas) (revision 454) @@ -21,7 +21,6 @@ tsDnaCodes: TTabSheet; tsGebruikers: TTabSheet; lblInitialen: TLabel; - lblUitloggen: TLabel; lblKlantinstellingen: TLabel; lblDnaCodes: TLabel; lblGebruikers: TLabel; @@ -31,7 +30,6 @@ procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure lblUitloggenClick(Sender: TObject); procedure lblDnaCodesClick(Sender: TObject); procedure lblGebruikersClick(Sender: TObject); procedure lblKlantinstellingenClick(Sender: TObject); @@ -104,12 +102,6 @@ ZetLinkseKnopGrijs(2) end; -procedure TfmMain.lblUitloggenClick(Sender: TObject); -begin - HuidigeGebruikerAfmelden(); - GebruikerInloggen; -end; - function TfmMain.GebruikerInloggen(): boolean; var fLoginScherm: TfmLogin;