nativedesigner.lpr 500 B

12345678910111213141516171819202122232425
  1. program nativedesigner;
  2. {$mode objfpc}{$H+}
  3. uses
  4. {$IFDEF UNIX}
  5. cthreads,
  6. {$ENDIF}
  7. {$IFDEF LINUX}
  8. InitSubProcess, // On Linux this unit must be used *before* the "interfaces" unit.
  9. {$ENDIF}
  10. Interfaces, // this includes the LCL widgetset
  11. Forms, frmmain, webideintf
  12. { you can add units after this };
  13. {$R *.res}
  14. begin
  15. RequireDerivedFormResource:=True;
  16. Application.Scaled := True;
  17. Application.Initialize;
  18. Application.CreateForm(TMainForm, MainForm);
  19. Application.Run;
  20. end.