ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/isqlmonitor/IntegratedMonitoring.lpr
(Generate patch)

Comparing ibx/trunk/examples/isqlmonitor/IntegratedMonitoring.lpr (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 1 | Line 1
1 < program IntegratedMonitoring;
2 <
3 < {$mode objfpc}{$H+}
4 <
5 < uses
6 <  {$IFDEF UNIX}{$IFDEF UseCThreads}
7 <  cthreads,
8 <  {$ENDIF}{$ENDIF}
9 <  Interfaces, // this includes the LCL widgetset
10 <  Forms, MainForm, SelectDeptDlgUnit, ibexpress, MonitorFormUnit;
11 <
12 < {$R *.res}
13 <
14 < begin
15 <  Application.Initialize;
16 <  Application.CreateForm(TForm1, Form1);
17 <  Application.CreateForm(TSelectDeptDlg, SelectDeptDlg);
18 <  Application.CreateForm(TMonitorForm, MonitorForm);
19 <  Application.Run;
20 < end.
21 <
1 > program IntegratedMonitoring;
2 >
3 > {$mode objfpc}{$H+}
4 >
5 > uses
6 >  {$IFDEF UNIX}{$IFDEF UseCThreads}
7 >  cthreads,
8 >  {$ENDIF}{$ENDIF}
9 >  Interfaces, // this includes the LCL widgetset
10 >  Forms, MainForm, SelectDeptDlgUnit, ibexpress, MonitorFormUnit;
11 >
12 > {$R *.res}
13 >
14 > begin   Application.Title := 'Integrated Monitoring Example';
15 >
16 > {
17 >  if you want to open a console window in Windows (for writeln debugging
18 >  enabled the following
19 >
20 >   AllocConsole;      // in Windows unit
21 >   IsConsole := True; // in System unit
22 >   SysInitStdIO;      // in System unit
23 >    }
24 >
25 >  Application.Initialize;
26 >  Application.CreateForm(TForm1, Form1);
27 >  Application.CreateForm(TSelectDeptDlg, SelectDeptDlg);
28 >  Application.CreateForm(TMonitorForm, MonitorForm);
29 >  Application.Run;
30 > end.
31 >

Diff Legend

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