• R/O
  • SSH
  • HTTPS

mantisbtmonitor: Commit


Commit MetaInfo

Revision31 (tree)
Time2017-09-22 04:22:49
Authorderekwildstar

Log Message

- Ajustes na exibição de comentários
- Contem erros propositais

Change Summary

Incremental Difference

--- trunk/client/prj/MantisNotification.bdsproj (revision 30)
+++ trunk/client/prj/MantisNotification.bdsproj (revision 31)
@@ -150,7 +150,7 @@
150150 <VersionInfo Name="MajorVer">1</VersionInfo>
151151 <VersionInfo Name="MinorVer">2</VersionInfo>
152152 <VersionInfo Name="Release">3</VersionInfo>
153- <VersionInfo Name="Build">595</VersionInfo>
153+ <VersionInfo Name="Build">618</VersionInfo>
154154 <VersionInfo Name="Debug">False</VersionInfo>
155155 <VersionInfo Name="PreRelease">False</VersionInfo>
156156 <VersionInfo Name="Special">False</VersionInfo>
@@ -162,7 +162,7 @@
162162 <VersionInfoKeys>
163163 <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
164164 <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
165- <VersionInfoKeys Name="FileVersion">1.2.3.595</VersionInfoKeys>
165+ <VersionInfoKeys Name="FileVersion">1.2.3.618</VersionInfoKeys>
166166 <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
167167 <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
168168 <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
--- trunk/client/src/UFormIssue.pas (revision 30)
+++ trunk/client/src/UFormIssue.pas (revision 31)
@@ -66,7 +66,6 @@
6666 CLDSAttachmentsFilename: TStringField;
6767 CLDSAttachmentsDate: TDateTimeField;
6868 CLDSAttachmentsFileSize: TIntegerField;
69- DBCGComments: TDBCtrlGrid;
7069 CLDSComments: TClientDataSet;
7170 CLDSCommentsId: TIntegerField;
7271 CLDSCommentsReporter: TStringField;
@@ -73,7 +72,8 @@
7372 CLDSCommentsDate: TDateTimeField;
7473 CLDSCommentsPrivate: TSmallintField;
7574 CLDSCommentsNote: TMemoField;
76- DASOComments: TDataSource;
75+ SCBXComments: TScrollBox;
76+ DBCGComments: TDBCtrlGrid;
7777 DHLAComment: TDBHTMLabel;
7878 PANEComments: TPanel;
7979 DBTXCommentReporter: TDBText;
@@ -176,9 +176,75 @@
176176 end;
177177
178178 procedure TFormIssue.LoadComments;
179+////////////////////////////////////////////////////////////////////////////////
180+procedure CreateHeaderPanel(ANoteID: Integer; AReporter: String; ADate: TDateTime);
181+var
182+ P: TPanel;
179183 begin
184+ P := TPanel.Create(Self);
185+ with P do
186+ begin
187+ Parent := SCBXComments;
188+ Height := 16;
189+ Align := alTop;
190+ Color := clGreen;
191+ ParentBackground := False;
192+ AlignWithMargins := True;
193+ Margins.Right := 0;
194+ Margins.Left := 0;
195+ Margins.Bottom := 3;
196+ Margins.Top := 0;
197+ end;
198+ bolar um meio de criar os paineis na ordem correta
199+
200+
201+ with TLabel.Create(Self) do
202+ begin
203+ Parent := P;
204+ AlignWithMargins := True;
205+ Width := 80;
206+ Margins.Top := 0;
207+ Margins.Right := 0;
208+ Margins.Bottom := 0;
209+ Align := alLeft;
210+ Font.Style := [fsBold];
211+ Font.Color := clWhite;
212+ Caption := '#' + IntToStr(ANoteID);
213+ Color := clYellow;
214+ Transparent := False;
215+ end;
216+
217+ with TLabel.Create(Self) do
218+ begin
219+ Parent := P;
220+ AlignWithMargins := True;
221+ Width := 130;
222+ Margins.Top := 0;
223+ Margins.Left := 0;
224+ Margins.Bottom := 0;
225+ Align := alRight;
226+ Font.Style := [fsBold];
227+ Font.Color := clWhite;
228+ Alignment := taRightJustify;
229+ Caption := FormatDateTime('dd/mm/yyyy "às" hh:nn:ss',ADate);
230+ Color := clYellow;
231+ Transparent := False;
232+ end;
233+end;
234+////////////////////////////////////////////////////////////////////////////////
235+begin
236+// if not FCommentsLoaded then
237+// FCommentsLoaded := GetComments(FIssueInfo.Id,Configurations.UserId,CLDSComments);
180238 if not FCommentsLoaded then
239+ begin
181240 FCommentsLoaded := GetComments(FIssueInfo.Id,Configurations.UserId,CLDSComments);
241+ if FCommentsLoaded then
242+ while not CLDSComments.Eof do
243+ begin
244+ CreateHeaderPanel(CLDSCommentsId.AsInteger, CLDSCommentsReporter.AsString, CLDSCommentsDate.AsDateTime);
245+ CLDSComments.Next;
246+ end;
247+ end;
182248 end;
183249
184250 procedure TFormIssue.LoadIssue;
Show on old repository browser