From 915f168a0c320ec4e7e5a68f2a3e19e1fbfe9d52 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 24 May 2015 17:31:45 +0200
Subject: [PATCH] editor option, completion menu case sensitive

---
 src/ce_editoroptions.pas |  4 ++++
 src/ce_synmemo.pas       | 11 +++++++++++
 2 files changed, 15 insertions(+)

diff --git a/src/ce_editoroptions.pas b/src/ce_editoroptions.pas
index 808f5415..449c871e 100644
--- a/src/ce_editoroptions.pas
+++ b/src/ce_editoroptions.pas
@@ -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;
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index b720e2de..6320fbeb 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -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;