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;