diff options
-rw-r--r-- | src/corelib/fpg_main.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_spinedit.pas | 5 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index fa6b44d5..faaad5fd 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -2215,6 +2215,7 @@ procedure TfpgCaret.UnSetCaret(ACanvas: TfpgCanvas); begin if (FCanvas = ACanvas) or (ACanvas = nil) then begin + FTimer.Enabled := False; FEnabled := False; FCanvas := nil; end; diff --git a/src/gui/fpg_spinedit.pas b/src/gui/fpg_spinedit.pas index ce768120..52bd7873 100644 --- a/src/gui/fpg_spinedit.pas +++ b/src/gui/fpg_spinedit.pas @@ -327,10 +327,7 @@ end; procedure TfpgAbstractSpinEdit.HandlePaint; begin - Canvas.Clear(BackgroundColor); - if FButtonUp.HasHandle then - fpgPostMessage(self, FButtonUp, FPGM_PAINT); -// FButtonDown.Invalidate; + Canvas.Clear(BackgroundColor); end; procedure TfpgAbstractSpinEdit.HandleResize(AWidth, AHeight: TfpgCoord); |