ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/project1.lpr
Revision: 31
Committed: Tue Jul 14 15:31:25 2015 UTC (9 years, 4 months ago) by tony
File size: 383 byte(s)
Log Message:
Committing updates for Release R1-3-0

File Contents

# User Rev Content
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 tony 31 Forms, Unit1, Unit2, ibexpress;
11 tony 17
12     {$R *.res}
13    
14     begin
15     Application.Initialize;
16     Application.CreateForm(TForm1, Form1);
17 tony 21 Application.CreateForm(TSelectDeptDlg, SelectDeptDlg);
18 tony 17 Application.Run;
19     end.
20 tony 31