lazarus/lcl/interfaces/qt/interfaces.pp
2001-02-24 17:07:55 +00:00

48 lines
1.2 KiB
ObjectPascal

{
/***************************************************************************
Interfaces.pp - determines what interface to use
-------------------
Initial Revision : Thu July 1st CST 1999
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
}
unit interfaces;
{$mode objfpc}
interface
uses
InterfaceBase;
var
InterfaceObject : TInterfaceBase;
implementation
uses
QTInt;
initialization
InterfaceObject := TqtObject.Create;
finalization
InterfaceObject.Free;
end.