• R/O
  • SSH
  • HTTPS

mantisbtmonitor: Commit


Commit MetaInfo

Revision35 (tree)
Time2017-10-06 06:44:37
Authorderekwildstar

Log Message

- Commit temporário

Change Summary

Incremental Difference

--- trunk/client/prj/MantisNotification.bdsproj (revision 34)
+++ trunk/client/prj/MantisNotification.bdsproj (revision 35)
@@ -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">845</VersionInfo>
153+ <VersionInfo Name="Build">847</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.845</VersionInfoKeys>
165+ <VersionInfoKeys Name="FileVersion">1.2.3.847</VersionInfoKeys>
166166 <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
167167 <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
168168 <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
--- trunk/client/src/UFormIssue.pas (revision 34)
+++ trunk/client/src/UFormIssue.pas (revision 35)
@@ -97,6 +97,9 @@
9797 LABENoteCount: TLabel;
9898 PNSBNoteLast: TPngSpeedButton;
9999 PNSBNoteFirst: TPngSpeedButton;
100+ ACTNNoteEdit: TAction;
101+ PNBBNoteEdit: TPngBitBtn;
102+ procedure ACTNNoteEditExecute(Sender: TObject);
100103 procedure ACTNNoteNewExecute(Sender: TObject);
101104 procedure PNSBNoteFirstClick(Sender: TObject);
102105 procedure PNSBNoteLastClick(Sender: TObject);
@@ -156,6 +159,12 @@
156159 // Params.WndParent := 0;
157160 end;
158161
162+procedure TFormIssue.ACTNNoteEditExecute(Sender: TObject);
163+begin
164+ inherited;
165+ TFormManageNote.ShowMeModal(Self,FIssueInfo.Id,TAction(Sender).ActionComponent.Tag);
166+end;
167+
159168 procedure TFormIssue.ACTNNoteFullScreenExecute(Sender: TObject);
160169 begin
161170 inherited;
@@ -171,7 +180,7 @@
171180 procedure TFormIssue.ACTNNoteReplyExecute(Sender: TObject);
172181 begin
173182 inherited;
174- ShowMessage(IntToStr(TAction(Sender).ActionComponent.Tag));
183+ ShowMessage('Tela para responder a anotação ' + IntToStr(TAction(Sender).ActionComponent.Tag));
175184 end;
176185
177186 procedure TFormIssue.CLDSCommentsAfterScroll(DataSet: TDataSet);
@@ -183,6 +192,7 @@
183192 LoadWebBrowserHTML(WEBRNote,CLDSCommentsNote.AsString,True);
184193 PNBBNoteReply.Tag := CLDSCommentsId.AsInteger;
185194 PNBBNoteFullScreen.Tag := CLDSCommentsId.AsInteger;
195+ PNBBNoteEdit.Tag := CLDSCommentsId.AsInteger;
186196 LABENoteCount.Caption := Format('Anotação %u de %u',[Abs(CLDSComments.RecordCount - CLDSComments.RecNo + 1),CLDSComments.RecordCount]);
187197
188198 if CLDSCommentsPrivate.AsInteger = 1 then
Show on old repository browser