paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 09:38:11 +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

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

@ -32,20 +32,17 @@ interface
uses uses
InterfaceBase; InterfaceBase;
var
InterfaceObject : TWidgetSet;
implementation implementation
uses uses
QTInt; QTInt, Forms;
initialization initialization
InterfaceObject := TQtWidgetSet.Create; WidgetSet := TQtWidgetSet.Create;
finalization finalization
InterfaceObject.Free; WidgetSet.Free;
end. end.

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

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

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

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