examples/services/project1.lpr

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  ibexpress,Forms, Unit1, Unit2, Unit3, ListUsersUnit, LimboTransactionsUnit
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TListUsersForm, ListUsersForm);
  Application.CreateForm(TLimboTransactionsForm, LimboTransactionsForm);
  Application.Run;
end.

Revision:	45
Committed:	Tue Dec 6 10:33:46 2016 UTC (7 years, 4 months ago) by tony
File size:	635 byte(s)
Log Message:	Committing updates for Release R2-0-0
#	User	Rev	Content
1	tony	31	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	45	ibexpress,Forms, Unit1, Unit2, Unit3, ListUsersUnit, LimboTransactionsUnit
11	tony	31	{ you can add units after this };
12
13			{$R *.res}
14
15			begin
16			RequireDerivedFormResource := True;
17			Application.Initialize;
18			Application.CreateForm(TForm1, Form1);
19	tony	45	Application.CreateForm(TForm2, Form2);
20			Application.CreateForm(TForm3, Form3);
21			Application.CreateForm(TListUsersForm, ListUsersForm);
22			Application.CreateForm(TLimboTransactionsForm, LimboTransactionsForm);
23	tony	31	Application.Run;
24			end.
25