Lazarus Qt5 test project

unit1.pas

unit Unit1;

{$mode objfpc}{$H+}
{$macro on}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    LabelFpcVersion: TLabel;
    LabelLclVersion: TLabel;
    LabelLclWidgetset: TLabel;
    procedure FormCreate(Sender: TObject);
  private
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

uses
  LCLVersion, InterfaceBase, LCLPlatformDef;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Application.Title;
  Font.Size := 11;
  LabelFpcVersion.Caption := Format('Free Pascal version: %d.%d.%d for %s-%s', [FPC_VERSION, FPC_RELEASE, FPC_PATCH,
   lowercase({$i %FPCTARGETOS%}), lowercase({$i %FPCTARGETCPU%})]);
  LabelLclVersion.Caption := Format('LCL version: %s', [lcl_version]);
  LabelLclWidgetset.Caption := Format('LCL widgetset: %s', [LCLPlatformDisplayNames[WidgetSet.LCLPlatform]]);
end;

end.