ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/project1.lpr
Revision: 17
Committed: Sat Dec 28 19:22:24 2013 UTC (6 years, 6 months ago) by tony
File size: 454 byte(s)
Log Message:
Committing updates for Release R1-0-5
Line File contents
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 Forms, Unit1, ibexpress, Unit2, Unit3;
11
12 {$R *.res}
13
14 begin
15 Application.Initialize;
16 Application.CreateForm(TForm1, Form1);
17 Application.CreateForm(TEditEmployeeDlg, EditEmployeeDlg);
18 Application.CreateForm(TAddEmployeeDlg, AddEmployeeDlg);
19 Application.Run;
20 end.
21