mirror of https://gitlab.com/basile.b/dexed.git
removed temp code for #25 and added workaround in the default static macros
This commit is contained in:
parent
207f9276d6
commit
0682122b3f
|
@ -58,7 +58,6 @@ type
|
||||||
fCompletionMenuWidth: integer;
|
fCompletionMenuWidth: integer;
|
||||||
fCompletionMenuLines: Byte;
|
fCompletionMenuLines: Byte;
|
||||||
fAutoCLoseCurlyBrace: TBraceAutoCloseStyle;
|
fAutoCLoseCurlyBrace: TBraceAutoCloseStyle;
|
||||||
fCtrlDisableAutoClose: boolean;
|
|
||||||
//
|
//
|
||||||
procedure setFont(value: TFont);
|
procedure setFont(value: TFont);
|
||||||
procedure setSelCol(value: TSynSelectedColor);
|
procedure setSelCol(value: TSynSelectedColor);
|
||||||
|
@ -84,7 +83,6 @@ type
|
||||||
property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare;
|
property completionMenuCaseCare: boolean read fCompletionMenuCaseCare write fCompletionMenuCaseCare;
|
||||||
property completionMenuLines: byte read fCompletionMenuLines write setCompletionMenuLines;
|
property completionMenuLines: byte read fCompletionMenuLines write setCompletionMenuLines;
|
||||||
property completionMenuWidth: integer read fCompletionMenuWidth write fCompletionMenuWidth;
|
property completionMenuWidth: integer read fCompletionMenuWidth write fCompletionMenuWidth;
|
||||||
//property ctrlDisableAutoClose: boolean read fCtrlDisableAutoClose write fCtrlDisableAutoClose default true;
|
|
||||||
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
|
property currentLine: TSynSelectedColor read fCurrLineAttribs write setCurrLineAttribs;
|
||||||
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
|
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
|
||||||
property folding: TSynSelectedColor read fFoldedColor write setFoldedColor;
|
property folding: TSynSelectedColor read fFoldedColor write setFoldedColor;
|
||||||
|
@ -219,7 +217,6 @@ begin
|
||||||
fCurrLineAttribs.Background := fBackground - $080808;
|
fCurrLineAttribs.Background := fBackground - $080808;
|
||||||
fCurrLineAttribs.Foreground := clNone;
|
fCurrLineAttribs.Foreground := clNone;
|
||||||
//
|
//
|
||||||
fCtrlDisableAutoClose := true;
|
|
||||||
options1 :=
|
options1 :=
|
||||||
[eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoTabsToSpaces, eoTrimTrailingSpaces,
|
[eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoTabsToSpaces, eoTrimTrailingSpaces,
|
||||||
eoDragDropEditing, eoShowCtrlMouseLinks, eoEnhanceHomeKey, eoTabIndent];
|
eoDragDropEditing, eoShowCtrlMouseLinks, eoEnhanceHomeKey, eoTabIndent];
|
||||||
|
@ -266,7 +263,6 @@ begin
|
||||||
begin
|
begin
|
||||||
srcopt := TCEEditorOptionsBase(src);
|
srcopt := TCEEditorOptionsBase(src);
|
||||||
//
|
//
|
||||||
fCtrlDisableAutoClose:=srcopt.fCtrlDisableAutoClose;
|
|
||||||
fResetFontSize:=srcopt.fResetFontSize;
|
fResetFontSize:=srcopt.fResetFontSize;
|
||||||
fAutoCLoseCurlyBrace := srcopt.fAutoCLoseCurlyBrace;
|
fAutoCLoseCurlyBrace := srcopt.fAutoCLoseCurlyBrace;
|
||||||
fCompletionMenuWidth:=srcopt.fCompletionMenuWidth;
|
fCompletionMenuWidth:=srcopt.fCompletionMenuWidth;
|
||||||
|
@ -612,7 +608,6 @@ begin
|
||||||
if not fResetFontSize then
|
if not fResetFontSize then
|
||||||
anEditor.Font.Size := savedSize;
|
anEditor.Font.Size := savedSize;
|
||||||
|
|
||||||
anEditor.ctrlDisableAutoClose := fCtrlDisableAutoClose;
|
|
||||||
anEditor.autoCloseCurlyBrace := fAutoCLoseCurlyBrace;
|
anEditor.autoCloseCurlyBrace := fAutoCLoseCurlyBrace;
|
||||||
anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth;
|
anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth;
|
||||||
anEditor.completionMenu.LinesInWindow := fCompletionMenuLines;
|
anEditor.completionMenu.LinesInWindow := fCompletionMenuLines;
|
||||||
|
|
|
@ -98,8 +98,9 @@ uses
|
||||||
const
|
const
|
||||||
OptFname = 'staticmacros.txt';
|
OptFname = 'staticmacros.txt';
|
||||||
|
|
||||||
defMacros: array[0..14] of string = (
|
defMacros: array[0..15] of string = (
|
||||||
'$a=auto',
|
'$a=auto',
|
||||||
|
'$b={}',
|
||||||
'$c=class {}',
|
'$c=class {}',
|
||||||
'$e=enum {}',
|
'$e=enum {}',
|
||||||
'$it=interface {}',
|
'$it=interface {}',
|
||||||
|
|
|
@ -140,8 +140,6 @@ type
|
||||||
fOverrideColMode: boolean;
|
fOverrideColMode: boolean;
|
||||||
fAutoCloseCurlyBrace: TBraceAutoCloseStyle;
|
fAutoCloseCurlyBrace: TBraceAutoCloseStyle;
|
||||||
fLexToks: TLexTokenList;
|
fLexToks: TLexTokenList;
|
||||||
fCtrlDisableAutoClose: boolean;
|
|
||||||
fShiftState: TShiftState;
|
|
||||||
procedure setMatchOpts(value: TIdentifierMatchOptions);
|
procedure setMatchOpts(value: TIdentifierMatchOptions);
|
||||||
function getMouseFileBytePos: Integer;
|
function getMouseFileBytePos: Integer;
|
||||||
procedure changeNotify(Sender: TObject);
|
procedure changeNotify(Sender: TObject);
|
||||||
|
@ -225,7 +223,6 @@ type
|
||||||
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
|
property ddocDelay: Integer read fDDocDelay write setDDocDelay;
|
||||||
property autoDotDelay: Integer read fAutoDotDelay write setAutoDotDelay;
|
property autoDotDelay: Integer read fAutoDotDelay write setAutoDotDelay;
|
||||||
property autoCloseCurlyBrace: TBraceAutoCloseStyle read fAutoCloseCurlyBrace write fAutoCloseCurlyBrace;
|
property autoCloseCurlyBrace: TBraceAutoCloseStyle read fAutoCloseCurlyBrace write fAutoCloseCurlyBrace;
|
||||||
property ctrlDisableAutoClose: boolean read fCtrlDisableAutoClose write fCtrlDisableAutoClose;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure SetDefaultCoeditKeystrokes(ed: TSynEdit);
|
procedure SetDefaultCoeditKeystrokes(ed: TSynEdit);
|
||||||
|
@ -1392,7 +1389,6 @@ end;
|
||||||
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
|
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
//fShiftState := Shift;
|
|
||||||
highlightCurrentIdentifier;
|
highlightCurrentIdentifier;
|
||||||
if fCompletion.IsActive then
|
if fCompletion.IsActive then
|
||||||
fCompletion.CurrentString:= GetWordAtRowCol(LogicalCaretXY);
|
fCompletion.CurrentString:= GetWordAtRowCol(LogicalCaretXY);
|
||||||
|
@ -1449,8 +1445,6 @@ begin
|
||||||
showCallTips(fCallTipStrings.Text);
|
showCallTips(fCallTipStrings.Text);
|
||||||
end;
|
end;
|
||||||
'{':
|
'{':
|
||||||
//if (not fCtrlDisableAutoClose) or
|
|
||||||
// (fCtrlDisableAutoClose and (not (ssCtrl in fShiftState))) then
|
|
||||||
case fAutoCloseCurlyBrace of
|
case fAutoCloseCurlyBrace of
|
||||||
autoCloseAlways:
|
autoCloseAlways:
|
||||||
curlyBraceCloseAndIndent(self);
|
curlyBraceCloseAndIndent(self);
|
||||||
|
|
Loading…
Reference in New Issue