Bug dans composant TBMSpinEdit
Résolu
steph12358
Messages postés
149
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
10 décembre 2009
-
4 févr. 2009 à 15:37
steph12358 Messages postés 149 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 10 décembre 2009 - 5 févr. 2009 à 16:20
steph12358 Messages postés 149 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 10 décembre 2009 - 5 févr. 2009 à 16:20
A voir également:
- Bug dans composant TBMSpinEdit
- Un composant activex ne peut pas créer un objet ✓ - Forum Visual Basic
- Erreur: Un composant ActiveX ne peut pas créer un objet ✓ - Forum PHP
- Il bug en arabe ✓ - Forum Delphi / Pascal
- Ou acheter composant électronique ✓ - Forum C / C++ / C++.NET
- Erreur ActiveX 429 - Forum Visual Basic
2 réponses
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
37
4 févr. 2009 à 16:27
4 févr. 2009 à 16:27
Patch du fichier BMSpinEdit.PAS :
Ligne 511 :
function TBMDSpinEdit.ValueToText(const V: Double): string;
begin
Result := Format('%.*f',[FPrecision, V]);
if FValueUnit <> '' then
Result := Result + ' ' + FValueUnit;
end;
Ligne 923 :
procedure TBMDSpinEdit.SetPrecision(V: Integer);
begin
if V < 0 then
V := 0
else
if V > 9 then
V := 9;
if FPrecision <> V then
begin
FPrecision := V;
SetValue(Value);
end;
end;
Ligne 993 :
procedure TBMDSpinEdit.KeyPress(var Key: Char);
begin
if (not FEditorEnabled) or
(not (Key in ['0'..'9','-','+',DecimalSeparator,#8])) then
Key := #0;
inherited;
end;
<hr size="2" width="100%" />
Ligne 511 :
function TBMDSpinEdit.ValueToText(const V: Double): string;
begin
Result := Format('%.*f',[FPrecision, V]);
if FValueUnit <> '' then
Result := Result + ' ' + FValueUnit;
end;
Ligne 923 :
procedure TBMDSpinEdit.SetPrecision(V: Integer);
begin
if V < 0 then
V := 0
else
if V > 9 then
V := 9;
if FPrecision <> V then
begin
FPrecision := V;
SetValue(Value);
end;
end;
Ligne 993 :
procedure TBMDSpinEdit.KeyPress(var Key: Char);
begin
if (not FEditorEnabled) or
(not (Key in ['0'..'9','-','+',DecimalSeparator,#8])) then
Key := #0;
inherited;
end;
<hr size="2" width="100%" />
steph12358
Messages postés
149
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
10 décembre 2009
1
5 févr. 2009 à 16:20
5 févr. 2009 à 16:20
Salut f0xi
Je vais corriger et recompiler et réinstaller le contrôle
Mille fois merci !
A+
Je vais corriger et recompiler et réinstaller le contrôle
Mille fois merci !
A+
