19 lines
432 B
ObjectPascal
19 lines
432 B
ObjectPascal
//!Сборка 'Microsoft.WindowsAPICodePack.Shell.dll' не найдена
|
|
{$apptype windows}
|
|
{$reference Eto.dll}
|
|
{$reference Eto.WinForms.dll}
|
|
uses Eto.Forms;
|
|
|
|
type MyForm = class(Form)
|
|
constructor;
|
|
begin
|
|
Title := 'My Cross-Platform App';
|
|
ClientSize := new Eto.Drawing.Size(200, 200);
|
|
var lbl := new &Label();
|
|
lbl.Text := 'Test';
|
|
Content := lbl;
|
|
end;
|
|
end;
|
|
begin
|
|
(new Application()).Run(new MyForm());
|
|
end. |