improve default settings on first run

This commit is contained in:
Basile Burg 2017-07-11 21:13:06 +02:00
parent 2308cf04a4
commit bf964804cc
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 5 additions and 7 deletions

View File

@ -242,7 +242,7 @@ begin
fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket];
//
fCompletionMenuWidth:= 250;
fCompletionMenuWidth:= 320;
fCompletionMenuLines:= 15;
//
fLineNumEvery := 5;
@ -251,6 +251,8 @@ begin
blockIndentation := 4;
fBackground := clWhite;
fRightEdgeColor := clSilver;
fSmartDdocNewline:=true;
fScrollPreview:=true;
//
fDscannerEnabled:=true;
fDscannerDelay:= 2200;

View File

@ -1454,14 +1454,9 @@ begin
DockMaster.ManualDock(DockMaster.GetAnchorSite(fFindWidg), DockMaster.GetAnchorSite(fSymlWidg), alBottom, fSymlWidg);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fPrInpWidg), DockMaster.GetAnchorSite(fFindWidg), alTop, fFindWidg);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fExplWidg), DockMaster.GetSite(fSymlWidg), alClient, fSymlWidg);
if GetDockSplitter(DockMaster.GetSite(fFindWidg), akTop, topsplt) then
begin
topsplt.MoveSplitter(40);
topsplt := nil;
end;
if GetDockSplitter(DockMaster.GetSite(fPrInpWidg), akTop, topsplt) then
begin
topsplt.MoveSplitter(40);
topsplt.MoveSplitter(50);
topsplt := nil;
end;
fSymlWidg.showWidget;

View File

@ -25,6 +25,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
Width = 840
Align = alClient
BorderSpacing.Around = 2
Font.Style = [fsBold]
HideSelection = False
Images = imgList
MultiSelect = True