[lazarus] Qt header progress

[Michael Van Canneyt]

On Tue, 23 Sep 2003, Florian Klaempfl wrote:

> I'am working currently on adapting kalyptus (the KDE tool to generate C
> binding for Qt/KDE) to output pascal bindings. I think it will be
> finished in a few days. A small, already working example is attached.

Great !!
(but you forgot the Qt file ;))

>
> uses
>     qt;
>
> var
>    a : qapplicationh;
>    hello : qpushbuttonh;
>    Qt_EventDelegate : pointer;cvar;
>
> begin
>    Qt_EventDelegate:=nil;
>    a:=qt_new_QApplication(argc, argv);
>    hello:=qt_new_QPushButton1('Hello world, by FPC/Qt', nil, nil);
>    QPushButton_resize(hello, 200, 50 );
>    QApplication_setMainWidget(a, hello);
>    QWidget_show(hello);
>    QApplication_exec(a);
> end.
>
> Any suggestions for improvements?

Why the 'h' at the end of types ? This makes it incompatible with Kylix, I think...

Michael.