|
- program triangle;
-
- {$mode objfpc}{$H+}
- {$APPTYPE CONSOLE}
-
- uses
- {$IFDEF UNIX}{$IFDEF UseCThreads}
- cthreads,
- {$ENDIF}{$ENDIF}
- Interfaces, Dialogs, Forms, uMainForm, Vulkan, uvkuDevice, uvkuDeviceFactory, uvkuPhysicalDeviceFactory,
- uvkuAllocationHandler;
-
- {$R *.res}
-
- begin
- if not InitializeVulkan then begin
- MessageDlg('Error', 'unable to initialize vulkan api', mtError, [mbOK], 0);
- halt;
- end;
-
- RequireDerivedFormResource := True;
- Application.Initialize;
- Application.CreateForm(TMainForm, MainForm);
- Application.Run;
- end.
|