[Gambas-user] GTK versus QT

[Bruce Steers]

What exactly are you testing for here...

   If vText Match "." Then vText = Replace(vText, ".", ",") '<-------
localisation Europa
?
It looks like it could be the problem to me.
https://gambaswiki.org/wiki/doc/pcre


maybe you just want
If vText = "."

BruceS

On Thu, 23 Feb 2023 at 13:10, Philippe Valarcher <philippe.valarcher at free.fr>
wrote:

> Le jeudi 23 février 2023 à 13:44 +0100, Jorge Carrión a écrit :
>
> Tried with QT5 and GTK3, both works fine for me here.
>
> Best Regards
>
> El jue, 23 feb 2023 a las 12:52, Philippe Valarcher (<
> philippe.valarcher at free.fr>) escribió:
>
> I have a concern on a small program, with the component GB.QT The
> Form_Keypress works well and does what I ask him when with GB.GTK or even
> GB.GTK3 The keyboard entry takes only the last figure, The concatenation of
> the figures is not done (we can check it by doing a simple operation of the
> 11+1 style, under GTK it gives = 2 while under QT it gives = 12.
> There is certainly a way to turn around but I have not yet found.
> I attach a text file with the incriminated procedures as well as the 47
> version (under GB.GTK).
>
> Thank you for your help.
>
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
> It works only with gb.qt5 on my machine not with gb.gtk nor gb.gtk3.
> I have to send it with gb.gtk.
> I tried with this :
> Public Sub Form_KeyPress()
>
> Dim vText As Variant
> Dim cChiffres As String[] = ["0", "1", "2", "3", "4", "5", "6", "7", "8",
> "9", ",", "."]
> Dim cSignes As String[] = ["+", "-", "*", "x", "/", "^", Chr(92)]
>
> vText = Key.Text
>
> If vText Match "." Then vText = Replace(vText, ".", ",")
>
> If Key.Code = key.Return Or Key.Code = key.Enter Then btnEgal_Click()
> If Key.Code = Key.Esc Then btnCancel_Click()
> If Key.Code = Key.Backspace Or Key.Code = Key.Delete Then
> btnEffacer_Click()
> If Key.Code = Key.ShiftKey Then btnMod.Text = "Div"
> If Key.Code = Key.AltKey Then btnMod.Text = "Mod"
>
> ' If cChiffres.Exist(vText) Then
> If IsDigit(vtext) Then
> Last.text = vText
> Chiffres_Click()
> Endif
>
> If cSignes.Exist(vText) Then
> ' If IsPunct(vtext) Then
> Last.Text = vText
> Signes_Click()
> Endif
>
> If Not cSignes.Exist(Key.Text) Or Not cChiffres.Exist(Key.Text) Then Stop
> Event '<--- rien d'autre que les signes et les chiffres autorisés
>
> Me.Text = ("Calculatrice ") '<----------------------------------- pour ne
> pas afficher vText dans le titre du formulaire
>
> Catch
> Message.Error(Str(Error.Class) & ", code : " & Error.Code & ", " &
> Str(Error.Backtrace) & " à " & Error.Where & " | " & Error.Text)
>
> End
>
> But it works only for digits not for punct
>
> Thank you
> Best Regards
>
> --
>
> Philippe Valarcher <philippe.valarcher at free.fr>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230223/f138d1fb/attachment-0001.htm>