ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/isqlmonitor/MonitorFormUnit.pas

Comparing ibx/trunk/examples/isqlmonitor/MonitorFormUnit.pas (file contents):
Revision 32 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

#	Line 34 | Line 34 | implementation
34
35		procedure TMonitorForm.IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
36		begin
37	<	Memo1.Lines.Add(DateTimeToStr(EventTime) + ': ' + EventText);
38	<	{$IFDEF WINDOWS}
39	<	Application.ProcessMessages;
40	<	{$ENDIF}
37	>	Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzzz',EventTime) + ': ' + EventText);
38		end;
39
40		procedure TMonitorForm.FormShow(Sender: TObject);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines