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;
|
||||
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;
|
||||
|
|
|
@ -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 {}',
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue