mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Option to change editor wait time

Browse source
This commit is contained in:
Alexander Koblov 2016-06-18 20:38:49 +00:00
commit b810bf3c99
3 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ffileexecuteyourself.pas
View file

@ -72,7 +72,7 @@ begin
begin
FWaitData:= aWaitData;
// Show wait window
Show;
Visible := True;
end;
end;
@ -131,7 +131,6 @@ procedure TfrmFileExecuteYourSelf.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
CloseAction:= caFree;
if Assigned(FWaitData) then EditDone(FWaitData);
end;
procedure TfrmFileExecuteYourSelf.FormCreate(Sender: TObject);
@ -156,6 +155,7 @@ begin
// Delete the temporary file source and all files inside.
FFileSource:= nil;
inherited Destroy;
if Assigned(FWaitData) then EditDone(FWaitData);
end;
end.

4
src/uglobs.pas
View file

@ -478,6 +478,7 @@ var
gTextPosition:PtrInt;
{ Editor }
gEditWaitTime: Integer;
gEditorSynEditOptions: TSynEditorOptions;
{SyncDirs}
@ -1590,6 +1591,7 @@ begin
gViewerHeight:=Screen.WorkAreaHeight;
{ Editor }
gEditWaitTime := 2000;
gEditorSynEditOptions := SYNEDIT_DEFAULT_OPTIONS;
{SyncDirs}
@ -2801,6 +2803,7 @@ begin
Node := Root.FindNode('Editor');
if Assigned(Node) then
begin
gEditWaitTime := GetValue(Node, 'EditWaitTime', gEditWaitTime);
gEditorSynEditOptions := TSynEditorOptions(GetValue(Node, 'SynEditOptions', Integer(gEditorSynEditOptions)));
end;
@ -3266,6 +3269,7 @@ begin
{ Editor }
Node := FindNode(Root, 'Editor',True);
SetValue(Node, 'EditWaitTime', gEditWaitTime);
SetValue(Node, 'SynEditOptions', Integer(gEditorSynEditOptions));
{ SyncDirs }

2
src/ushowform.pas
View file

@ -338,7 +338,7 @@ begin
Process.Execute;
Process.Free;
if GetTickCount64 - StartTime < 800 then
if GetTickCount64 - StartTime < gEditWaitTime then
begin
Synchronize(@ShowWaitForm);
end