paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 04:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Updated with the latest widgetset changes

Browse Source 
git-svn-id: trunk@7662 -
This commit is contained in:
marc 2005-09-10 16:09:23 +00:00
parent 544521bf59
commit 0ae90dd622
3 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/qt/interfaces.pp
View File

@ -30,22 +30,19 @@ unit interfaces;
interface
uses
InterfaceBase;
var
InterfaceObject : TWidgetSet;
InterfaceBase;
implementation
uses
QTInt;
QTInt, Forms;
initialization
InterfaceObject := TQtWidgetSet.Create;
WidgetSet := TQtWidgetSet.Create;
finalization
InterfaceObject.Free;
WidgetSet.Free;
end.

6
lcl/interfaces/qt/qtint.pp
View File

@ -54,7 +54,7 @@ type
procedure SetCallback(Msg : LongInt; Sender : TObject); override;
procedure RemoveCallbacks(Sender : TObject); override;
procedure DoEvents; override;
procedure HandleEvents; override;
procedure AppProcessMessages; override;
procedure AppTerminate; override;
procedure Init; override;
end;
@ -224,7 +224,3 @@ finalization
KeyStateList.Free;
end.

2
lcl/interfaces/qt/qtobject.inc
View File

@ -160,7 +160,7 @@ procedure TQtWidgetSet.DoEvents;
begin
Assert(False, 'Trace:*******QT ENGINE HAS ENTERED EVENT ITTERATOR*******');
end;
procedure TQtWidgetSet.HandleEvents;
procedure TQtWidgetSet.AppProcessMessages;
begin
MainLoop;
end;