Subversion Repositories winbugtracker

Rev

Rev 13 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 14
Line 91... Line 91...
91 
    DBLookupComboBox5: TDBLookupComboBox;
 91 
    DBLookupComboBox5: TDBLookupComboBox;
92 
    qryBugsstatus: TIntegerField;
 92 
    qryBugsstatus: TIntegerField;
93 
    qryBugsstatus_geaendert: TDateTimeField;
 93 
    qryBugsstatus_geaendert: TDateTimeField;
94 
    Bugs1: TMenuItem;
 94 
    Bugs1: TMenuItem;
95 
    Wechselnzu1: TMenuItem;
 95 
    Wechselnzu1: TMenuItem;
- 
 
 96 
    lkpStatusid: TAutoIncField;
- 
 
 97 
    lkpStatusstatus: TStringField;
- 
 
 98 
    lkpStatuscolor: TIntegerField;
96 
    procedure Mitarbeiter1Click(Sender: TObject);
 99 
    procedure Mitarbeiter1Click(Sender: TObject);
97 
    procedure qryBugsAfterScroll(DataSet: TDataSet);
 100 
    procedure qryBugsAfterScroll(DataSet: TDataSet);
98 
    procedure Module1Click(Sender: TObject);
 101 
    procedure Module1Click(Sender: TObject);
99 
    procedure Projekte1Click(Sender: TObject);
 102 
    procedure Projekte1Click(Sender: TObject);
100 
    procedure Versionen1Click(Sender: TObject);
 103 
    procedure Versionen1Click(Sender: TObject);
Line 185... Line 188...
185 
  col: TColor;
 188 
  col: TColor;
186 
begin
 189 
begin
187 
  qryBugsstatus_geaendert.AsDateTime := Now;
 190 
  qryBugsstatus_geaendert.AsDateTime := Now;
188 
 
 191 
 
189 
  DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
 192 
  DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
190 
  case qryBugsstatus.AsInteger of
 193 
  col := TColor(lkpStatuscolor.AsInteger);
191 
    // TODO: farben in db?
 - 
 
192 
    1: col := clRed; // Offen
 - 
 
193 
    2: col := clMaroon; // Abgelehnt
 - 
 
194 
    3: col := clPurple; // In Bearbeitung
 - 
 
195 
    4: col := clTeal; // Gefixt
 - 
 
196 
    5: col := clGreen; // Veröffentlicht
 - 
 
197 
    else
 - 
 
198 
      col := clBlack; // sollte nicht passieren
 - 
 
199 
  end;
 - 
 
200 
  NotizHinzufuegen(col, DBLookupComboBox5.Text);
 194 
  NotizHinzufuegen(col, DBLookupComboBox5.Text);
201 
end;
 195 
end;
202 
 
 196 
 
203 
procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
 197 
procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
204 
begin
 198 
begin