forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

finely tweaked the settings applied on first execution

This commit is contained in:
Basile Burg 2016-07-06 04:35:49 +02:00
parent 4e6dacf81e
commit 16035ef8b3
7 changed files with 65 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_dubprojeditor.lfm
View File

@ -12,23 +12,23 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
ClientHeight = 424 ClientHeight = 424
ClientWidth = 411 ClientWidth = 411
inherited Content: TPanel inherited Content: TPanel
Height = 390 Height = 388
Width = 411 Width = 411
ClientHeight = 390 ClientHeight = 388
ClientWidth = 411 ClientWidth = 411
object PageControl1: TPageControl[0] object PageControl1: TPageControl[0]
Left = 4 Left = 4
Height = 382 Height = 380
Top = 4 Top = 4
Width = 403 Width = 403
ActivePage = TabSheet2 ActivePage = TabSheet1
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
TabIndex = 1 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Inspector' Caption = 'Inspector'
ClientHeight = 346 ClientHeight = 344
ClientWidth = 395 ClientWidth = 395
object pnlToolBar1: TPanel object pnlToolBar1: TPanel
Left = 4 Left = 4
@ -71,7 +71,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
object treeInspect: TTreeView object treeInspect: TTreeView
Left = 4 Left = 4
Height = 310 Height = 308
Top = 32 Top = 32
Width = 387 Width = 387
Align = alClient Align = alClient
@ -95,11 +95,11 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Editor' Caption = 'Editor'
ClientHeight = 346 ClientHeight = 344
ClientWidth = 395 ClientWidth = 395
object propTree: TTreeView object propTree: TTreeView
Left = 4 Left = 4
Height = 282 Height = 280
Top = 32 Top = 32
Width = 387 Width = 387
Align = alClient Align = alClient
@ -166,7 +166,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
object Panel1: TPanel object Panel1: TPanel
Left = 2 Left = 2
Height = 26 Height = 26
Top = 318 Top = 316
Width = 391 Width = 391
Align = alBottom Align = alBottom
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -199,7 +199,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 407 Width = 403
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu

11
src/ce_editoroptions.pas
View File

@ -58,7 +58,7 @@ type
fCompletionMenuCaseCare: boolean; fCompletionMenuCaseCare: boolean;
fCompletionMenuWidth: integer; fCompletionMenuWidth: integer;
fCompletionMenuLines: Byte; fCompletionMenuLines: Byte;
fAutoCLoseCurlyBrace: TBraceAutoCloseStyle; fAutoCloseCurlyBrace: TBraceAutoCloseStyle;
fPhobosDocRoot: TCEPathname; fPhobosDocRoot: TCEPathname;
fAlwaysAdvancedFeatures: boolean; fAlwaysAdvancedFeatures: boolean;
fAutoClosedPairs: TAutoClosePairs; fAutoClosedPairs: TAutoClosePairs;
@ -80,7 +80,7 @@ type
procedure setLineNumEvery(value: integer); procedure setLineNumEvery(value: integer);
published published
property alwaysAdvancedFeatures: boolean read fAlwaysAdvancedFeatures write fAlwaysAdvancedFeatures; property alwaysAdvancedFeatures: boolean read fAlwaysAdvancedFeatures write fAlwaysAdvancedFeatures;
property autoCloseCurlyBrace: TBraceAutoCloseStyle read fAutoCLoseCurlyBrace write fAutoCLoseCurlyBrace default TBraceAutoCloseStyle.autoCloseNever; property autoCloseCurlyBrace: TBraceAutoCloseStyle read fAutoCloseCurlyBrace write fAutoCloseCurlyBrace default TBraceAutoCloseStyle.autoCloseNever;
property autoClosedPairs: TAutoClosePairs read fAutoClosedPairs write fAutoClosedPairs default[]; property autoClosedPairs: TAutoClosePairs read fAutoClosedPairs write fAutoClosedPairs default[];
property autoDotDelay: integer read fAutoDotDelay write SetautoDotDelay; property autoDotDelay: integer read fAutoDotDelay write SetautoDotDelay;
property background: TColor read fBackground write fBackground default clWhite; property background: TColor read fBackground write fBackground default clWhite;
@ -214,7 +214,10 @@ begin
fIdentifierMarkup.BackAlpha:=70; fIdentifierMarkup.BackAlpha:=70;
fIdentiMatchOpts := [caseSensitive]; fIdentiMatchOpts := [caseSensitive];
// //
fCompletionMenuWidth:= 160; fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket];
//
fCompletionMenuWidth:= 250;
fCompletionMenuLines:= 15; fCompletionMenuLines:= 15;
// //
fLineNumEvery := 5; fLineNumEvery := 5;
@ -631,7 +634,7 @@ begin
if not fResetFontSize then if not fResetFontSize then
anEditor.Font.Size := savedSize; anEditor.Font.Size := savedSize;
anEditor.autoCloseCurlyBrace := fAutoCLoseCurlyBrace; anEditor.autoCloseCurlyBrace := fAutoCloseCurlyBrace;
anEditor.autoClosedPairs := fAutoClosedPairs; anEditor.autoClosedPairs := fAutoClosedPairs;
anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth; anEditor.completionMenu.TheForm.Width := fCompletionMenuWidth;
anEditor.completionMenu.LinesInWindow := fCompletionMenuLines; anEditor.completionMenu.LinesInWindow := fCompletionMenuLines;

36
src/ce_main.lfm
View File

@ -1553,6 +1553,42 @@ object CEMainForm: TCEMainForm
end end
object MenuItem97: TMenuItem object MenuItem97: TMenuItem
Action = actFileNewDubScript Action = actFileNewDubScript
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF000000002A0000
00BA000000BA000000BA000000910000001A00000046000000AA000000AC0000
005E000000A4000000BA000000BA000000A500000030000000010000003C0000
00FF000000A20000009A000000DD0000009E000000FB000001B6000001B60000
00FC000000930000009800000098000000C9000000E80000000F0000003C0000
00FF00000018FFFFFF0000000012000000D000000FA80000C8980000CF850000
0BA4000000CB00000003FFFFFF0000000027000000FF000000350000003C0000
00FF00000018FFFFFF0000000005000000E400002A8C0000BEE70000C2CD0000
2384000000E50000007500000092000000C4000000E80000000E0000003C0000
00FF00000018FFFFFF0000000006000000E5000000690000AA420000B4730000
2E8B000000E50000009D000000C5000000E3000000DA000000090000003C0000
00FF00000018FFFFFF000000001F000000F900000052FFFFFF0000007F0A0000
076E000000E400000007000000020000002F000000FF000000350000003C0000
00FF000000A20000009A000000DF000000D70000000CFFFFFF00FFFFFF000000
0069000000F40000009A00000098000000C3000000EE000000120000002A0000
00BA000000BA000000B9000000900000001AFFFFFF00FFFFFF00FFFFFF000000
004B000000BA000000BA000000BA000000AD0000003A00000001FFFFFF000000
00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
end end
object MenuItem2: TMenuItem object MenuItem2: TMenuItem
Action = actFileOpen Action = actFileOpen

2
src/ce_main.pas
View File

@ -542,6 +542,7 @@ begin
fSplitterScrollSpeed := 2; fSplitterScrollSpeed := 2;
fMaxRecentProjs := 10; fMaxRecentProjs := 10;
fMaxRecentDocs :=10; fMaxRecentDocs :=10;
fFlatLook:=true;
end; end;
function TCEApplicationOptionsBase.getDubCompiler: TCECompiler; function TCEApplicationOptionsBase.getDubCompiler: TCECompiler;
@ -941,6 +942,7 @@ begin
fProjectGroup := getProjectGroup; fProjectGroup := getProjectGroup;
// //
getCMdParams; getCMdParams;
fAppliOpts.assignTo(self);
// //
fInitialized := true; fInitialized := true;
end; end;

4
src/ce_messages.lfm
View File

@ -26,10 +26,6 @@ inherited CEMessagesWidget: TCEMessagesWidget
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
DefaultItemHeight = 16 DefaultItemHeight = 16
Font.Height = -12
Font.Name = 'Courier New'
Font.Quality = fqProof
Font.Style = [fsBold]
HideSelection = False HideSelection = False
Images = imgList Images = imgList
MultiSelect = True MultiSelect = True

7
src/ce_messages.pas
View File

@ -192,6 +192,8 @@ constructor TCEMessagesOptions.Create(AOwner: TComponent);
begin begin
inherited; inherited;
fFont := TFont.Create; fFont := TFont.Create;
fAutoSelect:=true;
fMaxCount := 1000;
end; end;
destructor TCEMessagesOptions.destroy; destructor TCEMessagesOptions.destroy;
@ -259,6 +261,7 @@ var
fname: string; fname: string;
begin begin
fMaxMessCnt := 500; fMaxMessCnt := 500;
fAutoSelect := true;
fCtxt := amcAll; fCtxt := amcAll;
// //
fActAutoSel := TAction.Create(self); fActAutoSel := TAction.Create(self);
@ -313,8 +316,8 @@ begin
fBtns[amcMisc]:= btnSelMisc; fBtns[amcMisc]:= btnSelMisc;
fBtns[amcProj]:= btnSelProj; fBtns[amcProj]:= btnSelProj;
// //
// reminder: a tollbar button can be used here because it would have the // reminder: a toolbar button can be used here because it would have the
// same size as the buttons used to select a category. // same size as the buttons used to select the categories.
btnClearCat.OnClick := @actClearCurCatExecute; btnClearCat.OnClick := @actClearCurCatExecute;
AssignPng(btnClearCat, 'CLEAN'); AssignPng(btnClearCat, 'CLEAN');
// //

4
src/ce_synmemo.pas
View File

@ -564,6 +564,7 @@ begin
fCompletion.TheForm.ShowInTaskBar:=stNever; fCompletion.TheForm.ShowInTaskBar:=stNever;
fCompletion.ShortCut:=0; fCompletion.ShortCut:=0;
fCompletion.LinesInWindow:=15; fCompletion.LinesInWindow:=15;
fCompletion.Width:= 250;
fCallTipStrings:= TStringList.Create; fCallTipStrings:= TStringList.Create;
// //
MouseLinkColor.Style:= [fsUnderline]; MouseLinkColor.Style:= [fsUnderline];
@ -598,6 +599,9 @@ begin
LineHighlightColor.Background := color - $080808; LineHighlightColor.Background := color - $080808;
LineHighlightColor.Foreground := clNone; LineHighlightColor.Foreground := clNone;
// //
fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket];
//
fDastWorxExename:= exeFullName('dastworx' + exeExt); fDastWorxExename:= exeFullName('dastworx' + exeExt);
// //
subjDocNew(TCEMultiDocSubject(fMultiDocSubject), self); subjDocNew(TCEMultiDocSubject(fMultiDocSubject), self);