Réaction étrange avec maskedit

Version imprimable

30/01/2019, 11h11
ovni76

Réaction étrange avec maskedit

Bonjour,

Je suis sous Fedora et j'utilise depuis plusieurs années Lazarus - aujourd'hui la version 1.8.4.2.fc29 - et en utilisant des petites applications utilisant des bases de données SQLite dans mes fiches j'ai des Maskedit avec des EditMask de valeur !9999,99 par exemple.
Jusqu'ici pas de problème dans mon application. À un moment, je fais un SetFocus pour venir dans la case et y entrer les valeurs, mais voilà aujourd'hui le SetFocus donne une inversion video puis au lieu de revenir dans une couleur de fond habituelle avec le curseur à gauche, celui-ci va tout à droite et, si je cherche à le mettre à gauche pour entrer la valeur numérique, il se place sur l'avant-dernière position puis, à chaque entrée, se décale de 2 crans vers la droite avec pour résultat final qu'il n'accepte qu'un chiffre en décimale.

Pourquoi cela et comment le corriger ?
Merci d'avance
30/01/2019, 12h09
BeanzMaster

Bonjour

Pourrais tu nous faire une petite demo simple (sans bdd) pour pouvoir recréer ce problème ?
Je comprend le problème dans les grandes lignes, mais sans code ou sans un petit GIF nous montrant ce comportement étrange, il est difficile de te répondre.
30/01/2019, 16h36
ovni76

Bonjour,
Je peux faire une copie d'une partie d'une unité où le problème se réalise, mais je ne sais si cela sera utile. Quant à l'envoi de gif cela dépasse mes connaissances, et en plus j'ai un autre gros problème : je n'arrive plus à sélectionner un morceau de fichier dans le presse-papier pour le recopier ailleurs.
Donc je vais essayer de résoudre ce problème avant de continuer.
Donc A+
30/01/2019, 16h45
BeanzMaster

Citation:

Envoyé par ovni76

Bonjour,
Je peux faire une copie d'une partie d'une unité où le problème se réalise mais je ne sais si cela sera utile quand à l'envoi de gif cela dépasse mes connaissances
et en plus j'ai un autre gros problème je n'arrive plus à sélectionner un morceau de fichier dans le presse papier pour le recopier ailleurs.
Donc je vais essayer de résoudre ce problème avant de continuer.
Donc A+

Arg ! Ca présage un problème avec ton OS :weird:

Me revoila juste un problème de presse papier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
procedure TFentrer.SequenceDebit;
begin
// séquence 8 : c'est une opération à débitée
  MCREDIT:='0,00';
  MCREDIT:=LongueurMontant(MCREDIT);
  ECredit.Text:=MCREDIT;
  BValiderMontant.Visible:=True;
  MaskDebit.Visible:=True;
  MaskDebit.SetFocus;
end;
 
procedure TFentrer.BValiderMontantClick(Sender: TObject);
begin
  // validation du montant de l'opération avec test d'une entrèe valable
  // et mise en forme du résultat issu du maskedit
  BValiderMontant.Visible:=False;
  if MPOSITIF='OUI' then  MMASQUE:=MaskCredit.Text
  else MMASQUE:=MaskDebit.Text;
  MMASQUE:=TraitementMasque(MMASQUE);
  if MPOSITIF='OUI' then  // crédit
  begin
    if (MMASQUE='') or (MMASQUE=',') then
    begin
    MMESSAGE:='Erreur, valeur créditée nulle';
    MessageErreur;
    MaskCredit.Text:='';
    XSUITE:=7;
    Sequencement;
    end
    else
    begin
    MMASQUE:=DeuxDecimales(MMASQUE);
    MMASQUE:=LongueurMontant(MMASQUE);
    MCREDIT:=MMASQUE;
    ECredit.Text:=MCREDIT;
    MaskCredit.Visible:=False;
    ECredit.Visible:=True;
    XSUITE:=9;
    Sequencement;
    end;
  end
  else
  begin  // débit
    if (MMASQUE='') or (MMASQUE=',') then
    begin
    MMESSAGE:='Erreur, valeur débitée nulle';
    MessageErreur;
    MaskDebit.Text:='';
    XSUITE:=8;
    Sequencement;
    end
    else
    begin
    MMASQUE:=DeuxDecimales(MMASQUE);
    MMASQUE:=LongueurMontant(MMASQUE);
    MDEBIT:=MMASQUE;
    EDebit.Text:=MDEBIT;
    MaskDebit.Visible:=False;
    EDEbit.Visible:=True;
    XSUITE:=9;
    Sequencement;
    end;
  end;
end;

donc ci-dessus un morceau d'une unité où la fonction maskedit est utilisée
Ce qui est étrange c'est que toute cette application fonctionnait
Les mystères de l'informatique

30/01/2019, 20h30
ovni76

J'ai un autre ordinateur mais en 32 bits avec la même version de fedora et la même version de lazarus donc j'ai une direction de recherche vers la compilation en 64 bits.
A+
01/02/2019, 11h43
ovni76

Me revoilà,
Je n'y comprends rien, j'ai recompilé mon application et c'est de nouveau normal, alors mon problème aurait été lié à une mauvaise configuration de presse-papier. C'est bien étrange mais je ne vais pas me plaindre d'avoir à nouveau une application qui fonctionne correctement.
Donc fin de cette affaire, à moins que l'un d'entre vous ait une explication.
A+