Ada 编程/库/GUI/QtAda
QtAda 是一个 Ada2005 绑定到 Qt 库和相关工具。在 GPL 和 GMGPL (商业支持) 许可证下。
with Qt_Ada.Application;
with Qt4.Push_Buttons.Constructors;
with Qt4.Strings;
procedure Main is
Hello : Qt4.Push_Buttons.Q_Push_Button_Access;
begin
Qt_Ada.Application.Initialize;
Hello :=
Qt4.Push_Buttons.Constructors.Create
(Qt4.Strings.From_Utf_16 ("Hello world!"));
Hello.Resize (100, 30);
Hello.Show;
Qt_Ada.Application.Execute;
Qt_Ada.Application.Finalize;
end Main;