Skip to content

Commit

Permalink
Fix: Spam clicking the input box bug
Browse files Browse the repository at this point in the history
  • Loading branch information
TheTS committed May 22, 2015
1 parent 7ec7981 commit 50d9a4c
Showing 1 changed file with 7 additions and 2 deletions.
9 changes: 7 additions & 2 deletions lib/core/players.simba
Expand Up @@ -37,8 +37,7 @@ File's internal variables.

*}
var
_boxUsername: TBox = [-1, -1, -1, -1];
_boxPassword: TBox = [-1, -1, -1, -1];
_boxUsername, _boxPassword: TBox;
{$IFNDEF CODEINSIGHT}
__areDynamicInterfacesSet: boolean = false;
{$ENDIF}
Expand Down Expand Up @@ -678,6 +677,9 @@ var
tpaActive, tpaInactive: TPointArray;
bdsActive, bdsInactive: TBox;
begin
_boxUsername := [-1, -1, -1, -1];
_boxPassword := [-1, -1, -1, -1];

findColors(tpaActive, 6774863, 247, 229, 547, 379); // active box border color
findColors(tpaInactive, 6906451, 247, 229, 547, 379); // inactive box border color

Expand Down Expand Up @@ -739,6 +741,9 @@ var
c: integer;
t : LongWord;
begin
if (inputBox.x1 < 1) then
exit(false);

t := (getSystemTime() + (60000 * 2));
inputBox.offset(point(8, 0));

Expand Down

0 comments on commit 50d9a4c

Please sign in to comment.