ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/project1.lpr
Revision: 21
Committed: Thu Feb 26 10:33:34 2015 UTC (9 years, 1 month ago) by tony
File size: 371 byte(s)
Log Message:
Committing updates for Release R1-2-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 Forms, Unit1, Unit2;
11
12 {$R *.res}
13
14 begin
15 Application.Initialize;
16 Application.CreateForm(TForm1, Form1);
17 Application.CreateForm(TSelectDeptDlg, SelectDeptDlg);
18 Application.Run;
19 end.
20