pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: No wait-cursor while ical import preview is shown.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8378 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-10 21:37:32 +00:00
parent 47dcca9bed
commit 4596ff2bef
2 changed files with 4 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vpdayview.pas
View File

@ -1351,14 +1351,8 @@ begin
dlg.FileName := '';
dlg.Options := dlg.Options + [ofAllowMultiSelect, ofFileMustExist];
if dlg.Execute then begin
Screen.Cursor := crHourGlass;
try
Application.ProcessMessages;
for fn in dlg.Files do
ImportICalFile(fn, dlg.Files.Count = 1);
finally
Screen.Cursor := crDefault;
end;
for fn in dlg.Files do
ImportICalFile(fn, dlg.Files.Count = 1);
end;
finally
dlg.Free;

10
components/tvplanit/source/vpweekview.pas
View File

@ -1331,14 +1331,8 @@ begin
dlg.FileName := '';
dlg.Options := dlg.Options + [ofAllowMultiSelect, ofFileMustExist];
if dlg.Execute then begin
Screen.Cursor := crHourGlass;
try
Application.ProcessMessages;
for fn in dlg.Files do
ImportICalFile(fn, dlg.Files.Count = 1);
finally
Screen.Cursor := crDefault;
end;
for fn in dlg.Files do
ImportICalFile(fn, dlg.Files.Count = 1);
end;
finally
dlg.Free;