Index: ProScan/UI/LoginScherm2.pas =================================================================== diff -u -r396 -r464 --- ProScan/UI/LoginScherm2.pas (.../LoginScherm2.pas) (revision 396) +++ ProScan/UI/LoginScherm2.pas (.../LoginScherm2.pas) (revision 464) @@ -14,6 +14,7 @@ edtPincode: TEdit; edtInitialen: TEdit; imgAfmelden: TImage; + lblUrlServer: TLabel; procedure FormShow(Sender: TObject); procedure edtInitialenKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); @@ -87,6 +88,7 @@ pnlDrieKnoppen.Visible := False; pnlTop.Visible := False; SetStatusLoginButton; + lblUrlServer.Caption := UiContext.ServerName; end; procedure TfmLoginScherm2.HuidigeGebruikerAfmelden; Index: ProScan/UI/LoginScherm2.dfm =================================================================== diff -u -r396 -r464 --- ProScan/UI/LoginScherm2.dfm (.../LoginScherm2.dfm) (revision 396) +++ ProScan/UI/LoginScherm2.dfm (.../LoginScherm2.dfm) (revision 464) @@ -399,6 +399,19 @@ 000049454E44AE426082} OnClick = imgAfmeldenClick end + object lblUrlServer: TLabel + Left = 8 + Top = 616 + Width = 217 + Height = 16 + AutoSize = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end object btnLogin: TButton Left = 64 Top = 496