Skip to content

Instantly share code, notes, and snippets.

@tondrej

tondrej/unit1.pas

Last active Apr 1, 2018
Embed
What would you like to do?
Lazarus Qt5 test project
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.