[lazarus] Qt header progress

Florian Klaempfl Florian.Klaempfl at gmx.de
Tue Sep 23 10:50:30 EDT 2003


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.

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?






More information about the Lazarus mailing list