paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 21:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Made interfaces.pp consistent across widget sets. CAW

Browse Source 
git-svn-id: trunk@196 -
This commit is contained in:
lazarus 2001-02-24 17:07:55 +00:00
parent e290c25646
commit a6404f82e0
1 changed files with 5 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,55 +24,21 @@ unit interfaces;
{$mode objfpc}
interface
{ $DEFINE WIN}
{$DEFINE QT}
{ $DEFINE GTK}
{$ifdef WIN}
uses InterfaceBase, Win32Int;
type
TInterfaceObject = class(TWin32Object);
{$endif}
{$ifdef GTK}
uses InterfaceBase, gtkint;
type
TInterfaceObject = class(TgtkObject);
{$endif}
{$ifdef QT}
uses InterfaceBase, messages,qtint;
type
TInterfaceObject = class(TQTObject);
{$endif}
uses
InterfaceBase;
var
InterfaceObject : TInterfaceBase;
implementation
procedure Interface_Init;
begin
InterfaceObject.Init;
end;
uses
QTInt;
initialization
InterfaceObject := TInterfaceObject.Create;
InterfaceObject := TqtObject.Create;
finalization