Vulkan/projects/triangle/triangle.lpr

program triangle;

{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, Dialogs, Forms, uMainForm, Vulkan, uvkuDevice, uvkuDeviceFactory;

{$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.