[Gambas-user] GTK versus QT

[Philippe Valarcher]

Le jeudi 23 février 2023 à 13:25 +0000, Bruce Steers a écrit :
> 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
> > 
> > ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
It's only for french keyboard
Regards

-- 
Philippe Valarcher <philippe.valarcher at free.fr>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230223/8e3489c7/attachment.htm>