Staff Directory

Jarrod Davis

There are no registered users currently online

Mouse helper code

var I: Integer;So… Start with

```delphi and hit enter to get Delphi code block

Thyandyr, October 23Oct 23
Mouse helper code

Test

```Pascal
var A: Integer := 0;
```

Thyandyr, October 23Oct 23
Mouse helper code

TButtonState = (bsOnClick, bsOnHold, bsOnRelease, bsOff); TButtonStateHelper = record helper for TButtonState function ToString: string; end; TMouseButton = record Left: TButtonState; Middle: TButtonState; Right: TButtonState; end; TMouse = record Wheel: TVector; Location: TPoint; Button: TMouseButton; end; // Returns all mouse stuff in one call procedure ...GetMouse; begin Mouse.Location := LWindow.GetMousePos; Mouse.Wheel := LWindow.GetMouseWheel; if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_LEFT, isWasReleased) then Mouse.Button.Left := bsOnRelease else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_LEFT, isWasPressed) then Mouse.Button.Left := bsOnClick else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_LEFT, isPressed) then Mouse.Button.Left := bsOnHold else Mouse.Button.Left := bsOff; if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_MIDDLE, isWasReleased) then Mouse.Button.Middle := bsOnRelease else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_MIDDLE, isWasPressed) then Mouse.Button.Middle := bsOnClick else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_MIDDLE, isPressed) then Mouse.Button.Middle := bsOnHold else Mouse.Button.Middle := bsOff; if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_RIGHT, isWasReleased) then Mouse.Button.Right := bsOnRelease else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_RIGHT, isWasPressed) then Mouse.Button.Right := bsOnClick else if LWindow.GetMouseButton(Mamba.Core.MOUSE_BUTTON_RIGHT, isPressed) then Mouse.Button.Right := bsOnHold else Mouse.Button.Right := bsOff; end; { TTInputStateHelper } function TButtonStateHelper.ToString: string; begin Result := 'Undefined'; case Self of bsOff: Result := 'Off'; bsOnHold: Result := 'Pressed'; bsOnClick: Result := 'Was Pressed'; // Is newly pressed bsOnRelease: Result := 'Was Released'; // Is newly off end; end;

Thyandyr, Posted October 23Oct 23
Repo Update

Added to Mamba.Core ( IWindow + example, IConfigFile)
Repo Update · tinyBigGAMES/mambagametoolkit@3677483 (github.com)

Jarrod Davis, Posted October 16Oct 16
Repo Update

Added Mamaba.Database ( ILocalDb, IRemoteDb + examples)
Added overloads for IConsole.Print, IConsole.PrintLn
Added latest sqlite3 to Mamba.Deps.o
Added Mamba.OpenGL, to ensure users use correct OpenGL version features
Added overloads for IFont.DrawText, IFont.TextLength

Jarrod Davis, Posted October 16Oct 16

Love Mamba Game Toolkit? Tell a friend!

Sign In

Staff Directory

Administrators

Jarrod Davis

Who's Online (See full list)

Forum Posts

Mouse helper code

Mouse helper code

Mouse helper code

Repo Update

Repo Update

Tell a friend

Important Information

Account

Navigation

Messages

Notifications

Search