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, 7 months ago) by tony
File size: 454 byte(s)
Log Message:
Committing updates for Release R1-0-5
Line User Rev File contents
1 tony 17 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