Revision: | 33 |
Committed: | Sat Jul 18 12:30:52 2015 UTC (9 years, 4 months ago) by tony |
File size: | 363 byte(s) |
Log Message: | Committing updates for Release R1-3-1 |
# | User | Rev | Content |
---|---|---|---|
1 | tony | 33 | 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, ibexpress; | ||
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 |