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;
    lkpStatusid: TAutoIncField;
    lkpStatusstatus: TStringField;
    lkpStatuscolor: TIntegerField;
    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
  col := TColor(lkpStatuscolor.AsInteger);
  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;
      try
        qryBugs.Cancel;
      finally
        qryBugs.Tag := 0;
      end;
    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 14	Rev 15
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	lkpStatusid: TAutoIncField;	96	lkpStatusid: TAutoIncField;
97	lkpStatusstatus: TStringField;	97	lkpStatusstatus: TStringField;
98	lkpStatuscolor: TIntegerField;	98	lkpStatuscolor: TIntegerField;
99	procedure Mitarbeiter1Click(Sender: TObject);	99	procedure Mitarbeiter1Click(Sender: TObject);
100	procedure qryBugsAfterScroll(DataSet: TDataSet);	100	procedure qryBugsAfterScroll(DataSet: TDataSet);
101	procedure Module1Click(Sender: TObject);	101	procedure Module1Click(Sender: TObject);
102	procedure Projekte1Click(Sender: TObject);	102	procedure Projekte1Click(Sender: TObject);
103	procedure Versionen1Click(Sender: TObject);	103	procedure Versionen1Click(Sender: TObject);
104	procedure TrackBar1Change(Sender: TObject);	104	procedure TrackBar1Change(Sender: TObject);
105	procedure Timer1Timer(Sender: TObject);	105	procedure Timer1Timer(Sender: TObject);
106	procedure ComboBox1Change(Sender: TObject);	106	procedure ComboBox1Change(Sender: TObject);
107	procedure Projektwechseln1Click(Sender: TObject);	107	procedure Projektwechseln1Click(Sender: TObject);
108	procedure qryBugsAfterInsert(DataSet: TDataSet);	108	procedure qryBugsAfterInsert(DataSet: TDataSet);
109	procedure ber1Click(Sender: TObject);	109	procedure ber1Click(Sender: TObject);
110	procedure qryBugsversion_releaseValidate(Sender: TField);	110	procedure qryBugsversion_releaseValidate(Sender: TField);
111	procedure FormCreate(Sender: TObject);	111	procedure FormCreate(Sender: TObject);
112	procedure qryVersionenAfterInsert(DataSet: TDataSet);	112	procedure qryVersionenAfterInsert(DataSet: TDataSet);
113	procedure qryModuleAfterInsert(DataSet: TDataSet);	113	procedure qryModuleAfterInsert(DataSet: TDataSet);
114	procedure btnBearbeitungsnotizClick(Sender: TObject);	114	procedure btnBearbeitungsnotizClick(Sender: TObject);
115	procedure qryBugsBeforeCancel(DataSet: TDataSet);	115	procedure qryBugsBeforeCancel(DataSet: TDataSet);
116	procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);	116	procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
117	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);	117	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
118	procedure qryBugsstatusChange(Sender: TField);	118	procedure qryBugsstatusChange(Sender: TField);
119	procedure Wechselnzu1Click(Sender: TObject);	119	procedure Wechselnzu1Click(Sender: TObject);
120	public	120	public
121	eingeloggtMitarbeiter: integer;	121	eingeloggtMitarbeiter: integer;
122	eingeloggtMitarbeiterName: string;	122	eingeloggtMitarbeiterName: string;
123	aktuellesProjekt: integer;	123	aktuellesProjekt: integer;
124	aktuellesProjektName: string;	124	aktuellesProjektName: string;
125	procedure NeuFiltern;	125	procedure NeuFiltern;
126	procedure NotizHinzufuegen(color: TColor; bez: string);	126	procedure NotizHinzufuegen(color: TColor; bez: string);
127	end;	127	end;
128		128
129	var	129	var
130	frmBugtracker: TfrmBugtracker;	130	frmBugtracker: TfrmBugtracker;
131		131
132	implementation	132	implementation
133		133
134	uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles;	134	uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles;
135		135
136	{$R *.dfm}	136	{$R *.dfm}
137		137
138	procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);	138	procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
139	begin	139	begin
140	// Standardwerte für einen neuen Bug	140	// Standardwerte für einen neuen Bug
141	qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte	141	qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
142	qryBugs.FieldByName('erstellt').AsDateTime := Now;	142	qryBugs.FieldByName('erstellt').AsDateTime := Now;
143	qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;	143	qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
144	qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;	144	qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
145	qryBugs.FieldByName('status').AsInteger := 1; // Offen	145	qryBugs.FieldByName('status').AsInteger := 1; // Offen
146	end;	146	end;
147		147
148	procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);	148	procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
149	var	149	var
150	bakEvent: TNotifyEvent;	150	bakEvent: TNotifyEvent;
151	begin	151	begin
152	bakEvent := TrackBar1.OnChange;	152	bakEvent := TrackBar1.OnChange;
153	TrackBar1.OnChange := nil;	153	TrackBar1.OnChange := nil;
154	try	154	try
155	TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;	155	TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;
156	finally	156	finally
157	TrackBar1.OnChange := bakEvent;	157	TrackBar1.OnChange := bakEvent;
158	end;	158	end;
159	end;	159	end;
160		160
161	procedure TfrmBugtracker.qryBugsBeforeCancel(DataSet: TDataSet);	161	procedure TfrmBugtracker.qryBugsBeforeCancel(DataSet: TDataSet);
162	var	162	var
163	abfrage: Integer;	163	abfrage: Integer;
164	begin	164	begin
165	// Tag 1 = Es wurde der "Abbrechen"-Knopf im DBNavigator gedrückt, also wollen wir keine unnötige Bestätigung	165	// Tag 1 = Es wurde der "Abbrechen"-Knopf im DBNavigator gedrückt, also wollen wir keine unnötige Bestätigung
166	// Alles andere = Irgendwas anderes (z.B. Scrolling oder versehentlich versucht das Fenster zu schließen)	166	// Alles andere = Irgendwas anderes (z.B. Scrolling oder versehentlich versucht das Fenster zu schließen)
167	if qryBugs.Tag = 1 then exit;	167	if qryBugs.Tag = 1 then exit;
168		168
169	abfrage := MessageDlg('Speichern?', mtConfirmation, mbYesNoCancel, 0);	169	abfrage := MessageDlg('Speichern?', mtConfirmation, mbYesNoCancel, 0);
170		170
171	if (abfrage = IDNo) or (abfrage = IDYes) or (abfrage = IDOK) then	171	if (abfrage = IDNo) or (abfrage = IDYes) or (abfrage = IDOK) then
172	begin	172	begin
173	if abfrage = IDYes then	173	if abfrage = IDYes then
174	begin	174	begin
175	if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Post;	175	if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Post;
176	end;	176	end;
177	if abfrage = IDNo then	177	if abfrage = IDNo then
178	begin	178	begin
179	// Wir befinden uns bereits in qryBugs.Cancel, daher auskommentiert.	179	// Wir befinden uns bereits in qryBugs.Cancel, daher auskommentiert.
180	// if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Cancel;	180	// if (qryBugs.state in [dsEdit, dsInsert]) then qryBugs.Cancel;
181	end;	181	end;
182	end	182	end
183	else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt	183	else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt
184	end;	184	end;
185		185
186	procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);	186	procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);
187	var	187	var
188	col: TColor;	188	col: TColor;
189	begin	189	begin
190	qryBugsstatus_geaendert.AsDateTime := Now;	190	qryBugsstatus_geaendert.AsDateTime := Now;
191		191
192	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
193	col := TColor(lkpStatuscolor.AsInteger);	193	col := TColor(lkpStatuscolor.AsInteger);
194	NotizHinzufuegen(col, DBLookupComboBox5.Text);	194	NotizHinzufuegen(col, DBLookupComboBox5.Text);
195	end;	195	end;
196		196
197	procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);	197	procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
198	begin	198	begin
199	if qryBugs.FieldByName('status').AsInteger <> 5 then	199	if qryBugs.FieldByName('status').AsInteger <> 5 then
200	begin	200	begin
201	// raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');	201	// raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');
202	qryBugs.FieldByName('status').AsInteger := 5;	202	qryBugs.FieldByName('status').AsInteger := 5;
203	end;	203	end;
204	end;	204	end;
205		205
206	procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);	206	procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);
207	begin	207	begin
208	// Standardwerte für ein neues Modul	208	// Standardwerte für ein neues Modul
209	qryModule.FieldByName('projekt').AsInteger := aktuellesProjekt;	209	qryModule.FieldByName('projekt').AsInteger := aktuellesProjekt;
210	end;	210	end;
211		211
212	procedure TfrmBugtracker.qryVersionenAfterInsert(DataSet: TDataSet);	212	procedure TfrmBugtracker.qryVersionenAfterInsert(DataSet: TDataSet);
213	begin	213	begin
214	// Standardwerte für eine neue Version	214	// Standardwerte für eine neue Version
215	qryVersionen.FieldByName('projekt').AsInteger := aktuellesProjekt;	215	qryVersionen.FieldByName('projekt').AsInteger := aktuellesProjekt;
216	end;	216	end;
217		217
218	procedure TfrmBugtracker.Timer1Timer(Sender: TObject);	218	procedure TfrmBugtracker.Timer1Timer(Sender: TObject);
219	begin	219	begin
220	Timer1.Enabled := false;	220	Timer1.Enabled := false;
221	if frmLogin.ShowModal = mrCancel then Close;	221	if frmLogin.ShowModal = mrCancel then Close;
222	end;	222	end;
223		223
224	procedure TfrmBugtracker.TrackBar1Change(Sender: TObject);	224	procedure TfrmBugtracker.TrackBar1Change(Sender: TObject);
225	begin	225	begin
226	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;	226	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
227	qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;	227	qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;
228	end;	228	end;
229		229
230	procedure TfrmBugtracker.Versionen1Click(Sender: TObject);	230	procedure TfrmBugtracker.Versionen1Click(Sender: TObject);
231	begin	231	begin
232	frmVersionen.ShowModal;	232	frmVersionen.ShowModal;
233	end;	233	end;
234		234
235	procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);	235	procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);
236	var	236	var
237	s: string;	237	s: string;
238	id, ec: integer;	238	id, ec: integer;
239	begin	239	begin
240	s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));	240	s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));
241	if s = '' then exit;	241	if s = '' then exit;
242	Val(s, id, ec);	242	Val(s, id, ec);
243	if ec <> 0 then	243	if ec <> 0 then
244	begin	244	begin
245	ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);	245	ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);
246	exit;	246	exit;
247	end;	247	end;
248	qryBugs.Locate('id', id, []);	248	qryBugs.Locate('id', id, []);
249	end;	249	end;
250		250
251	procedure TfrmBugtracker.ber1Click(Sender: TObject);	251	procedure TfrmBugtracker.ber1Click(Sender: TObject);
252	begin	252	begin
253	AboutBox.ShowModal;	253	AboutBox.ShowModal;
254	end;	254	end;
255		255
256	procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);	256	procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);
257	begin	257	begin
258	NotizHinzufuegen(clOlive, 'Notiz');	258	NotizHinzufuegen(clOlive, 'Notiz');
259	end;	259	end;
260		260
261	procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);	261	procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
262	begin	262	begin
263	case ComboBox1.ItemIndex of	263	case ComboBox1.ItemIndex of
264	0:	264	0:
265	begin	265	begin
266	// Meine offenen Aufgaben (nach Wichtigkeit)	266	// Meine offenen Aufgaben (nach Wichtigkeit)
267	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';	267	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
268	end;	268	end;
269	1:	269	1:
270	begin	270	begin
271	// Alle offenen Aufgaben (nach Wichtigkeit)	271	// Alle offenen Aufgaben (nach Wichtigkeit)
272	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';	272	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
273	end;	273	end;
274	2:	274	2:
275	begin	275	begin
276	// Gelöst ohne Veröffentlichung (nach Lösungsdatum)	276	// Gelöst ohne Veröffentlichung (nach Lösungsdatum)
277	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';	277	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';
278	end;	278	end;
279	3:	279	3:
280	begin	280	begin
281	// Gelöst und Veröffentlicht (nach Version und Lösungsdatum)	281	// Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
282	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';	282	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
283	end;	283	end;
284	4:	284	4:
285	begin	285	begin
286	// Von mir erfasste Aufgaben (nach Erfassungsdatum)	286	// Von mir erfasste Aufgaben (nach Erfassungsdatum)
287	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC';	287	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC';
288	end;	288	end;
289	5:	289	5:
290	begin	290	begin
291	// Alle Aufgaben (nach Eröffnungsdatum)	291	// Alle Aufgaben (nach Eröffnungsdatum)
292	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';	292	qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
293	end;	293	end;
294	end;	294	end;
295	qryBugs.Active := true;	295	qryBugs.Active := true;
296	end;	296	end;
297		297
298	procedure TfrmBugtracker.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);	298	procedure TfrmBugtracker.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
299	begin	299	begin
300	if Button = nbCancel then	300	if Button = nbCancel then
301	begin	301	begin
302	if qryBugs.state in [dsEdit,dsInsert] then	302	if qryBugs.state in [dsEdit,dsInsert] then
303	begin	303	begin
304	// Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.	304	// Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.
305	// Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch	305	// Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch
306	// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor	306	// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
307	// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.	307	// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
308	qryBugs.Tag := 1;	308	qryBugs.Tag := 1;
-		309	try
309	qryBugs.Cancel;	310	qryBugs.Cancel;
-		311	finally
310	qryBugs.Tag := 0;	312	qryBugs.Tag := 0;
311	end;	313	end;
-		314	end;
312	end;	315	end;
313	end;	316	end;
314		317
315	procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);	318	procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
316	begin	319	begin
317	qryBugs.Cancel;	320	qryBugs.Cancel;
318	end;	321	end;
319		322
320	procedure TfrmBugtracker.FormCreate(Sender: TObject);	323	procedure TfrmBugtracker.FormCreate(Sender: TObject);
321	var	324	var
322	ini: TMemIniFile;	325	ini: TMemIniFile;
323	begin	326	begin
324	ini := TMemIniFile.Create('bugtracker.ini');	327	ini := TMemIniFile.Create('bugtracker.ini');
325	try	328	try
326	ADOConnection1.Connected := false;	329	ADOConnection1.Connected := false;
327	ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');	330	ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
328	finally	331	finally
329	ini.Free;	332	ini.Free;
330	end;	333	end;
331		334
332	ADOConnection1.Connected := true;	335	ADOConnection1.Connected := true;
333	qryBugs.Active := true;	336	qryBugs.Active := true;
334	tblMitarbeiter.Active := true;	337	tblMitarbeiter.Active := true;
335	qryVersionen.Active := true;	338	qryVersionen.Active := true;
336	tblProjekte.Active := true;	339	tblProjekte.Active := true;
337	qryModule.Active := true;	340	qryModule.Active := true;
338	lkpStatus.Active := true;	341	lkpStatus.Active := true;
339	end;	342	end;
340		343
341	procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);	344	procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);
342	begin	345	begin
343	frmMitarbeiter.ShowModal;	346	frmMitarbeiter.ShowModal;
344	end;	347	end;
345		348
346	procedure TfrmBugtracker.Module1Click(Sender: TObject);	349	procedure TfrmBugtracker.Module1Click(Sender: TObject);
347	begin	350	begin
348	frmModule.ShowModal;	351	frmModule.ShowModal;
349	end;	352	end;
350		353
351	procedure TfrmBugtracker.NeuFiltern;	354	procedure TfrmBugtracker.NeuFiltern;
352	begin	355	begin
353	ComboBox1Change(ComboBox1);	356	ComboBox1Change(ComboBox1);
354		357
355	qryModule.SQL.Text := 'SELECT * FROM module WHERE projekt = ' + IntToStr(aktuellesProjekt);	358	qryModule.SQL.Text := 'SELECT * FROM module WHERE projekt = ' + IntToStr(aktuellesProjekt);
356	qryModule.Active := true;	359	qryModule.Active := true;
357		360
358	qryVersionen.SQL.Text := 'SELECT * FROM versionen WHERE projekt = ' + IntToStr(aktuellesProjekt);	361	qryVersionen.SQL.Text := 'SELECT * FROM versionen WHERE projekt = ' + IntToStr(aktuellesProjekt);
359	qryVersionen.Active := true;	362	qryVersionen.Active := true;
360	end;	363	end;
361		364
362	procedure TfrmBugtracker.NotizHinzufuegen(color: TColor; bez: string);	365	procedure TfrmBugtracker.NotizHinzufuegen(color: TColor; bez: string);
363	var	366	var
364	leerzeilen: integer;	367	leerzeilen: integer;
365	umbruch: string;	368	umbruch: string;
366	prefix: string;	369	prefix: string;
367	begin	370	begin
368	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;	371	if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
369		372
370	// Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.	373	// Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.
371	if Trim(DBRichEdit1.Text) <> '' then	374	if Trim(DBRichEdit1.Text) <> '' then
372	begin	375	begin
373	leerzeilen := 0;	376	leerzeilen := 0;
374	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile	377	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile
375	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile	378	if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile
376	case leerzeilen of	379	case leerzeilen of
377	0: umbruch := #13#10#13#10;	380	0: umbruch := #13#10#13#10;
378	1: umbruch := #13#10;	381	1: umbruch := #13#10;
379	2: umbruch := '';	382	2: umbruch := '';
380	end;	383	end;
381	end	384	end
382	else	385	else
383	begin	386	begin
384	umbruch := '';	387	umbruch := '';
385	end;	388	end;
386		389
387	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;	390	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
388	DBRichEdit1.SelText := umbruch;	391	DBRichEdit1.SelText := umbruch;
389		392
390	DBRichEdit1.SelAttributes.Size := 13;	393	DBRichEdit1.SelAttributes.Size := 13;
391	DBRichEdit1.SelAttributes.Color := color;	394	DBRichEdit1.SelAttributes.Color := color;
392	DBRichEdit1.SelAttributes.Style := [fsUnderline];	395	DBRichEdit1.SelAttributes.Style := [fsUnderline];
393	if Trim(bez) <> '' then	396	if Trim(bez) <> '' then
394	prefix := Trim(bez) + ' - '	397	prefix := Trim(bez) + ' - '
395	else	398	else
396	prefix := '';	399	prefix := '';
397	DBRichEdit1.SelText := prefix + eingeloggtMitarbeiterName + ' ' + FormatDateTime('dd.mm.yyyy hh:nn', Now); // DateTimeToStr(Now);	400	DBRichEdit1.SelText := prefix + eingeloggtMitarbeiterName + ' ' + FormatDateTime('dd.mm.yyyy hh:nn', Now); // DateTimeToStr(Now);
398		401
399	DBRichEdit1.SelAttributes.Size := 10;	402	DBRichEdit1.SelAttributes.Size := 10;
400	DBRichEdit1.SelAttributes.Color := clWindowText;	403	DBRichEdit1.SelAttributes.Color := clWindowText;
401	DBRichEdit1.SelAttributes.Style := [];	404	DBRichEdit1.SelAttributes.Style := [];
402	DBRichEdit1.SelText := #13#10 {+ '<Hier Text eingeben>'};	405	DBRichEdit1.SelText := #13#10 {+ '<Hier Text eingeben>'};
403		406
404	// Ans Ende scrollen	407	// Ans Ende scrollen
405	DBRichEdit1.SetFocus;	408	DBRichEdit1.SetFocus;
406	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;	409	DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
407	DBRichEdit1.Perform(EM_SCROLLCARET, 0, 0);	410	DBRichEdit1.Perform(EM_SCROLLCARET, 0, 0);
408	end;	411	end;
409		412
410	procedure TfrmBugtracker.Projekte1Click(Sender: TObject);	413	procedure TfrmBugtracker.Projekte1Click(Sender: TObject);
411	begin	414	begin
412	frmProjekte.ShowModal;	415	frmProjekte.ShowModal;
413	end;	416	end;
414		417
415	procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject);	418	procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject);
416	begin	419	begin
417	frmLogin.ShowModal;	420	frmLogin.ShowModal;
418	end;	421	end;
419		422
420	end.	423	end.
421		424

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.pas – Rev 14 → 15