37 lines
617 B
ObjectPascal
37 lines
617 B
ObjectPascal
unit MainUnit;
|
|
|
|
interface
|
|
|
|
uses
|
|
SmartCL.System, SmartCL.Components, SmartCL.Forms, SmartCL.Application,
|
|
SynCrossPlatformCrypto, SynCrossPlatformSpecific, SynCrossPlatformREST,
|
|
SmartTests,
|
|
LoginForm;
|
|
|
|
type
|
|
TApplication = class(TW3CustomApplication)
|
|
private
|
|
FForm1: TLoginForm;
|
|
protected
|
|
procedure ApplicationStarting; override;
|
|
public
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TApplication}
|
|
|
|
procedure TApplication.ApplicationStarting;
|
|
begin
|
|
FForm1 := TLoginForm.Create(Display.View);
|
|
FForm1.Name := 'Form1';
|
|
RegisterFormInstance(FForm1, True);
|
|
// register other forms here
|
|
|
|
inherited;
|
|
end;
|
|
|
|
|
|
end.
|