test_formatui.lpr 483 B

123456789101112131415161718192021222324252627
  1. program test_formatui;
  2. {$mode objfpc}{$H+}
  3. uses
  4. {$IFDEF UNIX}
  5. cthreads,
  6. {$ENDIF}
  7. {$IFDEF HASAMIGA}
  8. athreads,
  9. {$ENDIF}
  10. Interfaces, // this includes the LCL widgetset
  11. Forms, test_formatui_main;
  12. {$R *.res}
  13. begin
  14. RequireDerivedFormResource:=True;
  15. Application.Scaled:=True;
  16. {$PUSH}{$WARN 5044 OFF}
  17. Application.MainFormOnTaskbar:=True;
  18. {$POP}
  19. Application.Initialize;
  20. Application.CreateForm(TSaveFile_Settings, SaveFile_Settings);
  21. Application.Run;
  22. end.