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

UPD: Use BeginWaitCursor / EndWaitCursor (issue #699)

Browse source
This commit is contained in:
Alexander Koblov 2022-12-04 17:53:58 +03:00
commit 3efb7085a5
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fviewer.pas
View file

@ -708,7 +708,7 @@ begin
FileList.Text := aFileName;
end;
Screen.Cursor:= crHourGlass;
Screen.BeginWaitCursor;
try
if FPS_ISDIR(dwFileAttributes) then
aName:= IncludeTrailingPathDelimiter(aFileName)
@ -740,7 +740,7 @@ begin
Status.Panels[sbpFileName].Text:= aFileName;
finally
Screen.Cursor:= crDefault;
Screen.EndWaitCursor;
end;
end;
@ -1795,14 +1795,14 @@ begin
end;
if (NewSize <> ViewerControl.FileSize) then
begin
Screen.Cursor:= crHourGlass;
Screen.BeginWaitCursor;
try
ViewerControl.FileName := ViewerControl.FileName;
ActivatePanel(pnlText);
FLastSearchPos := -1;
ViewerControl.GoEnd;
finally
Screen.Cursor:= crDefault;
Screen.EndWaitCursor;
end;
end;
end;