Error in sSpinnedit on double click

Viewing 5 posts - 1 through 5 (of 5 total)
  • Author
    Posts
  • #71276
    RJ
    Participant

    When double click with mouse and hold the leftbutton down and move away from spinbutton and then let the leftbutton loose. Then move the mousepointer again to the spinbutton and the value automatically increments every time you move the mousepointer over the spinnbutton. This is not a wanted behavior for me. Is this possible to disable this.
    When you close the programm and this automatically incrementing is on the programm gives an error see screendump of the error. I am using Delphi 7 with your version v17_01

    Hope you can help me
    Regards Robert

    Attachments:
    You must be logged in to view attached files.
    #71283
    RJ
    Participant

    Can some one help me with a work arround or solution please.

    #71296
    Lasse
    Participant

    I can confirm this issue is happening with the latest version. I will try to fix it.

    #71299
    Lasse
    Participant

    If you have source codes (sSpinEdit.pas), you can fix this like:

    procedure TsBaseSpinEdit.WndProc(var Message: TMessage);
    ...
        CM_MOUSELEAVE: begin
          // ==> Fix starts
          if Assigned(FRepeatTimer) then 
            FreeAndNil(FRepeatTimer);
    
          MousePressed := False; 
          // <== Fix ends
          if Btn1State > 0 then
            Btn1State := 0;

    If you don’t have source code, you need to inherit TsSpinEdit and override WndProc.

    • This reply was modified 1 year, 4 months ago by Lasse.
    #71303
    RJ
    Participant

    Thanks this works perfect for me.

Viewing 5 posts - 1 through 5 (of 5 total)
  • You must be logged in to reply to this topic.