mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-07 15:17:12 +01:00
43 lines
971 B
ObjectPascal
43 lines
971 B
ObjectPascal
{
|
|
/***************************************************************************
|
|
Interfaces.pp - determines what interface to use
|
|
-------------------
|
|
|
|
Initial Revision : Thu July 1st CST 1999
|
|
|
|
|
|
******************** *******************************************************/
|
|
|
|
*****************************************************************************
|
|
This file is part of the Lazarus Component Library (LCL)
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
}
|
|
|
|
unit Interfaces;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IF (FPC_FULLVERSION >= 30000) AND NOT DEFINED(DisableUTF8RTL)}
|
|
LazUTF8,
|
|
{$IFEND}
|
|
InterfaceBase;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Win32Int, Forms;
|
|
|
|
initialization
|
|
CreateWidgetset(TWin32WidgetSet);
|
|
|
|
finalization
|
|
FreeWidgetSet;
|
|
|
|
end.
|