[lazarus] Qt header progress

Mattias Gaertner nc-gaertnma at netcologne.de
Tue Sep 23 12:46:45 EDT 2003


On Tue, 23 Sep 2003 18:48:55 +0200 (W. Europe Daylight Time)
Michael Van Canneyt <michael.vancanneyt at wisa.be> wrote:

> 
> 
> 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;

Will this be the only unit?


> > 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);

Why the '1'?


> >    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...


Mattias






More information about the Lazarus mailing list