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

improve layout on first exec

This commit is contained in:
Basile Burg 2016-08-08 14:38:26 +02:00
parent 4a41db237a
commit 4172a3afcd
6 changed files with 118 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ce_d2syn.pas
View File

@ -82,19 +82,20 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
published published
property foldKinds: TFoldKinds read fFoldKinds write setFoldKinds; property foldKinds: TFoldKinds read fFoldKinds write setFoldKinds;
property whites: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib; property whites: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib stored true;
property numbers: TSynHighlighterAttributes read fNumbrAttrib write setNumbrAttrib; property numbers: TSynHighlighterAttributes read fNumbrAttrib write setNumbrAttrib stored true;
property symbols: TSynHighlighterAttributes read fSymblAttrib write setSymblAttrib; property symbols: TSynHighlighterAttributes read fSymblAttrib write setSymblAttrib stored true;
property identifiers: TSynHighlighterAttributes read fIdentAttrib write setIdentAttrib; property identifiers: TSynHighlighterAttributes read fIdentAttrib write setIdentAttrib stored true;
property comments: TSynHighlighterAttributes read fCommtAttrib write setCommtAttrib; property comments: TSynHighlighterAttributes read fCommtAttrib write setCommtAttrib stored true;
property strings: TSynHighlighterAttributes read fStrngAttrib write setStrngAttrib; property strings: TSynHighlighterAttributes read fStrngAttrib write setStrngAttrib stored true;
property keywords: TSynHighlighterAttributes read fKeywdAttrib write setKeywdAttrib; property keywords: TSynHighlighterAttributes read fKeywdAttrib write setKeywdAttrib stored true;
property ddoc: TSynHighlighterAttributes read fDDocsAttrib write setDDocsAttrib; property ddoc: TSynHighlighterAttributes read fDDocsAttrib write setDDocsAttrib stored true;
property inlineAsm: TSynHighlighterAttributes read fAsblrAttrib write setAsblrAttrib; property inlineAsm: TSynHighlighterAttributes read fAsblrAttrib write setAsblrAttrib stored true;
property special: TSynHighlighterAttributes read fSpeckAttrib write setSpeckAttrib; property special: TSynHighlighterAttributes read fSpeckAttrib write setSpeckAttrib stored true;
property errors: TSynHighlighterAttributes read fErrorAttrib write setErrorAttrib; property errors: TSynHighlighterAttributes read fErrorAttrib write setErrorAttrib stored true;
property attributes: TSynHighlighterAttributes read fAttriAttrib write setAttriAttrib; property attributes: TSynHighlighterAttributes read fAttriAttrib write setAttriAttrib stored true;
property DefaultFilter stored false; property DefaultFilter stored false;
property enabled stored false;
public public
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;

12
src/ce_d2synpresets.pas
View File

@ -324,7 +324,7 @@ begin
selection.Background:= 15984598; selection.Background:= 15984598;
selection.Foreground:= clNone; selection.Foreground:= clNone;
// //
currentLine.Background:= 15727098; currentLine.Background:= 15789545;
currentLine.Foreground:= clNone; currentLine.Foreground:= clNone;
end; end;
with fPresets.addPreset do with fPresets.addPreset do
@ -422,16 +422,17 @@ begin
folding.Background := clNone; folding.Background := clNone;
folding.Foreground := clNone; folding.Foreground := clNone;
folding.FrameColor := clBlack; folding.FrameColor := clBlack;
identifierMatch.Background := 14145500; identifierMatch.Background := clNone;
identifierMatch.Foreground := clNone; identifierMatch.Foreground := clNone;
identifierMatch.BackPriority := 2; identifierMatch.FrameColor := clGray;
identifierMatch.BackPriority := 10;
mouseLink.Background := clNone; mouseLink.Background := clNone;
mouseLink.Foreground := clNone; mouseLink.Foreground := clNone;
mouseLink.FrameColor := 3166415; mouseLink.FrameColor := 3166415;
mouseLink.FrameEdges := sfeBottom; mouseLink.FrameEdges := sfeBottom;
selection.Background := 14014190; selection.Background := 12837345;
selection.Foreground := clNone; selection.Foreground := clNone;
selection.BackPriority := 1; selection.BackPriority := 10;
end; end;
with fPresets.addPreset do with fPresets.addPreset do
begin begin
@ -467,7 +468,6 @@ begin
selection.Foreground := clNone; selection.Foreground := clNone;
end; end;
end; end;
// TODO-cd2synpresets: add more presets
// //
fEditor := TSynEdit.Create(self); fEditor := TSynEdit.Create(self);
fEditor.Parent:= self; fEditor.Parent:= self;

1
src/ce_dlangmaps.pas
View File

@ -143,6 +143,7 @@ type
false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,
false, false, false, false false, false, false, false
); );
// 100017a
const fCoeffs: array[0..255] of Byte = const fCoeffs: array[0..255] of Byte =
( (
93, 12, 147, 37, 246, 76, 204, 47, 77, 0, 217, 84, 225, 244, 62, 63, 81, 2, 93, 12, 147, 37, 246, 76, 204, 47, 77, 0, 217, 84, 225, 244, 62, 63, 81, 2,

5
src/ce_editoroptions.pas
View File

@ -201,6 +201,9 @@ begin
fFoldedColor.Foreground := clDkGray; fFoldedColor.Foreground := clDkGray;
fFoldedColor.FrameColor := clDkGray; fFoldedColor.FrameColor := clDkGray;
// //
fSelAttribs.Background := 13421772;
fSelAttribs.Foreground := clNone;
//
fMouseLinkAttribs.Style := [fsUnderline, fsBold]; fMouseLinkAttribs.Style := [fsUnderline, fsBold];
fMouseLinkAttribs.StyleMask := []; fMouseLinkAttribs.StyleMask := [];
fMouseLinkAttribs.Foreground := clNone; fMouseLinkAttribs.Foreground := clNone;
@ -227,7 +230,7 @@ begin
fBackground := clWhite; fBackground := clWhite;
fRightEdgeColor := clSilver; fRightEdgeColor := clSilver;
// //
fCurrLineAttribs.Background := fBackground - $080808; fCurrLineAttribs.Background := 15789545;
fCurrLineAttribs.Foreground := clNone; fCurrLineAttribs.Foreground := clNone;
// //
options1 := options1 :=

72
src/ce_main.lfm
View File

@ -3832,6 +3832,42 @@ object CEMainForm: TCEMainForm
end end
object MenuItem98: TMenuItem object MenuItem98: TMenuItem
Action = actProjGroupCompileSync Action = actProjGroupCompileSync
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
001F000000080000003300000033000000040000002400000000000000000000
0000000000000000000000000000000000330000003300000033000000332D73
BAAF1B3D60523F93D4FF3F93D4FF102438413578BAC300000024000000000000
0000000000230000002F00000000B88445FFC89451FFCE934AFF6D8192FF40A9
EAFF429EDDFF52D0F8FF52D0F8FF439EDCFF48AAE2FF3980C8B6000000000000
0023AA7A3EBFB68243ED00000033B58142FFF5C378FFFCC371FFAD7E49FF3B9E
E3FF4ECFFBFF41B0EDFF42B1EDFF50CFFAFF439EDCFF1B3D5F5200000000AA7A
3FBED2A76FFFD7A561FFB88241FFD39F58FFEDB96BFFF7B962FF288DE3FF4CCF
FCFF40B0EDFFC39F7BFF987653CB42B1EEFF52D0F9FF3F92D5FF00000000B984
43E9DDBB8CFFEEC486FFE8B466FFF1CC96FFF7DCB5FFFFDEADFF288CDFFF4CCE
FBFF3FAFEDFFFAB66DFFC7751FCE41B1EFFF52D0F9FF3F92D5FF000000330000
0033B78242FFE4B163FFEBC68EFFEACFA9FFD1A774FFD9A970FFCCBBA4FF399C
E1FF4CCEFBFF3FB0EEFF40B1EFFF4FCFFCFF429EDCFF16324E31B98545FFB782
42FFC8934EFFDFAB5EFFE4C494FFB68245DAB8813F3CBE823B2561809CFF37A8
EFFF399DE3FF4CCFFDFF4AC7F8FF3D9EE1FF45AAE4FF3982CB9FC38F4EFFE2B5
72FFDEB06AFFDBA658FFC59555FF926935300000000000000000AA7333436A83
99FFCD9F5FFF298DE2FF2B8FE1FFB48B5AFF3081D29100000000C5995FFFF1DC
BBFFECD2ACFFD6A152FFC18C49FF70502A620000000C0000000C704F2861C88D
44FFDFA24CFFEACEA6FFF1D7B2FFD79A51FF0000000000000000B98442FFB680
3EFFCEA673FFDBAE6EFFCB954BFFB88344FF6E4F2A616E4F2A61B88344FFCD97
4AFFDCAE6DFFD0A772FFB9813CFFBE843FFF0000000000000000000000000000
002FBA8547FFCE9949FFDAB276FFC9944BFFBE8943FFBE8943FFC9944BFFDAB2
76FFCE9949FFBA8546FF0000002F00000000000000000000000000000000B782
42ECD3AE7CFFE7CBA4FFEAD4B2FFE8D0ADFFCF9D56FFCF9D56FFE8D0ADFFEAD4
B2FFE7CBA4FFD3AE7CFFB78242EC00000000000000000000000000000000B985
44AFCCA26CFFD4B080FFB98343FFCCA470FFC9984EFFC9984EFFCCA470FFB983
43FFD4B080FFCCA26CFFB98544AF000000000000000000000000000000000000
0000B98544AFB98443E900000000B78140FFE9D4B4FFE9D4B4FFB78140FF0000
0000B98443E9B98544AF00000000000000000000000000000000000000000000
0000000000000000000000000000BA8545FFB9843FFFB9843FFFBA8545FF0000
0000000000000000000000000000000000000000000000000000
}
end end
object MenuItem88: TMenuItem object MenuItem88: TMenuItem
Action = actProjGroupCompile Action = actProjGroupCompile
@ -4393,6 +4429,42 @@ object CEMainForm: TCEMainForm
end end
object MenuItem99: TMenuItem object MenuItem99: TMenuItem
Action = actProjGroupCompileSync Action = actProjGroupCompileSync
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
001F000000080000003300000033000000040000002400000000000000000000
0000000000000000000000000000000000330000003300000033000000332D73
BAAF1B3D60523F93D4FF3F93D4FF102438413578BAC300000024000000000000
0000000000230000002F00000000B88445FFC89451FFCE934AFF6D8192FF40A9
EAFF429EDDFF52D0F8FF52D0F8FF439EDCFF48AAE2FF3980C8B6000000000000
0023AA7A3EBFB68243ED00000033B58142FFF5C378FFFCC371FFAD7E49FF3B9E
E3FF4ECFFBFF41B0EDFF42B1EDFF50CFFAFF439EDCFF1B3D5F5200000000AA7A
3FBED2A76FFFD7A561FFB88241FFD39F58FFEDB96BFFF7B962FF288DE3FF4CCF
FCFF40B0EDFFC39F7BFF987653CB42B1EEFF52D0F9FF3F92D5FF00000000B984
43E9DDBB8CFFEEC486FFE8B466FFF1CC96FFF7DCB5FFFFDEADFF288CDFFF4CCE
FBFF3FAFEDFFFAB66DFFC7751FCE41B1EFFF52D0F9FF3F92D5FF000000330000
0033B78242FFE4B163FFEBC68EFFEACFA9FFD1A774FFD9A970FFCCBBA4FF399C
E1FF4CCEFBFF3FB0EEFF40B1EFFF4FCFFCFF429EDCFF16324E31B98545FFB782
42FFC8934EFFDFAB5EFFE4C494FFB68245DAB8813F3CBE823B2561809CFF37A8
EFFF399DE3FF4CCFFDFF4AC7F8FF3D9EE1FF45AAE4FF3982CB9FC38F4EFFE2B5
72FFDEB06AFFDBA658FFC59555FF926935300000000000000000AA7333436A83
99FFCD9F5FFF298DE2FF2B8FE1FFB48B5AFF3081D29100000000C5995FFFF1DC
BBFFECD2ACFFD6A152FFC18C49FF70502A620000000C0000000C704F2861C88D
44FFDFA24CFFEACEA6FFF1D7B2FFD79A51FF0000000000000000B98442FFB680
3EFFCEA673FFDBAE6EFFCB954BFFB88344FF6E4F2A616E4F2A61B88344FFCD97
4AFFDCAE6DFFD0A772FFB9813CFFBE843FFF0000000000000000000000000000
002FBA8547FFCE9949FFDAB276FFC9944BFFBE8943FFBE8943FFC9944BFFDAB2
76FFCE9949FFBA8546FF0000002F00000000000000000000000000000000B782
42ECD3AE7CFFE7CBA4FFEAD4B2FFE8D0ADFFCF9D56FFCF9D56FFE8D0ADFFEAD4
B2FFE7CBA4FFD3AE7CFFB78242EC00000000000000000000000000000000B985
44AFCCA26CFFD4B080FFB98343FFCCA470FFC9984EFFC9984EFFCCA470FFB983
43FFD4B080FFCCA26CFFB98544AF000000000000000000000000000000000000
0000B98544AFB98443E900000000B78140FFE9D4B4FFE9D4B4FFB78140FF0000
0000B98443E9B98544AF00000000000000000000000000000000000000000000
0000000000000000000000000000BA8545FFB9843FFFB9843FFFBA8545FF0000
0000000000000000000000000000000000000000000000000000
}
end end
object MenuItem89: TMenuItem object MenuItem89: TMenuItem
Action = actProjGroupCompile Action = actProjGroupCompile

27
src/ce_main.pas
View File

@ -1146,7 +1146,7 @@ begin
DockMaster.HeaderStyle := adhsPoints; DockMaster.HeaderStyle := adhsPoints;
DockMaster.HideHeaderCaptionFloatingControl := true; DockMaster.HideHeaderCaptionFloatingControl := true;
// this is a fix copied from Laz. // this is a fix (?) copied from Laz.
if DockManager is TAnchorDockManager then begin if DockManager is TAnchorDockManager then begin
aManager:=TAnchorDockManager(DockManager); aManager:=TAnchorDockManager(DockManager);
aManager.PreferredSiteSizeAsSiteMinimum:=false; aManager.PreferredSiteSizeAsSiteMinimum:=false;
@ -1169,14 +1169,30 @@ begin
// center // center
DockMaster.ManualDock(DockMaster.GetAnchorSite(fEditWidg), DockMaster.GetSite(Self), alBottom); DockMaster.ManualDock(DockMaster.GetAnchorSite(fEditWidg), DockMaster.GetSite(Self), alBottom);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fMesgWidg), DockMaster.GetSite(fEditWidg), alBottom); DockMaster.ManualDock(DockMaster.GetAnchorSite(fMesgWidg), DockMaster.GetSite(fEditWidg), alBottom);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fLibMWidg), DockMaster.GetSite(fMesgWidg), alClient, fMesgWidg);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fTodolWidg), DockMaster.GetSite(fMesgWidg), alClient, fMesgWidg);
fMesgWidg.showWidget;
// left // left
DockMaster.GetAnchorSite(fSymlWidg).Width := 160; DockMaster.GetAnchorSite(fSymlWidg).Width := 120;
DockMaster.GetAnchorSite(fFindWidg).Width := 160; DockMaster.GetAnchorSite(fFindWidg).Width := 120;
DockMaster.ManualDock(DockMaster.GetAnchorSite(fSymlWidg), DockMaster.GetSite(fEditWidg), alLeft); DockMaster.ManualDock(DockMaster.GetAnchorSite(fSymlWidg), DockMaster.GetSite(fEditWidg), alLeft);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fFindWidg), DockMaster.GetAnchorSite(fSymlWidg), alBottom, fSymlWidg); 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 := nil;
end;
fSymlWidg.showWidget;
// right // right
DockMaster.GetAnchorSite(fProjWidg).Width := 260; DockMaster.GetAnchorSite(fProjWidg).Width := 190;
DockMaster.GetAnchorSite(fPrjCfWidg).Width := 260; DockMaster.GetAnchorSite(fPrjCfWidg).Width := 190;
DockMaster.ManualDock(DockMaster.GetAnchorSite(fProjWidg), DockMaster.GetSite(fEditWidg), alRight); DockMaster.ManualDock(DockMaster.GetAnchorSite(fProjWidg), DockMaster.GetSite(fEditWidg), alRight);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fPrjCfWidg), DockMaster.GetAnchorSite(fProjWidg), alBottom, fProjWidg); DockMaster.ManualDock(DockMaster.GetAnchorSite(fPrjCfWidg), DockMaster.GetAnchorSite(fProjWidg), alBottom, fProjWidg);
// close remaining and header to top // close remaining and header to top
@ -1188,6 +1204,7 @@ begin
if not DockMaster.GetAnchorSite(widg).HasParent then if not DockMaster.GetAnchorSite(widg).HasParent then
DockMaster.GetAnchorSite(widg).Close; DockMaster.GetAnchorSite(widg).Close;
end; end;
WindowState:= wsMaximized;
end; end;
// lock space between the menu and the widgets // lock space between the menu and the widgets