forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, editor scroll interruptions due to hints

This commit is contained in:
Basile Burg 2015-03-15 01:11:27 +01:00
parent 03ce7716f9
commit 92925489ca
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_synmemo.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, SynEdit, ce_d2syn, ce_txtsyn ,SynEditHighlighter, controls, Classes, SysUtils, SynEdit, ce_d2syn, ce_txtsyn ,SynEditHighlighter, controls,
lcltype, LazSynEditText, SynEditKeyCmds, SynHighlighterLFM, SynEditMouseCmds, lcltype, LazSynEditText, SynEditKeyCmds, SynHighlighterLFM, SynEditMouseCmds,
SynEditFoldedView, crc, ce_common, ce_observer, ce_writableComponent, Forms, SynEditFoldedView, crc, ce_common, ce_observer, ce_writableComponent, Forms,
graphics, ExtCtrls; graphics, ExtCtrls, LMessages, messages;
type type
@ -110,6 +110,7 @@ type
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
published published
property defaultFontSize: Integer read fDefaultFontSize write setDefaultFontSize; property defaultFontSize: Integer read fDefaultFontSize write setDefaultFontSize;
public public
@ -332,6 +333,8 @@ begin
ShowHint :=false; ShowHint :=false;
InitHintWins; InitHintWins;
fHintTimer := TIdleTimer.Create(self); fHintTimer := TIdleTimer.Create(self);
fHintTimer.AutoEnabled:=true;
fHintTimer.Interval := 200;
fHintTimer.OnTimer := @HintTimerEvent; fHintTimer.OnTimer := @HintTimerEvent;
// //
Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5; Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
@ -579,6 +582,7 @@ begin
VK_DECIMAL: Font.Size := fDefaultFontSize; VK_DECIMAL: Font.Size := fDefaultFontSize;
end; end;
TCEEditorHintWindow.FontSize := Font.Size; TCEEditorHintWindow.FontSize := Font.Size;
fCanShowHint:=false;
fDDocWin.Hide; fDDocWin.Hide;
end; end;
@ -664,6 +668,13 @@ begin
else if Button = mbLeft then else if Button = mbLeft then
fPositions.store; fPositions.store;
end; end;
function TCESynMemo.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
fCanShowHint:=false;
fHintTimer.Enabled:=false;
end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}
initialization initialization