ADD: update libs

Author: PascalCorpsman

data_control/uJSON.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* uJSON.pas                                                       ??.??.???? *)
 (*                                                                            *)
-(* Version     : 0.13                                                         *)
+(* Version     : 0.14                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -40,6 +40,7 @@
 (*               0.12 = .Clone Function                                       *)
 (*               0.13 = Erste Versuche eine Zeilennummer aus zu geben, wenn   *)
 (*                      der JSON Text falsch ist..                            *)
+(*               0.14 = Ignore \u tags instead of throwing an exception       *)
 (*                                                                            *)
 (******************************************************************************)
 Unit uJSON;
@@ -712,7 +713,8 @@
         If (achar = 't') Then achar := chr($09);
         If (achar = 'u') Then Begin
           //todo: das Auswerten des Unicode Zeichens fehlt noch !!
-          Raise Exception.Create('parser does not support \u symbols in string.');
+          achar := ' '; // Das Zeichen bauen wir um zu einem Leerzeichen -> nicht richtig, aber so können wir es "überlesen"
+          aindex := aindex + 4; // Die 4 Zeichen welche nachfolgen und das UTF16 Zeichen bilden ignorieren wir mal ..
         End;
         interpretnext := false;
       End;

data_control/ueventer.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* Eventer                                                         09.05.2019 *)
 (*                                                                            *)
-(* Version     : 0.05                                                         *)
+(* Version     : 0.06                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -26,6 +26,7 @@
 (*               0.03 - improve .click detection                              *)
 (*               0.04 - MouseEnter / MouseLeave                               *)
 (*               0.05 - Owner property public                                 *)
+(*               0.06 - Click event only, if mouse down was also on element   *)
 (*                                                                            *)
 (* Known Bugs  : none                                                         *)
 (*                                                                            *)
@@ -198,7 +199,7 @@
     fOnMouseDownCapture: TMouseEvent;
     fOnMouseMoveCapture: TMouseMoveEvent;
     fOnMouseUpCapture: TMouseEvent;
-
+    fTransformedMouseDownPos: TPoint;
 {$IFDEF KeyEvents}
     fOnKeyDownCapture: TKeyEvent;
     fOnKeyUpCapture: TKeyEvent;
@@ -304,7 +305,13 @@
   End;
   For i := 0 To high(fEventer) Do Begin
     If i > high(fEventer) Then break; // Da im Event das Eventer element auch freigegeben werden darf, braucht es dieses if
-    If PointInRect(point(x, y), fEventer[i].ClientRect) And fEventer[i].fVisible And fEventer[i].fEnabled Then Begin
+    If
+      // Das Element wurde im MouseDown bereits ausgewählt
+      PointInRect(point(fTransformedMouseDownPos.x, fTransformedMouseDownPos.y), fEventer[i].ClientRect)
+      // Das Element ist immer noch ausgewählt
+      And PointInRect(point(x, y), fEventer[i].ClientRect)
+      And fEventer[i].fVisible
+      And fEventer[i].fEnabled Then Begin
       handled := true;
       If fMouseDownEventer = fEventer[i] Then fMouseDownEventer := Nil;
       fEventer[i].MouseUp(button, shift, x - fEventer[i].Left, y - fEventer[i].Top);
@@ -343,6 +350,7 @@
     x := p.x;
     y := p.y;
   End;
+  fTransformedMouseDownPos := point(x, y);
   For i := 0 To high(fEventer) Do Begin
     fEventer[i].FFocus := false;
   End;

data_control/umathsolver.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* umathsolver.pas                                                 ??.??.???? *)
 (*                                                                            *)
-(* Version     : 0.09                                                         *)
+(* Version     : 0.10                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -32,6 +32,7 @@
 (*               0.07 - Formatieren von Binärzahlen Nibble weise              *)
 (*               0.08 - trunc, floor repariert                                *)
 (*               0.09 - a^b für a < 0 und b ganzzahlig                        *)
+(*               0.10 - rnd / random function                                 *)
 (*                                                                            *)
 (******************************************************************************)
 
@@ -61,6 +62,7 @@
  *      floor      = Die nächst kleinere Integer Zahl
  *      ceil       = Die nächst größere Integer Zahl
  *      round      = Rundet zur nächsten Integer Zahl
+ *      rnd/random = Erzeugt eine Zufallszahl im Bereich [0 .. Param -1]
  *
  * Binäre Operanden
  *      ^          = Exponenzieren
@@ -413,6 +415,25 @@
   Result_is_Float := false;
 End;
 
+Function Random_Float(v1: Pointer): Pointer;
+Var
+  res: pmp_float;
+  tmp: mp_int;
+Begin
+  new(res);
+  mpf_init(res^);
+  mpf_random(res^);
+  mpf_mul(res^, pmp_float(v1)^, res^);
+  If Not Result_is_Float Then Begin
+    mp_init(tmp);
+    mpf_trunc(res^, tmp);
+    mpf_set_mpi(res^, tmp);
+    mp_clear(tmp);
+  End;
+  result := res;
+  Result_is_Float := false;
+End;
+
 Function shift_left_Float(v1, v2: Pointer): Pointer;
 Var
   mull: mp_float;
@@ -806,6 +827,8 @@
   calc.AddUnOP('trunc', @trunc_Float);
   calc.AddUnOP('ceil', @Ceil_Float);
   calc.AddUnOP('round', @Round_Float);
+  calc.AddUnOP('rnd', @Random_Float);
+  calc.AddUnOP('random', @Random_Float);
 
   calc.AddBinOP('^', @Pow_Float);
   calc.AddBinOP('shl', @shift_left_Float);