WebSVN – winbugtracker – Diff – /trunk/BugtrackerMain.pas


unit BugtrackerMain;
 
(*
 * TODO:
 * - Spezielle Filter
 *   ... Auflisten nach Modul
 *   ... Anzeigen der Agenda
 * - rtf control bar?
 * - ein neu angelegter bug soll links aus der leiste verschwinden, wenn er nicht in das kriterium passt
 *
 * NOT INCLUDED:
 * - duplicate of
 *
 * FUTURE:
 * - HS Info integration
 *)
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
  ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
 
type
  TfrmBugtracker = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    DBNavigator2: TDBNavigator;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBNavigator1: TDBNavigator;
    DBRichEdit1: TDBRichEdit;
    DBEdit1: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    TrackBar1: TTrackBar;
    ADOConnection1: TADOConnection;
    dsBugs: TDataSource;
    tblMitarbeiter: TADOTable;
    dsMitarbeiter: TDataSource;
    MainMenu1: TMainMenu;
    Stammdaten1: TMenuItem;
    Mitarbeiter1: TMenuItem;
    Projekte1: TMenuItem;
    Module1: TMenuItem;
    Versionen1: TMenuItem;
    Projektwechseln1: TMenuItem;
    XPManifest1: TXPManifest;
    qryBugs: TADOQuery;
    dsVersionen: TDataSource;
    tblProjekte: TADOTable;
    dsProjekte: TDataSource;
    dsModule: TDataSource;
    Timer1: TTimer;
    Splitter1: TSplitter;
    Hilfe1: TMenuItem;
    ber1: TMenuItem;
    btnBearbeitungsnotiz: TButton;
    qryBugsid: TAutoIncField;
    qryBugstitel: TStringField;
    qryBugsbeschreibung: TMemoField;
    qryBugserstellt: TDateTimeField;
    qryBugswichtigkeit: TIntegerField;
    qryBugsbearbeiter: TIntegerField;
    qryBugsversion_release: TIntegerField;
    qryBugsmodul: TIntegerField;
    qryBugsprojekt: TIntegerField;
    qryVersionen: TADOQuery;
    qryModule: TADOQuery;
    LblAngemeldet: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    qryBugserfasser: TIntegerField;
    qryBugsversion_agenda: TIntegerField;
    Label9: TLabel;
    cbxErfasser: TDBLookupComboBox;
    Label10: TLabel;
    lkpStatus: TADOTable;
    dsStatus: TDataSource;
    DBLookupComboBox5: TDBLookupComboBox;
    qryBugsstatus: TIntegerField;
    qryBugsstatus_geaendert: TDateTimeField;
    Bugs1: TMenuItem;
    Wechselnzu1: TMenuItem;
    procedure Mitarbeiter1Click(Sender: TObject);
    procedure qryBugsAfterScroll(DataSet: TDataSet);
    procedure Module1Click(Sender: TObject);
    procedure Projekte1Click(Sender: TObject);
    procedure Versionen1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Projektwechseln1Click(Sender: TObject);
    procedure qryBugsAfterInsert(DataSet: TDataSet);
    procedure ber1Click(Sender: TObject);
    procedure qryBugsversion_releaseValidate(Sender: TField);
    procedure FormCreate(Sender: TObject);
    procedure qryVersionenAfterInsert(DataSet: TDataSet);
    procedure qryModuleAfterInsert(DataSet: TDataSet);
    procedure btnBearbeitungsnotizClick(Sender: TObject);
    procedure qryBugsBeforeCancel(DataSet: TDataSet);
    procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure qryBugsstatusChange(Sender: TField);
    procedure Wechselnzu1Click(Sender: TObject);
  public
    eingeloggtMitarbeiter: integer;
    eingeloggtMitarbeiterName: string;
    aktuellesProjekt: integer;
    aktuellesProjektName: string;
    procedure NeuFiltern;
    procedure NotizHinzufuegen(color: TColor; bez: string);
  end;
 
var
  frmBugtracker: TfrmBugtracker;
 
implementation
 
uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles;
 
{$R *.dfm}
 
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
begin
  // Standardwerte für einen neuen Bug
  qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
  qryBugs.FieldByName('erstellt').AsDateTime := Now;
  qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
  qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
  qryBugs.FieldByName('status').AsInteger := 1; // Offen
end;
 
procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
var
  bakEvent: TNotifyEvent;
begin
  bakEvent := TrackBar1.OnChange;
  TrackBar1.OnChange := nil;
  try
    TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;
  finally
    TrackBar1.OnChange := bakEvent;
  end;
end;
 
procedure TfrmBugtracker.qryBugsBeforeCancel(DataSet: TDataSet);
var
  abfrage: Integer;
begin
  // Tag 1 = Es wurde der "Abbrechen"-Knopf im DBNavigator gedrückt, also wollen wir keine unnötige Bestätigung
  // Alles andere = Irgendwas anderes (z.B. Scrolling oder versehentlich versucht das Fenster zu schließen)
  if qryBugs.Tag = 1 then exit;
 
  abfrage := MessageDlg('Speichern?', mtConfirmation, mbYesNoCancel, 0);
 
  if (abfrage = IDNo) or (abfrage = IDYes) or (abfrage = IDOK) then
  begin
     if abfrage = IDYes then
     begin
       if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Post;
     end;
     if abfrage = IDNo then
     begin
       // Wir befinden uns bereits in qryBugs.Cancel, daher auskommentiert.
       // if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Cancel;
     end;
  end
  else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt
end;
 
procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);
var
  col: TColor;
begin
  qryBugsstatus_geaendert.AsDateTime := Now;
 
  DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
  case qryBugsstatus.AsInteger of
    // TODO: farben in db?
    1: col := clRed; // Offen
    2: col := clMaroon; // Abgelehnt
    3: col := clPurple; // In Bearbeitung
    4: col := clTeal; // Gefixt
    5: col := clGreen; // Veröffentlicht
    else
      col := clBlack; // sollte nicht passieren
  end;
  NotizHinzufuegen(col, DBLookupComboBox5.Text);
end;
 
procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
begin
  if qryBugs.FieldByName('status').AsInteger <> 5 then
  begin
    // raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');
    qryBugs.FieldByName('status').AsInteger := 5;
  end;
end;
 
procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);
begin
  // Standardwerte für ein neues Modul
  qryModule.FieldByName('projekt').AsInteger := aktuellesProjekt;
end;
 
procedure TfrmBugtracker.qryVersionenAfterInsert(DataSet: TDataSet);
begin
  // Standardwerte für eine neue Version
  qryVersionen.FieldByName('projekt').AsInteger := aktuellesProjekt;
end;
 
procedure TfrmBugtracker.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  if frmLogin.ShowModal = mrCancel then Close;
end;
 
procedure TfrmBugtracker.TrackBar1Change(Sender: TObject);
begin
  if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
  qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;
end;
 
procedure TfrmBugtracker.Versionen1Click(Sender: TObject);
begin
  frmVersionen.ShowModal;
end;
 
procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);
var
  s: string;
  id, ec: integer;
begin
  s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));
  if s = '' then exit;  
  Val(s, id, ec);
  if ec <> 0 then
  begin
    ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);
    exit;
  end;
  qryBugs.Locate('id', id, []);
end;
 
procedure TfrmBugtracker.ber1Click(Sender: TObject);
begin
  AboutBox.ShowModal;
end;
 
procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);
begin
  NotizHinzufuegen(clOlive, 'Notiz');
end;
 
procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:
      begin
        // Meine offenen Aufgaben (nach Wichtigkeit)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
      end;
    1:
      begin
        // Alle offenen Aufgaben (nach Wichtigkeit)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
      end;
    2:
      begin
        // Gelöst ohne Veröffentlichung (nach Lösungsdatum)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';
      end;
    3:
      begin
        // Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
      end;
    4:
      begin
        // Von mir erfasste Aufgaben (nach Erfassungsdatum)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC';
      end;
    5:
      begin
        // Alle Aufgaben (nach Eröffnungsdatum)
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
      end;
  end;
  qryBugs.Active := true;
end;
 
procedure TfrmBugtracker.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbCancel then
  begin
    if qryBugs.state  in [dsEdit,dsInsert] then
    begin
      // Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.
      // Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch
      // bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
      // OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
      qryBugs.Tag := 1;
      qryBugs.Cancel;
      qryBugs.Tag := 0;
    end;
  end;
end;
 
procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  qryBugs.Cancel;
end;
 
procedure TfrmBugtracker.FormCreate(Sender: TObject);
var
  ini: TMemIniFile;
begin
  ini := TMemIniFile.Create('bugtracker.ini');
  try
    ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
  finally
    ini.Free;
  end;
 
  ADOConnection1.Connected := true;
  qryBugs.Active := true;
  tblMitarbeiter.Active := true;
  qryVersionen.Active := true;
  tblProjekte.Active := true;
  qryModule.Active := true;
  lkpStatus.Active := true;
end;
 
procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);
begin
  frmMitarbeiter.ShowModal;
end;
 
procedure TfrmBugtracker.Module1Click(Sender: TObject);
begin
  frmModule.ShowModal;
end;
 
procedure TfrmBugtracker.NeuFiltern;
begin
  ComboBox1Change(ComboBox1);
 
  qryModule.SQL.Text := 'SELECT * FROM module WHERE projekt = ' + IntToStr(aktuellesProjekt);
  qryModule.Active := true;
 
  qryVersionen.SQL.Text := 'SELECT * FROM versionen WHERE projekt = ' + IntToStr(aktuellesProjekt);
  qryVersionen.Active := true;
end;
 
procedure TfrmBugtracker.NotizHinzufuegen(color: TColor; bez: string);
var
  leerzeilen: integer;
  umbruch: string;
  prefix: string;
begin
  if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
 
  // Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.
  if Trim(DBRichEdit1.Text) <> '' then
  begin
    leerzeilen := 0;
    if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile
    if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile
    case leerzeilen of
      0: umbruch := #13#10#13#10;
      1: umbruch := #13#10;
      2: umbruch := '';
    end;
  end
  else
  begin
    umbruch := '';
  end;
 
  DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
  DBRichEdit1.SelText := umbruch;
 
  DBRichEdit1.SelAttributes.Size := 13;
  DBRichEdit1.SelAttributes.Color := color;
  DBRichEdit1.SelAttributes.Style := [fsUnderline];
  if Trim(bez) <> '' then
    prefix := Trim(bez) + ' - '
  else
    prefix := '';
  DBRichEdit1.SelText := prefix + eingeloggtMitarbeiterName + ' ' + FormatDateTime('dd.mm.yyyy hh:nn', Now); // DateTimeToStr(Now);
 
  DBRichEdit1.SelAttributes.Size := 10;
  DBRichEdit1.SelAttributes.Color := clWindowText;
  DBRichEdit1.SelAttributes.Style := [];
  DBRichEdit1.SelText := #13#10 {+ '<Hier Text eingeben>'};
 
  // Ans Ende scrollen
  DBRichEdit1.SetFocus;
  DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
  DBRichEdit1.Perform(EM_SCROLLCARET, 0, 0);
end;
 
procedure TfrmBugtracker.Projekte1Click(Sender: TObject);
begin
  frmProjekte.ShowModal;
end;
 
procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject);
begin
  frmLogin.ShowModal;
end;
 
end.
 

Rev 12	Rev 13
1	unit BugtrackerMain;	1	unit BugtrackerMain;
2		2
3	(*	3	(*
4	* TODO:	4	* TODO:
5	* - Spezielle Filter	5	* - Spezielle Filter
6	* ... Auflisten nach Modul	6	* ... Auflisten nach Modul
7	* ... Anzeigen der Agenda	7	* ... Anzeigen der Agenda
8	* - rtf control bar?	8	* - rtf control bar?
9	* - ein neu angelegter bug soll links aus der leiste verschwinden, wenn er nicht in das kriterium passt	9	* - ein neu angelegter bug soll links aus der leiste verschwinden, wenn er nicht in das kriterium passt
10	*	10	*
11	* NOT INCLUDED:	11	* NOT INCLUDED:
12	* - duplicate of	12	* - duplicate of
13	*	13	*
14	* FUTURE:	14	* FUTURE:
15	* - HS Info integration	15	* - HS Info integration
16	*)	16	*)
17		17
18	interface	18	interface
19		19
20	uses	20	uses
21	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,	21	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
22	Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,	22	Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
23	ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;	23	ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
24		24
25	type	25	type
26	TfrmBugtracker = class(TForm)	26	TfrmBugtracker = class(TForm)
27	Panel1: TPanel;	27	Panel1: TPanel;
28	DBGrid1: TDBGrid;	28	DBGrid1: TDBGrid;
29	ComboBox1: TComboBox;	29	ComboBox1: TComboBox;
30	DBNavigator2: TDBNavigator;	30	DBNavigator2: TDBNavigator;
31	Panel2: TPanel;	31	Panel2: TPanel;
32	Label1: TLabel;	32	Label1: TLabel;
33	Label2: TLabel;	33	Label2: TLabel;
34	Label3: TLabel;	34	Label3: TLabel;
35	Label4: TLabel;	35	Label4: TLabel;
36	Label5: TLabel;	36	Label5: TLabel;
37	Label6: TLabel;	37	Label6: TLabel;
38	DBNavigator1: TDBNavigator;	38	DBNavigator1: TDBNavigator;
39	DBRichEdit1: TDBRichEdit;	39	DBRichEdit1: TDBRichEdit;
40	DBEdit1: TDBEdit;	40	DBEdit1: TDBEdit;
41	DBLookupComboBox1: TDBLookupComboBox;	41	DBLookupComboBox1: TDBLookupComboBox;
42	DBEdit2: TDBEdit;	42	DBEdit2: TDBEdit;
43	DBEdit3: TDBEdit;	43	DBEdit3: TDBEdit;
44	DBLookupComboBox2: TDBLookupComboBox;	44	DBLookupComboBox2: TDBLookupComboBox;
45	DBLookupComboBox3: TDBLookupComboBox;	45	DBLookupComboBox3: TDBLookupComboBox;
46	TrackBar1: TTrackBar;	46	TrackBar1: TTrackBar;
47	ADOConnection1: TADOConnection;	47	ADOConnection1: TADOConnection;
48	dsBugs: TDataSource;	48	dsBugs: TDataSource;
49	tblMitarbeiter: TADOTable;	49	tblMitarbeiter: TADOTable;
50	dsMitarbeiter: TDataSource;	50	dsMitarbeiter: TDataSource;
51	MainMenu1: TMainMenu;	51	MainMenu1: TMainMenu;
52	Stammdaten1: TMenuItem;	52	Stammdaten1: TMenuItem;
53	Mitarbeiter1: TMenuItem;	53	Mitarbeiter1: TMenuItem;
54	Projekte1: TMenuItem;	54	Projekte1: TMenuItem;
55	Module1: TMenuItem;	55	Module1: TMenuItem;
56	Versionen1: TMenuItem;	56	Versionen1: TMenuItem;
57	Projektwechseln1: TMenuItem;	57	Projektwechseln1: TMenuItem;
58	XPManifest1: TXPManifest;	58	XPManifest1: TXPManifest;
59	qryBugs: TADOQuery;	59	qryBugs: TADOQuery;
60	dsVersionen: TDataSource;	60	dsVersionen: TDataSource;
61	tblProjekte: TADOTable;	61	tblProjekte: TADOTable;
62	dsProjekte: TDataSource;	62	dsProjekte: TDataSource;
63	dsModule: TDataSource;	63	dsModule: TDataSource;
64	Timer1: TTimer;	64	Timer1: TTimer;
65	Splitter1: TSplitter;	65	Splitter1: TSplitter;
66	Hilfe1: TMenuItem;	66	Hilfe1: TMenuItem;
67	ber1: TMenuItem;	67	ber1: TMenuItem;
68	btnBearbeitungsnotiz: TButton;	68	btnBearbeitungsnotiz: TButton;
69	qryBugsid: TAutoIncField;	69	qryBugsid: TAutoIncField;
70	qryBugstitel: TStringField;	70	qryBugstitel: TStringField;
71	qryBugsbeschreibung: TMemoField;	71	qryBugsbeschreibung: TMemoField;
72	qryBugserstellt: TDateTimeField;	72	qryBugserstellt: TDateTimeField;
73	qryBugswichtigkeit: TIntegerField;	73	qryBugswichtigkeit: TIntegerField;
74	qryBugsbearbeiter: TIntegerField;	74	qryBugsbearbeiter: TIntegerField;
75	qryBugsversion_release: TIntegerField;	75	qryBugsversion_release: TIntegerField;
76	qryBugsmodul: TIntegerField;	76	qryBugsmodul: TIntegerField;
77	qryBugsprojekt: TIntegerField;	77	qryBugsprojekt: TIntegerField;
78	qryVersionen: TADOQuery;	78	qryVersionen: TADOQuery;
79	qryModule: TADOQuery;	79	qryModule: TADOQuery;
80	LblAngemeldet: TLabel;	80	LblAngemeldet: TLabel;
81	Label7: TLabel;	81	Label7: TLabel;
82	Label8: TLabel;	82	Label8: TLabel;
83	DBLookupComboBox4: TDBLookupComboBox;	83	DBLookupComboBox4: TDBLookupComboBox;
84	qryBugserfasser: TIntegerField;	84	qryBugserfasser: TIntegerField;
85	qryBugsversion_agenda: TIntegerField;	85	qryBugsversion_agenda: TIntegerField;
86	Label9: TLabel;	86	Label9: TLabel;
87	cbxErfasser: TDBLookupComboBox;	87	cbxErfasser: TDBLookupComboBox;
88	Label10: TLabel;	88	Label10: TLabel;
89	lkpStatus: TADOTable;	89	lkpStatus: TADOTable;
90	dsStatus: TDataSource;	90	dsStatus: TDataSource;
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	procedure Mitarbeiter1Click(Sender: TObject);	96	procedure Mitarbeiter1Click(Sender: TObject);
97	procedure qryBugsAfterScroll(DataSet: TDataSet);	97	procedure qryBugsAfterScroll(DataSet: TDataSet);
98	procedure Module1Click(Sender: TObject);	98	procedure Module1Click(Sender: TObject);
99	procedure Projekte1Click(Sender: TObject);	99	procedure Projekte1Click(Sender: TObject);
100	procedure Versionen1Click(Sender: TObject);	100	procedure Versionen1Click(Sender: TObject);
101	procedure TrackBar1Change(Sender: TObject);	101	procedure TrackBar1Change(Sender: TObject);
102	procedure Timer1Timer(Sender: TObject);	102	procedure Timer1Timer(Sender: TObject);
103	procedure ComboBox1Change(Sender: TObject);	103	procedure ComboBox1Change(Sender: TObject);
104	procedure Projektwechseln1Click(Sender: TObject);	104	procedure Projektwechseln1Click(Sender: TObject);
105	procedure qryBugsAfterInsert(DataSet: TDataSet);	105	procedure qryBugsAfterInsert(DataSet: TDataSet);
106	procedure ber1Click(Sender: TObject);	106	procedure ber1Click(Sender: TObject);
107	procedure qryBugsversion_releaseValidate(Sender: TField);	107	procedure qryBugsversion_releaseValidate(Sender: TField);
108	procedure FormCreate(Sender: TObject);	108	procedure FormCreate(Sender: TObject);
109	procedure qryVersionenAfterInsert(DataSet: TDataSet);	109	procedure qryVersionenAfterInsert(DataSet: TDataSet);
110	procedure qryModuleAfterInsert(DataSet: TDataSet);	110	procedure qryModuleAfterInsert(DataSet: TDataSet);
111	procedure btnBearbeitungsnotizClick(Sender: TObject);	111	procedure btnBearbeitungsnotizClick(Sender: TObject);
112	procedure qryBugsBeforeCancel(DataSet: TDataSet);	112	procedure qryBugsBeforeCancel(DataSet: TDataSet);
113	procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);	113	procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
114	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);	114	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
115	procedure qryBugsstatusChange(Sender: TField);	115	procedure qryBugsstatusChange(Sender: TField);
116	procedure Wechselnzu1Click(Sender: TObject);	116	procedure Wechselnzu1Click(Sender: TObject);
117	public	117	public
118	eingeloggtMitarbeiter: integer;	118	eingeloggtMitarbeiter: integer;
119	eingeloggtMitarbeiterName: string;	119	eingeloggtMitarbeiterName: string;
120	aktuellesProjekt: integer;	120	aktuellesProjekt: integer;
121	aktuellesProjektName: string;	121	aktuellesProjektName: string;
122	procedure NeuFiltern;	122	procedure NeuFiltern;
123	procedure NotizHinzufuegen(color: TColor; bez: string);	123	procedure NotizHinzufuegen(color: TColor; bez: string);
124	end;	124	end;
125		125
126	var	126	var
127	frmBugtracker: TfrmBugtracker;	127	frmBugtracker: TfrmBugtracker;
128		128
129	implementation	129	implementation
130		130
131	uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles;	131	uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles;
132		132
133	{$R *.dfm}	133	{$R *.dfm}
134		134
135	procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);	135	procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
136	begin	136	begin
137	// Standardwerte für einen neuen Bug	137	// Standardwerte für einen neuen Bug
138	qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte	138	qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
139	qryBugs.FieldByName('erstellt').AsDateTime := Now;	139	qryBugs.FieldByName('erstellt').AsDateTime := Now;
140	qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;	140	qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
141	qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;	141	qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
142	qryBugs.FieldByName('status').AsInteger := 1; // Offen	142	qryBugs.FieldByName('status').AsInteger := 1; // Offen
143	end;	143	end;
144		144
145	procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);	145	procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
146	var	146	var
147	bakEvent: TNotifyEvent;	147	bakEvent: TNotifyEvent;
148	begin	148	begin
149	bakEvent := TrackBar1.OnChange;	149	bakEvent := TrackBar1.OnChange;
150	TrackBar1.OnChange := nil;	150	TrackBar1.OnChange := nil;
151	try	151	try
152	TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;	152	TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;
153	finally	153	finally
154	TrackBar1.OnChange := bakEvent;	154	TrackBar1.OnChange := bakEvent;
155	end;	155	end;
156	end;	156	end;
157		157
158	procedure TfrmBugtracker.qryBugsBeforeCancel(DataSet: TDataSet);	158	procedure TfrmBugtracker.qryBugsBeforeCancel(DataSet: TDataSet);
159	var	159	var
160	abfrage: Integer;	160	abfrage: Integer;
161	begin	161	begin
162	// Tag 1 = Es wurde der "Abbrechen"-Knopf im DBNavigator gedrückt, also wollen wir keine unnötige Bestätigung	162	// Tag 1 = Es wurde der "Abbrechen"-Knopf im DBNavigator gedrückt, also wollen wir keine unnötige Bestätigung
163	// Alles andere = Irgendwas anderes (z.B. Scrolling oder versehentlich versucht das Fenster zu schließen)	163	// Alles andere = Irgendwas anderes (z.B. Scrolling oder versehentlich versucht das Fenster zu schließen)
164	if qryBugs.Tag = 1 then exit;	164	if qryBugs.Tag = 1 then exit;
165		165
166	abfrage := MessageDlg('Speichern?', mtConfirmation, mbYesNoCancel, 0);	166	abfrage := MessageDlg('Speichern?', mtConfirmation, mbYesNoCancel, 0);
167		167
168	if (abfrage = IDNo) or (abfrage = IDYes) or (abfrage = IDOK) then	168	if (abfrage = IDNo) or (abfrage = IDYes) or (abfrage = IDOK) then
169	begin	169	begin
170	if abfrage = IDYes then	170	if abfrage = IDYes then
171	begin	171	begin
172	if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Post;	172	if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Post;
173	end;	173	end;
174	if abfrage = IDNo then	174	if abfrage = IDNo then
175	begin	175	begin
176	// Wir befinden uns bereits in qryBugs.Cancel, daher auskommentiert.	176	// Wir befinden uns bereits in qryBugs.Cancel, daher auskommentiert.
177	// if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Cancel;	177	// if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Cancel;
178	end;	178	end;
179	end	179	end
180	else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt	180	else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt
181	end;	181	end;
182		182
183	procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);	183	procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);
184	var	184	var
185	col: TColor;	185	col: TColor;
186	begin	186	begin
187	qryBugsstatus_geaendert.AsDateTime := Now;	187	qryBugsstatus_geaendert.AsDateTime := Now;
188		188
189	DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können	189	DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
190	case qryBugsstatus.AsInteger of	190	case qryBugsstatus.AsInteger of
191	// TODO: farben in db?	191	// TODO: farben in db?
192	1: col := clRed; // Offen	192	1: col := clRed; // Offen
193	2: col := clMaroon; // Abgelehnt	193	2: col := clMaroon; // Abgelehnt
194	3: col := clPurple; // In Bearbeitung	194	3: col := clPurple; // In Bearbeitung
195	4: col := clTeal; // Gefixt	195	4: col := clTeal; // Gefixt
196	5: col := clGreen; // Veröffentlicht	196	5: col := clGreen; // Veröffentlicht
197	else	197	else
198	col := clBlack; // sollte nicht passieren	198	col := clBlack; // sollte nicht passieren
199	end;	199	end;
200	NotizHinzufuegen(col, DBLookupComboBox5.Text);	200	NotizHinzufuegen(col, DBLookupComboBox5.Text);
201	end;	201	end;
202		202
203	procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);	203	procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
204	begin	204	begin
205	if qryBugs.FieldByName('status').AsInteger <> 5 then	205	if qryBugs.FieldByName('status').AsInteger <> 5 then
206	begin	206	begin
207	// raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');	207	// raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');
208	qryBugs.FieldByName('status').AsInteger := 5;	208	qryBugs.FieldByName('status').AsInteger := 5;
209	end;	209	end;
210	end;	210	end;
211		211
212	procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);	212	procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);
213	begin	213	begin
214	// Standardwerte für ein neues Modul	214	// Standardwerte für ein neues Modul
215	qryModule.FieldByName('projekt').AsInteger := aktuellesProjekt;	215	qryModule.FieldByName('projekt').AsInteger := aktuellesProjekt;
216	end;	216	end;
217		217
218	procedure TfrmBugtracker.qryVersionenAfterInsert(DataSet: TDataSet);	218	procedure TfrmBugtracker.qryVersionenAfterInsert(DataSet: TDataSet);
219	begin	219	begin
220	// Standardwerte für eine neue Version	220	// Standardwerte für eine neue Version
221	qryVersionen.FieldByName('projekt').AsInteger := aktuellesProjekt;	221	qryVersionen.FieldByName('projekt').AsInteger := aktuellesProjekt;
222	end;	222	end;
223		223
224	procedure TfrmBugtracker.Timer1Timer(Sender: TObject);	224	procedure TfrmBugtracker.Timer1Timer(Sender: TObject);
225	begin	225	begin
226	Timer1.Enabled := false;	226	Timer1.Enabled := false;
227	if frmLogin.ShowModal = mrCancel then Close;	227	if frmLogin.ShowModal = mrCancel then Close;
228	end;	228	end;
229		229
230	procedure TfrmBugtracker.TrackBar1Change(Sender: TObject);	230	procedure TfrmBugtracker.TrackBar1Change(Sender: TObject);
231	begin	231	begin
232	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;	232	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
233	qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;	233	qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;
234	end;	234	end;
235		235
236	procedure TfrmBugtracker.Versionen1Click(Sender: TObject);	236	procedure TfrmBugtracker.Versionen1Click(Sender: TObject);
237	begin	237	begin
238	frmVersionen.ShowModal;	238	frmVersionen.ShowModal;
239	end;	239	end;
240		240
241	procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);	241	procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);
242	var	242	var
243	s: string;	243	s: string;
244	id, ec: integer;	244	id, ec: integer;
245	begin	245	begin
246	s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));	246	s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));
247	if s = '' then exit;	247	if s = '' then exit;
248	Val(s, id, ec);	248	Val(s, id, ec);
249	if ec <> 0 then	249	if ec <> 0 then
250	begin	250	begin
251	ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);	251	ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);
252	exit;	252	exit;
253	end;	253	end;
254	qryBugs.Locate('id', id, []);	254	qryBugs.Locate('id', id, []);
255	end;	255	end;
256		256
257	procedure TfrmBugtracker.ber1Click(Sender: TObject);	257	procedure TfrmBugtracker.ber1Click(Sender: TObject);
258	begin	258	begin
259	AboutBox.ShowModal;	259	AboutBox.ShowModal;
260	end;	260	end;
261		261
262	procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);	262	procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);
263	begin	263	begin
264	NotizHinzufuegen(clOlive, 'Notiz');	264	NotizHinzufuegen(clOlive, 'Notiz');
265	end;	265	end;
266		266
267	procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);	267	procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
268	begin	268	begin
269	case ComboBox1.ItemIndex of	269	case ComboBox1.ItemIndex of
270	0:	270	0:
271	begin	271	begin
272	// Meine offenen Bugs (nach Wichtigkeit)	272	// Meine offenen Aufgaben (nach Wichtigkeit)
273	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';	273	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
274	end;	274	end;
275	1:	275	1:
276	begin	276	begin
277	// Alle offenen Bugs (nach Wichtigkeit)	277	// Alle offenen Aufgaben (nach Wichtigkeit)
278	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';	278	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
279	end;	279	end;
280	2:	280	2:
281	begin	281	begin
282	// Gelöst ohne Veröffentlichung (nach Lösungsdatum)	282	// Gelöst ohne Veröffentlichung (nach Lösungsdatum)
283	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';	283	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';
284	end;	284	end;
285	3:	285	3:
286	begin	286	begin
287	// Gelöst und Veröffentlicht (nach Version und Lösungsdatum)	287	// Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
288	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';	288	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
289	end;	289	end;
290	4:	290	4:
291	begin	291	begin
-		292	// Von mir erfasste Aufgaben (nach Erfassungsdatum)
-		293	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC';
-		294	end;
-		295	5:
-		296	begin
292	// Alle Bugs (nach Eröffnungsdatum)	297	// Alle Aufgaben (nach Eröffnungsdatum)
293	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';	298	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
294	end;	299	end;
295	end;	300	end;
296	qryBugs.Active := true;	301	qryBugs.Active := true;
297	end;	302	end;
298		303
299	procedure TfrmBugtracker.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);	304	procedure TfrmBugtracker.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
300	begin	305	begin
301	if Button = nbCancel then	306	if Button = nbCancel then
302	begin	307	begin
303	if qryBugs.state in [dsEdit,dsInsert] then	308	if qryBugs.state in [dsEdit,dsInsert] then
304	begin	309	begin
305	// Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.	310	// Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.
306	// Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch	311	// Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch
307	// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor	312	// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
308	// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.	313	// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
309	qryBugs.Tag := 1;	314	qryBugs.Tag := 1;
310	qryBugs.Cancel;	315	qryBugs.Cancel;
311	qryBugs.Tag := 0;	316	qryBugs.Tag := 0;
312	end;	317	end;
313	end;	318	end;
314	end;	319	end;
315		320
316	procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);	321	procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
317	begin	322	begin
318	qryBugs.Cancel;	323	qryBugs.Cancel;
319	end;	324	end;
320		325
321	procedure TfrmBugtracker.FormCreate(Sender: TObject);	326	procedure TfrmBugtracker.FormCreate(Sender: TObject);
322	var	327	var
323	ini: TMemIniFile;	328	ini: TMemIniFile;
324	begin	329	begin
325	ini := TMemIniFile.Create('bugtracker.ini');	330	ini := TMemIniFile.Create('bugtracker.ini');
326	try	331	try
327	ADOConnection1.Connected := false;	332	ADOConnection1.Connected := false;
328	ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');	333	ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
329	finally	334	finally
330	ini.Free;	335	ini.Free;
331	end;	336	end;
332		337
333	ADOConnection1.Connected := true;	338	ADOConnection1.Connected := true;
334	qryBugs.Active := true;	339	qryBugs.Active := true;
335	tblMitarbeiter.Active := true;	340	tblMitarbeiter.Active := true;
336	qryVersionen.Active := true;	341	qryVersionen.Active := true;
337	tblProjekte.Active := true;	342	tblProjekte.Active := true;
338	qryModule.Active := true;	343	qryModule.Active := true;
339	lkpStatus.Active := true;	344	lkpStatus.Active := true;
340	end;	345	end;
341		346
342	procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);	347	procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);
343	begin	348	begin
344	frmMitarbeiter.ShowModal;	349	frmMitarbeiter.ShowModal;
345	end;	350	end;
346		351
347	procedure TfrmBugtracker.Module1Click(Sender: TObject);	352	procedure TfrmBugtracker.Module1Click(Sender: TObject);
348	begin	353	begin
349	frmModule.ShowModal;	354	frmModule.ShowModal;
350	end;	355	end;
351		356
352	procedure TfrmBugtracker.NeuFiltern;	357	procedure TfrmBugtracker.NeuFiltern;
353	begin	358	begin
354	ComboBox1Change(ComboBox1);	359	ComboBox1Change(ComboBox1);
355		360
356	qryModule.SQL.Text := 'SELECT * FROM module WHERE projekt = ' + IntToStr(aktuellesProjekt);	361	qryModule.SQL.Text := 'SELECT * FROM module WHERE projekt = ' + IntToStr(aktuellesProjekt);
357	qryModule.Active := true;	362	qryModule.Active := true;
358		363
359	qryVersionen.SQL.Text := 'SELECT * FROM versionen WHERE projekt = ' + IntToStr(aktuellesProjekt);	364	qryVersionen.SQL.Text := 'SELECT * FROM versionen WHERE projekt = ' + IntToStr(aktuellesProjekt);
360	qryVersionen.Active := true;	365	qryVersionen.Active := true;
361	end;	366	end;
362		367
363	procedure TfrmBugtracker.NotizHinzufuegen(color: TColor; bez: string);	368	procedure TfrmBugtracker.NotizHinzufuegen(color: TColor; bez: string);
364	var	369	var
365	leerzeilen: integer;	370	leerzeilen: integer;
366	umbruch: string;	371	umbruch: string;
367	prefix: string;	372	prefix: string;
368	begin	373	begin
369	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;	374	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
370		375
371	// Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.	376	// Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.
372	if Trim(DBRichEdit1.Text) <> '' then	377	if Trim(DBRichEdit1.Text) <> '' then
373	begin	378	begin
374	leerzeilen := 0;	379	leerzeilen := 0;
375	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile	380	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile
376	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile	381	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile
377	case leerzeilen of	382	case leerzeilen of
378	0: umbruch := #13#10#13#10;	383	0: umbruch := #13#10#13#10;
379	1: umbruch := #13#10;	384	1: umbruch := #13#10;
380	2: umbruch := '';	385	2: umbruch := '';
381	end;	386	end;
382	end	387	end
383	else	388	else
384	begin	389	begin
385	umbruch := '';	390	umbruch := '';
386	end;	391	end;
387		392
388	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;	393	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
389	DBRichEdit1.SelText := umbruch;	394	DBRichEdit1.SelText := umbruch;
390		395
391	DBRichEdit1.SelAttributes.Size := 13;	396	DBRichEdit1.SelAttributes.Size := 13;
392	DBRichEdit1.SelAttributes.Color := color;	397	DBRichEdit1.SelAttributes.Color := color;
393	DBRichEdit1.SelAttributes.Style := [fsUnderline];	398	DBRichEdit1.SelAttributes.Style := [fsUnderline];
394	if Trim(bez) <> '' then	399	if Trim(bez) <> '' then
395	prefix := Trim(bez) + ' - '	400	prefix := Trim(bez) + ' - '
396	else	401	else
397	prefix := '';	402	prefix := '';
398	DBRichEdit1.SelText := prefix + eingeloggtMitarbeiterName + ' ' + FormatDateTime('dd.mm.yyyy hh:nn', Now); // DateTimeToStr(Now);	403	DBRichEdit1.SelText := prefix + eingeloggtMitarbeiterName + ' ' + FormatDateTime('dd.mm.yyyy hh:nn', Now); // DateTimeToStr(Now);
399		404
400	DBRichEdit1.SelAttributes.Size := 10;	405	DBRichEdit1.SelAttributes.Size := 10;
401	DBRichEdit1.SelAttributes.Color := clWindowText;	406	DBRichEdit1.SelAttributes.Color := clWindowText;
402	DBRichEdit1.SelAttributes.Style := [];	407	DBRichEdit1.SelAttributes.Style := [];
403	DBRichEdit1.SelText := #13#10 {+ '<Hier Text eingeben>'};	408	DBRichEdit1.SelText := #13#10 {+ '<Hier Text eingeben>'};
404		409
405	// Ans Ende scrollen	410	// Ans Ende scrollen
406	DBRichEdit1.SetFocus;	411	DBRichEdit1.SetFocus;
407	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;	412	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
408	DBRichEdit1.Perform(EM_SCROLLCARET, 0, 0);	413	DBRichEdit1.Perform(EM_SCROLLCARET, 0, 0);
409	end;	414	end;
410		415
411	procedure TfrmBugtracker.Projekte1Click(Sender: TObject);	416	procedure TfrmBugtracker.Projekte1Click(Sender: TObject);
412	begin	417	begin
413	frmProjekte.ShowModal;	418	frmProjekte.ShowModal;
414	end;	419	end;
415		420
416	procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject);	421	procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject);
417	begin	422	begin
418	frmLogin.ShowModal;	423	frmLogin.ShowModal;
419	end;	424	end;
420		425
421	end.	426	end.
422		427

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.pas – Rev 12 → 13