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

Make interfaces.pp consistent across the widget sets. CAW

Browse Source 
git-svn-id: trunk@195 -
This commit is contained in:
lazarus 2001-02-24 17:07:01 +00:00
parent 2adcf2a40f
commit e290c25646
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/win32/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
Win32Int;
initialization
InterfaceObject := TInterfaceObject.Create;
InterfaceObject := TWin32Object.Create;
finalization