paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bluetooth: fixed bluetooth compilation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2730 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner 2013-04-20 00:02:40 +00:00
parent c4ee9e297f
commit 2359462c96
1 changed files with 9 additions and 9 deletions

18
examples/bluetooth/wiimotetools.pas
View File

@ -299,15 +299,6 @@ type
procedure HandleEvents; procedure HandleEvents;
procedure HandleRead; procedure HandleRead;
public public
constructor Create;
destructor Destroy; override;
procedure SetLEDs(const AValue: integer);
function Connect: boolean;
procedure Disconnect;
procedure EnableHandshake;
function RealizeReportType: boolean;
procedure RealizeIR;
WiiMotes: TWiiMotes; WiiMotes: TWiiMotes;
ID: integer; ID: integer;
Name: string; Name: string;
@ -332,6 +323,15 @@ type
Accel: TAccelVector; // current accelerator state Accel: TAccelVector; // current accelerator state
AccelCalibration: TAccelCalibration; AccelCalibration: TAccelCalibration;
Dots: array[0..3] of TWiiMoteDot; Dots: array[0..3] of TWiiMoteDot;
constructor Create;
destructor Destroy; override;
procedure SetLEDs(const AValue: integer);
function Connect: boolean;
procedure Disconnect;
procedure EnableHandshake;
function RealizeReportType: boolean;
procedure RealizeIR;
end; end;
{ TWiiMotes } { TWiiMotes }