[kaju_74]

Hi…

I think there's an error in TsSpinEdit. Entering any valid char currently end

into a message beep:

Code:

procedure TsBaseSpinEdit.KeyPress(var Key: Char);
var
C : AnsiChar;
err : boolean;
begin
C := AnsiChar(Key);
err := not IsValidChar(C);
if not err or (C = #0) then begin
Key := #0;
MessageBeep(0);
end
else inherited KeyPress(Key);
end;

So I had replaced the “if not error” with “if error” and it works 😎

Regards,

Marc

[Mark Zackie]

I have the same problem with TsSpinEdit (AC v7.09), and my license is without the sources so I cannot fix any file 🙁

Another problem with the TsSpinEdit is the MinValue property.

Example:

– MinValue = 0

– MaxValue = 100

with the Up/Down buttons the spinedit allows to go back to values < MinValues (-1, -2, -3…) 😮

---

Many thanks, in AC v7.10 these bugs are fixed now.

[Support]

Thanks for messages 🙂

[Author]

Posts