mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-31 14:41:54 +01:00
62 lines
1.4 KiB
ObjectPascal
62 lines
1.4 KiB
ObjectPascal
{ MouseAndKeyInput
|
|
|
|
Copyright (C) 2008 Tom Gregorovic
|
|
|
|
This source 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.
|
|
|
|
This code is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
|
|
even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
General Public License for more details.
|
|
|
|
A copy of the GNU General Public License is available on the World Wide Web at
|
|
<http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing to the Free Software
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.
|
|
}
|
|
unit MouseAndKeyInput;
|
|
|
|
interface
|
|
|
|
uses
|
|
MouseInputIntf,
|
|
KeyInputIntf,
|
|
{$IFDEF WINDOWS}
|
|
WinMouseInput,
|
|
WinKeyInput,
|
|
{$ENDIF}
|
|
{$IFDEF UNIX}
|
|
{$IFDEF LCLcarbon}
|
|
CarbonMouseInput,
|
|
CarbonKeyInput,
|
|
{$ELSE}
|
|
XMouseInput,
|
|
XKeyInput,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
Classes, SysUtils;
|
|
|
|
var
|
|
MouseInput: TMouseInput;
|
|
KeyInput: TKeyInput;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
initialization
|
|
|
|
// Create platform specific object for mouse input
|
|
MouseInput := InitializeMouseInput;
|
|
|
|
// Create platform specific object for key input
|
|
KeyInput := InitializeKeyInput;
|
|
|
|
finalization
|
|
|
|
FreeAndNil(MouseInput);
|
|
FreeAndNil(KeyInput);
|
|
|
|
|
|
end.
|