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

fix, default todo list options + add splitter scrollspeed option

This commit is contained in:
Basile Burg 2016-07-06 03:26:57 +02:00
parent 90d541639d
commit 7e7d50c703
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_main.pas
View File

@ -470,6 +470,7 @@ type
fFlatLook: boolean; fFlatLook: boolean;
fDetectMain: boolean; fDetectMain: boolean;
fDetectRunnableImports: boolean; fDetectRunnableImports: boolean;
fSplitterScrollSpeed: byte;
function getAdditionalPATH: string; function getAdditionalPATH: string;
procedure setAdditionalPATH(const value: string); procedure setAdditionalPATH(const value: string);
function getDubCompiler: TCECompiler; function getDubCompiler: TCECompiler;
@ -479,7 +480,7 @@ type
function getNativeProjecCompiler: TCECompiler; function getNativeProjecCompiler: TCECompiler;
procedure setNativeProjecCompiler(value: TCECompiler); procedure setNativeProjecCompiler(value: TCECompiler);
procedure setRunnableDestination(const value: TCEPathname); procedure setRunnableDestination(const value: TCEPathname);
procedure setFlatLook(value: boolean); procedure setSplitterScsrollSpeed(value: byte);
published published
property additionalPATH: string read getAdditionalPATH write setAdditionalPath; property additionalPATH: string read getAdditionalPATH write setAdditionalPath;
property coverModuleTests: boolean read fCovModUt write fCovModUt; property coverModuleTests: boolean read fCovModUt write fCovModUt;
@ -494,9 +495,10 @@ type
property runnableDestinationAlways: boolean read fAlwaysUseDest write fAlwaysUseDest; property runnableDestinationAlways: boolean read fAlwaysUseDest write fAlwaysUseDest;
property dscanUnittests: boolean read fDscanUnittests write fDscanUnittests default true; property dscanUnittests: boolean read fDscanUnittests write fDscanUnittests default true;
property autoSaveProjectFiles: boolean read fAutoSaveProjectFiles write fAutoSaveProjectFiles default false; property autoSaveProjectFiles: boolean read fAutoSaveProjectFiles write fAutoSaveProjectFiles default false;
property flatLook: boolean read fFlatLook write setFlatLook; property flatLook: boolean read fFlatLook write fFlatLook;
property detectMain: boolean read fDetectMain write fDetectMain; property detectMain: boolean read fDetectMain write fDetectMain;
property detectRunnableImports: boolean read fDetectRunnableImports write fDetectRunnableImports; property detectRunnableImports: boolean read fDetectRunnableImports write fDetectRunnableImports;
property splitterScrollSpeed: byte read fSplitterScrollSpeed write setSplitterScsrollSpeed;
// published for ICEEditableOptions but stored by DCD wrapper since it reloads before CEMainForm // published for ICEEditableOptions but stored by DCD wrapper since it reloads before CEMainForm
property dcdPort: word read fDcdPort write fDcdPort stored false; property dcdPort: word read fDcdPort write fDcdPort stored false;
@ -537,6 +539,9 @@ begin
fBackup := TCEApplicationOptionsBase.Create(self); fBackup := TCEApplicationOptionsBase.Create(self);
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
fDscanUnittests := true; fDscanUnittests := true;
fSplitterScrollSpeed := 2;
fMaxRecentProjs := 10;
fMaxRecentDocs :=10;
end; end;
function TCEApplicationOptionsBase.getDubCompiler: TCECompiler; function TCEApplicationOptionsBase.getDubCompiler: TCECompiler;
@ -583,9 +588,13 @@ begin
fRunnableDest += DirectorySeparator; fRunnableDest += DirectorySeparator;
end; end;
procedure TCEApplicationOptionsBase.setFlatLook(value: boolean); procedure TCEApplicationOptionsBase.setSplitterScsrollSpeed(value: byte);
begin begin
fFlatLook := value; if value < 1 then
value := 1
else if value > 10 then
value := 10;
fSplitterScrollSpeed:=value;
end; end;
function TCEApplicationOptionsBase.getAdditionalPATH: string; function TCEApplicationOptionsBase.getAdditionalPATH: string;
@ -1074,7 +1083,7 @@ var
offs: integer; offs: integer;
splt: TAnchorDockSplitter; splt: TAnchorDockSplitter;
begin begin
offs := -480 div WheelDelta; offs := -240 * fAppliOpts.splitterScrollSpeed div WheelDelta;
splt := TAnchorDockSplitter(sender); splt := TAnchorDockSplitter(sender);
splt.MoveSplitter(offs); splt.MoveSplitter(offs);
if splt.ResizeAnchor in [akLeft, akRight] then if splt.ResizeAnchor in [akLeft, akRight] then

4
src/ce_todolist.pas
View File

@ -224,8 +224,10 @@ begin
// //
fname := getCoeditDocPath + OptFname; fname := getCoeditDocPath + OptFname;
if fname.fileExists then if fname.fileExists then
begin
fOptions.loadFromFile(fname); fOptions.loadFromFile(fname);
fOptions.AssignTo(self); fOptions.AssignTo(self);
end;
// //
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;