ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/project1.lpr
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 4 months ago) by tony
File size: 635 byte(s)
Log Message:
Committing updates for Release R2-0-0

File Contents

# Content
1 program project1;
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 ibexpress,Forms, Unit1, Unit2, Unit3, ListUsersUnit, LimboTransactionsUnit
11 { you can add units after this };
12
13 {$R *.res}
14
15 begin
16 RequireDerivedFormResource := True;
17 Application.Initialize;
18 Application.CreateForm(TForm1, Form1);
19 Application.CreateForm(TForm2, Form2);
20 Application.CreateForm(TForm3, Form3);
21 Application.CreateForm(TListUsersForm, ListUsersForm);
22 Application.CreateForm(TLimboTransactionsForm, LimboTransactionsForm);
23 Application.Run;
24 end.
25