Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 4 → Rev 5

/trunk/Login.pas
50,8 → 50,13
Exit;
end;
frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue;
frmBugtracker.eingeloggtMitarbeiterName := cbxMitarbeiter.Text;
frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue;
frmBugtracker.aktuellesProjektName := cbxProjekt.Text;
 
frmBugtracker.LblAngemeldet.Caption := Format('Eingeloggt: %s, Projekt: %s', [frmBugtracker.eingeloggtMitarbeiterName, frmBugtracker.aktuellesProjektName]);
frmBugtracker.NeuFiltern;
 
ModalResult := mrOk; // Das schließt den Dialog
end;