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

allow to free manually D GC mem from the options/application

This commit is contained in:
Basile Burg 2020-06-14 19:32:57 +02:00
parent 69b31bd261
commit 0e69320f20
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/u_inspectors.pas
View File

@ -235,9 +235,12 @@ begin
end; end;
procedure TActionInEditor.Edit; procedure TActionInEditor.Edit;
//var
//o: TPropertyEditorHook;
begin begin
//o := PropertyHook;
SetOrdValue(not GetOrdValue); SetOrdValue(not GetOrdValue);
Modified; //PropertyHook := o;
end; end;
initialization initialization

11
src/u_main.pas
View File

@ -15,7 +15,7 @@ uses
u_search, u_miniexplorer, u_libman, u_libmaneditor, u_todolist, u_observer, u_search, u_miniexplorer, u_libman, u_libmaneditor, u_todolist, u_observer,
u_toolseditor, u_procinput, u_optionseditor, u_symlist, u_mru, u_processes, u_toolseditor, u_procinput, u_optionseditor, u_symlist, u_mru, u_processes,
u_infos, u_dubproject, u_dialogs, u_dubprojeditor,{$IFDEF UNIX} u_gdb,{$ENDIF} u_infos, u_dubproject, u_dialogs, u_dubprojeditor,{$IFDEF UNIX} u_gdb,{$ENDIF}
u_dfmt, u_lcldragdrop, u_projgroup, u_projutils, u_stringrange, u_dfmt, u_lcldragdrop, u_projgroup, u_projutils, u_stringrange, u_dexed_d,
u_halstead, u_profileviewer, u_semver, u_dsgncontrols, u_term, u_newdubproj; u_halstead, u_profileviewer, u_semver, u_dsgncontrols, u_term, u_newdubproj;
type type
@ -621,6 +621,7 @@ type
fAutoKillProcThreshold: dword; fAutoKillProcThreshold: dword;
fGlobalCompiler: DCompiler; fGlobalCompiler: DCompiler;
fAutoCleanMRU: boolean; fAutoCleanMRU: boolean;
fMinimizeDlangMemory: TEditEvent;
function getConsoleProgram: string; function getConsoleProgram: string;
procedure setConsoleProgram(const value: string); procedure setConsoleProgram(const value: string);
function getAdditionalPATH: string; function getAdditionalPATH: string;
@ -628,6 +629,7 @@ type
function getNativeProjecCompiler: DCompiler; function getNativeProjecCompiler: DCompiler;
procedure setNativeProjecCompiler(value: DCompiler); procedure setNativeProjecCompiler(value: DCompiler);
procedure setSplitterScsrollSpeed(value: byte); procedure setSplitterScsrollSpeed(value: byte);
procedure setMinimizeDlangMemory(value: TEditEvent);
published published
property additionalPATH: string read getAdditionalPATH write setAdditionalPath; property additionalPATH: string read getAdditionalPATH write setAdditionalPath;
property autoCheckUpdates: boolean read fAutoCheckUpdates write fAutoCheckUpdates; property autoCheckUpdates: boolean read fAutoCheckUpdates write fAutoCheckUpdates;
@ -647,6 +649,8 @@ type
property splitterScrollSpeed: byte read fSplitterScrollSpeed write setSplitterScsrollSpeed; property splitterScrollSpeed: byte read fSplitterScrollSpeed write setSplitterScsrollSpeed;
property showBuildDuration: boolean read fShowBuildDuration write fShowBuildDuration default false; property showBuildDuration: boolean read fShowBuildDuration write fShowBuildDuration default false;
property globalCompiler: DCompiler write fGlobalCompiler; deprecated; property globalCompiler: DCompiler write fGlobalCompiler; deprecated;
// this only display a button that has for effect to free unused D GC mem.
property minimizeDlangMemory: TEditEvent read fMinimizeDlangMemory write setMinimizeDlangMemory stored false;
// property toolBarScaling: TToolBarScaling read fToolBarScaling write fToolBarScaling stored false; // property toolBarScaling: TToolBarScaling read fToolBarScaling write fToolBarScaling stored false;
// published for IEditableOptions but stored by DCD wrapper since it reloads before MainForm // published for IEditableOptions but stored by DCD wrapper since it reloads before MainForm
property dcdPort: word read fDcdPort write fDcdPort stored false; property dcdPort: word read fDcdPort write fDcdPort stored false;
@ -877,6 +881,11 @@ begin
fSplitterScrollSpeed:=value; fSplitterScrollSpeed:=value;
end; end;
procedure TApplicationOptionsBase.setMinimizeDlangMemory(value: TEditEvent);
begin
minimizeGcHeap(true);
end;
function TApplicationOptionsBase.getAdditionalPATH: string; function TApplicationOptionsBase.getAdditionalPATH: string;
begin begin
exit(u_common.additionalPath); exit(u_common.additionalPath);