Subversion Repositories winbugtracker

Rev

Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 5
Line 48... Line 48...
48 
    ShowMessage('Bitte Projekt auswählen.');
 48 
    ShowMessage('Bitte Projekt auswählen.');
49 
    cbxProjekt.SetFocus;
 49 
    cbxProjekt.SetFocus;
50 
    Exit;
 50 
    Exit;
51 
  end;
 51 
  end;                                                
52 
  frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue;
 52 
  frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue;
- 
 
 53 
  frmBugtracker.eingeloggtMitarbeiterName := cbxMitarbeiter.Text;
53 
  frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue;
 54 
  frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue;
- 
 
 55 
  frmBugtracker.aktuellesProjektName := cbxProjekt.Text;
- 
 
 56 
 
- 
 
 57 
  frmBugtracker.LblAngemeldet.Caption := Format('Eingeloggt: %s, Projekt: %s', [frmBugtracker.eingeloggtMitarbeiterName, frmBugtracker.aktuellesProjektName]);
54 
  frmBugtracker.NeuFiltern;
 58 
  frmBugtracker.NeuFiltern;
- 
 
 59 
 
55 
  ModalResult := mrOk; // Das schließt den Dialog
 60 
  ModalResult := mrOk; // Das schließt den Dialog
56 
end;
 61 
end;
57 
 
 62 
 
58 
procedure TfrmLogin.Label2Click(Sender: TObject);
 63 
procedure TfrmLogin.Label2Click(Sender: TObject);
59 
begin
 64 
begin