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

11
src/ce_synmemo.pas
View File

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