removed temp code for #25 and added workaround in the default static macros

This commit is contained in:
Basile Burg 2016-03-04 06:14:46 +01:00
parent 207f9276d6
commit 0682122b3f
3 changed files with 2 additions and 12 deletions

View File

@ -58,7 +58,6 @@ type
fCompletionMenuWidth: integer;
fCompletionMenuLines: Byte;
fAutoCLoseCurlyBrace: TBraceAutoCloseStyle;
fCtrlDisableAutoClose: boolean;
//
procedure setFont(value: TFont);
procedure setSelCol(value: TSynSelectedColor);
@ -84,7 +83,6 @@ type
property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare;
property completionMenuLines: byte read fCompletionMenuLines write setCompletionMenuLines;
property completionMenuWidth: integer read fCompletionMenuWidth write fCompletionMenuWidth;
//property ctrlDisableAutoClose: boolean read fCtrlDisableAutoClose write fCtrlDisableAutoClose default true;
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
property folding: TSynSelectedColor read fFoldedColor write setFoldedColor;
@ -219,7 +217,6 @@ begin
fCurrLineAttribs.Background := fBackground - $080808;
fCurrLineAttribs.Foreground := clNone;
//
fCtrlDisableAutoClose := true;
options1 :=
[eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoTabsToSpaces, eoTrimTrailingSpaces,
eoDragDropEditing, eoShowCtrlMouseLinks, eoEnhanceHomeKey, eoTabIndent];
@ -266,7 +263,6 @@ begin
begin
srcopt := TCEEditorOptionsBase(src);
//
fCtrlDisableAutoClose:=srcopt.fCtrlDisableAutoClose;
fResetFontSize:=srcopt.fResetFontSize;
fAutoCLoseCurlyBrace := srcopt.fAutoCLoseCurlyBrace;
fCompletionMenuWidth:=srcopt.fCompletionMenuWidth;
@ -612,7 +608,6 @@ begin
if not fResetFontSize then
anEditor.Font.Size := savedSize;
anEditor.ctrlDisableAutoClose := fCtrlDisableAutoClose;
anEditor.autoCloseCurlyBrace := fAutoCLoseCurlyBrace;
anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth;
anEditor.completionMenu.LinesInWindow := fCompletionMenuLines;

View File

@ -98,8 +98,9 @@ uses
const
OptFname = 'staticmacros.txt';
defMacros: array[0..14] of string = (
defMacros: array[0..15] of string = (
'$a=auto',
'$b={}',
'$c=class {}',
'$e=enum {}',
'$it=interface {}',

View File

@ -140,8 +140,6 @@ type
fOverrideColMode: boolean;
fAutoCloseCurlyBrace: TBraceAutoCloseStyle;
fLexToks: TLexTokenList;
fCtrlDisableAutoClose: boolean;
fShiftState: TShiftState;
procedure setMatchOpts(value: TIdentifierMatchOptions);
function getMouseFileBytePos: Integer;
procedure changeNotify(Sender: TObject);
@ -225,7 +223,6 @@ type
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
property autoDotDelay: Integer read fAutoDotDelay write setAutoDotDelay;
property autoCloseCurlyBrace: TBraceAutoCloseStyle read fAutoCloseCurlyBrace write fAutoCloseCurlyBrace;
property ctrlDisableAutoClose: boolean read fCtrlDisableAutoClose write fCtrlDisableAutoClose;
end;
procedure SetDefaultCoeditKeystrokes(ed: TSynEdit);
@ -1392,7 +1389,6 @@ end;
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited;
//fShiftState := Shift;
highlightCurrentIdentifier;
if fCompletion.IsActive then
fCompletion.CurrentString:= GetWordAtRowCol(LogicalCaretXY);
@ -1449,8 +1445,6 @@ begin
showCallTips(fCallTipStrings.Text);
end;
'{':
//if (not fCtrlDisableAutoClose) or
// (fCtrlDisableAutoClose and (not (ssCtrl in fShiftState))) then
case fAutoCloseCurlyBrace of
autoCloseAlways:
curlyBraceCloseAndIndent(self);