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

options, added hintDelay (ddoc) to editor category

This commit is contained in:
Basile Burg 2015-05-21 20:41:16 +02:00
parent ed6b1c4256
commit 006d375ec3
2 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_editoroptions.pas
View File

@ -37,6 +37,7 @@ type
fBracketMatchColor: TSynSelectedColor;
fFont: TFont;
//
fHintDelay: Integer;
fTabWidth: Integer;
fBlockIdent: Integer;
fLineSpacing: Integer;
@ -55,8 +56,10 @@ type
procedure setBracketMatchColor(aValue: TSynSelectedColor);
procedure setD2Syn(aValue: TPersistent);
procedure setTxtSyn(aValue: TPersistent);
procedure setShortcuts(Avalue: TCollection);
procedure setShortcuts(aValue: TCollection);
procedure setHintDelay(aValue: Integer);
published
property hintDelay: Integer read fHintDelay write setHintDelay;
property bracketMatchColor: TSynSelectedColor read fBracketMatchColor write setBracketMatchColor;
property mouseLinkColor: TSynSelectedColor read fMouseLinkColor write setMouseLinkColor;
property selectedColor: TSynSelectedColor read fSelCol write setSelCol;
@ -142,6 +145,7 @@ begin
fTxtSyn := TSynTxtSyn.Create(self);
fTxtSyn.Assign(TxtSyn);
//
fHintDelay:=200;
fSelCol := TSynSelectedColor.Create;
fFoldedColor := TSynSelectedColor.Create;
fMouseLinkColor := TSynSelectedColor.Create;
@ -210,6 +214,7 @@ begin
begin
srcopt := TCEEditorOptionsBase(src);
//
fHintDelay:=srcopt.fHintDelay;
fFont.Assign(srcopt.fFont);
fSelCol.Assign(srcopt.fSelCol);
fFoldedColor.Assign(srcopt.fFoldedColor);
@ -233,6 +238,13 @@ begin
inherited;
end;
procedure TCEEditorOptionsBase.setHintDelay(aValue: Integer);
begin
if aValue > 2000 then aValue := 2000
else if aValue < 20 then aValue := 20;
fHintDelay:=aValue;
end;
procedure TCEEditorOptionsBase.setShortcuts(aValue: TCollection);
begin
fShortCuts.Assign(aValue);
@ -431,6 +443,7 @@ var
shc: TCEPersistentShortcut;
kst: TSynEditKeyStroke;
begin
anEditor.hintDelay:=fHintDelay;
anEditor.defaultFontSize := font.Size;
anEditor.Font.Assign(font);
anEditor.SelectedColor.Assign(fSelCol);

12
src/ce_synmemo.pas
View File

@ -91,6 +91,7 @@ type
fMousePos: TPoint;
fCallTipWin: TCEEditorHintWindow;
fDDocWin: TCEEditorHintWindow;
fHintDelay: Integer;
fHintTimer: TIdleTimer;
fCanShowHint: boolean;
fOldMousePos: TPoint;
@ -106,6 +107,7 @@ type
procedure HintTimerEvent(sender: TObject);
procedure InitHintWins;
function getIfTemp: boolean;
procedure setHintDelay(aValue: Integer);
protected
procedure MouseLeave; override;
procedure SetVisible(Value: Boolean); override;
@ -119,6 +121,7 @@ type
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
published
property defaultFontSize: Integer read fDefaultFontSize write setDefaultFontSize;
property hintDelay: Integer read fHintDelay write setHintDelay;
public
constructor Create(aOwner: TComponent); override;
destructor destroy; override;
@ -344,9 +347,10 @@ begin
//
ShowHint :=false;
InitHintWins;
fHintDelay := 200;
fHintTimer := TIdleTimer.Create(self);
fHintTimer.AutoEnabled:=true;
fHintTimer.Interval := 200;
fHintTimer.Interval := fHintDelay;
fHintTimer.OnTimer := @HintTimerEvent;
//
Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
@ -574,6 +578,12 @@ begin
end;
end;
procedure TCESynMemo.setHintDelay(aValue: Integer);
begin
fHintDelay:=aValue;
fHintTimer.Interval:=fHintDelay;
end;
procedure TCESynMemo.HintTimerEvent(sender: TObject);
var
str: string;