0002941: MergePolygonsProgress: Cannot focus a disabled or invisible window

SASGIS - SAS.Планета
View Issue Details

ID	Project	Category	View Status	Date Submitted	Last Update
0002941	SAS.Планета	[All Projects] Баг	public	10-01-2016 12:45	11-01-2016 18:18

Reporter	Garl
Assigned To	zed
Priority	normal	Severity	minor	Reproducibility	have not tried
Status	resolved	Resolution	fixed
Platform	Windows	OS	7	OS Version	Professional
Product Version	.Nightly
Target Version	160606	Fixed in Version	160606

Summary	0002941: MergePolygonsProgress: Cannot focus a disabled or invisible window
Description	при закрытии приложения вылетело, ничего особенного не делал. объединил 1 полигон и делал много копирований кэша...
Steps To Reproduce
Additional Information
Tags	No tags attached.
Relationships
Attached Files	SASPlanet.Debug.elf (69,421) 10-01-2016 12:45 https://bugtracker.sasgis.org/file_download.php?file_id=1996&type=bug

Issue History
Date Modified	Username	Field	Change
10-01-2016 12:45	Garl	New Issue
10-01-2016 12:45	Garl	File Added: SASPlanet.Debug.elf
10-01-2016 13:08	zed	Summary	EInvalidOperation => MergePolygonsProgress: Cannot focus a disabled or invisible window
10-01-2016 13:08	zed	Status	new => confirmed
10-01-2016 13:13	zed	Note Added: 0016977
10-01-2016 13:14	zed	Target Version	=> 160606
11-01-2016 18:18	zed	Status	confirmed => resolved
11-01-2016 18:18	zed	Fixed in Version	=> 160606
11-01-2016 18:18	zed	Resolution	open => fixed
11-01-2016 18:18	zed	Assigned To	=> zed

Notes

Помню копипастил этот кусок кода из какой-то формы и видно лишнего захватил:



procedure TfrmMergePolygonsProgress.FormClose(

  Sender: TObject;

  var Action: TCloseAction

);

begin

  CancelOperation;

  Action := caHide;

  Application.MainForm.SetFocus; // <-- сюда ругается

end;