Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 5 → Rev 4

/trunk/BugtrackerMain.dfm
150,28 → 150,6
Height = 13
Caption = 'Ver'#246'ffentlicht als Version'
end
object LblAngemeldet: TLabel
Left = 3
Top = 0
Width = 83
Height = 13
Caption = 'Nicht angemeldet'
end
object Label7: TLabel
Left = 250
Top = 0
Width = 46
Height = 13
Caption = 'Unwichtig'
end
object Label8: TLabel
Left = 366
Top = 0
Width = 34
Height = 13
Alignment = taRightJustify
Caption = 'Kritisch'
end
object DBNavigator1: TDBNavigator
Left = 15
Top = 16
264,7 → 242,7
end
object TrackBar1: TTrackBar
Left = 245
Top = 12
Top = 8
Width = 164
Height = 45
Position = 5
285,9 → 263,8
Top = 208
Width = 185
Height = 25
Caption = 'Notiz hinzuf'#252'gen'
Caption = 'Bearbeitungsnotiz hinzuf'#252'gen'
TabOrder = 7
OnClick = btnBearbeitungsnotizClick
end
end
object ADOConnection1: TADOConnection
/trunk/BugtrackerMain.pas
2,19 → 2,13
 
(*
* TODO:
* - fertigstellen
* ... bearbeitungsnotiz-button (rtf-farben usw)
* ...
* - abfragen ob speichern wenn fenster geschlossen wird
* - Spezielle Filter
* ... Auflisten nach Modul
* ... Anzeigen der Agenda
* - filtern nach modul
* - verbinden mit ticketsystem von HS
* - rtf controls?
* - Neue Felder:
* ... Erfasser
* ... Agenda
* ... Status = Offen, gefixt, Abgelehnt, Veröffentlicht
* ... RTF Feld als BIGTEXT definieren
* - Neue Aufteilung der States
* ... Open, Fixed, Published, Wontfix/Rejected, Planned(Agenda)
*)
 
interface
81,9 → 75,6
qryBugsprojekt: TIntegerField;
qryVersionen: TADOQuery;
qryModule: TADOQuery;
LblAngemeldet: TLabel;
Label7: TLabel;
Label8: TLabel;
procedure Mitarbeiter1Click(Sender: TObject);
procedure qryBugsAfterScroll(DataSet: TDataSet);
procedure Module1Click(Sender: TObject);
100,14 → 91,13
procedure FormCreate(Sender: TObject);
procedure qryVersionenAfterInsert(DataSet: TDataSet);
procedure qryModuleAfterInsert(DataSet: TDataSet);
procedure btnBearbeitungsnotizClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
eingeloggtMitarbeiter: integer;
eingeloggtMitarbeiterName: string;
aktuellesProjekt: integer;
aktuellesProjektName: string;
procedure NeuFiltern;
procedure NotizHinzufuegen(color: TColor; bez: string);
end;
 
var
182,25 → 172,14
AboutBox.ShowModal;
end;
 
procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);
begin
NotizHinzufuegen(clRed, 'Notiz');
end;
 
procedure TfrmBugtracker.btnFixedToggleClick(Sender: TObject);
begin
if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
if qryBugs.FieldByName('fixdatum').IsNull then
begin
qryBugs.FieldByName('fixdatum').AsDateTime := Now;
NotizHinzufuegen(clGreen, 'Gefixt');
end
qryBugs.FieldByName('fixdatum').AsDateTime := Now
else
begin
qryBugs.FieldByName('fixdatum').Clear;
NotizHinzufuegen(clBlue, 'Neu eröffnet');
end;
end;
 
procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
begin
274,47 → 253,6
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.
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;
 
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;
/trunk/Login.pas
50,13 → 50,8
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;
 
/trunk/About.dfm
95,7 → 95,6
Top = 180
Width = 75
Height = 25
Cancel = True
Caption = 'OK'
Default = True
ModalResult = 1
/trunk/Login.dfm
104,7 → 104,6
Width = 115
Height = 36
Caption = 'Los geht'#39's'
Default = True
TabOrder = 2
OnClick = Button1Click
end
/trunk/WuLi.cfg
0,0 → 1,38
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"C:\Users\user\Documents\Borland Studio-Projekte\Bpl"
-LN"C:\Users\user\Documents\Borland Studio-Projekte\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST