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

editor option, completion menu case sensitive

This commit is contained in:
Basile Burg 2015-05-24 17:31:45 +02:00
parent 720b66dc15
commit 915f168a0c
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_editoroptions.pas
View File

@ -49,6 +49,7 @@ type
fOptions1: TSynEditorOptions;
fOptions2: TSynEditorOptions2;
fMouseOptions: TSynEditorMouseOptions;
fCompletionMenuCaseCare: boolean;
//
procedure setFont(aValue: TFont);
procedure setSelCol(aValue: TSynSelectedColor);
@ -61,6 +62,7 @@ type
procedure setHintDelay(aValue: Integer);
procedure setAutoDotDelay(aValue: Integer);
published
property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare;
property autoDotDelay: integer read fAutoDotDelay write SetautoDotDelay;
property hintDelay: Integer read fHintDelay write setHintDelay;
property bracketMatchColor: TSynSelectedColor read fBracketMatchColor write setBracketMatchColor;
@ -218,6 +220,7 @@ begin
begin
srcopt := TCEEditorOptionsBase(src);
//
fCompletionMenuCaseCare:=srcopt.fCompletionMenuCaseCare;
fAutoDotDelay:=srcopt.fAutoDotDelay;
fHintDelay:=srcopt.fHintDelay;
fFont.Assign(srcopt.fFont);
@ -455,6 +458,7 @@ var
shc: TCEPersistentShortcut;
kst: TSynEditKeyStroke;
begin
anEditor.completionMenuCaseCare:=fCompletionMenuCaseCare;
anEditor.autoDotDelay:=fAutoDotDelay;
anEditor.hintDelay:=fHintDelay;
anEditor.defaultFontSize := font.Size;

11
src/ce_synmemo.pas
View File

@ -97,6 +97,7 @@ type
fAutoDotTimer: TIdleTimer;
fCanShowHint: boolean;
fCanAutoDot: boolean;
fCompletionCaseSens: boolean;
fOldMousePos: TPoint;
fSyncEdit: TSynPluginSyncroEdit;
fCompletion: TSynCompletion;
@ -112,6 +113,7 @@ type
procedure AutoDotTimerEvent(sender: TObject);
procedure InitHintWins;
function getIfTemp: boolean;
procedure SetcompletionMenuCaseCare(aValue: boolean);
procedure setHintDelay(aValue: Integer);
procedure setAutoDotDelay(aValue: Integer);
procedure completionExecute(sender: TObject);
@ -135,6 +137,7 @@ type
property defaultFontSize: Integer read fDefaultFontSize write setDefaultFontSize;
property hintDelay: Integer read fHintDelay write setHintDelay;
property autoDotDelay: Integer read fAutoDotDelay write setAutoDotDelay;
property completionMenuCaseCare: boolean read fCompletionCaseSens write SetcompletionMenuCaseCare;
public
constructor Create(aOwner: TComponent); override;
destructor destroy; override;
@ -391,12 +394,14 @@ begin
png.Free;
end;
//
fCompletionCaseSens:=false;
fCompletion := TSyncompletion.create(nil);
fCompletion.ShowSizeDrag := true;
fCompletion.Editor := Self;
fCompletion.OnExecute:= @completionExecute;
fCompletion.OnCodeCompletion:=@completionCodeCompletion;
fCompletion.OnPaintItem:= @completionItemPaint;
fCompletion.CaseSensitive:=false;
//
MouseLinkColor.Style:= [fsUnderline];
with MouseActions.Add do begin
@ -614,6 +619,12 @@ begin
fHintTimer.Interval:=fHintDelay;
end;
procedure TCESynMemo.SetcompletionMenuCaseCare(aValue: boolean);
begin
fCompletionCaseSens:=aValue;
fCompletion.CaseSensitive:=aValue;
end;
procedure TCESynMemo.HintTimerEvent(sender: TObject);
var
str: string;