mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Access violation if can not determine current monitor (issue 0000667)

Browse source
This commit is contained in:
Alexander Koblov 2013-05-14 13:01:14 +00:00
commit 46ef287ffd
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/uglobs.pas
View file

@ -764,12 +764,16 @@ begin
Result:= TIniPropStorageEx.Create(Owner);
Result.IniFileName:= gpCfgDir + 'session.ini';
if Owner is TCustomForm then
with Owner as TCustomForm do
begin
with Owner as TCustomForm do
begin
if (Monitor = nil) then
Result.IniSection:= ClassName
else begin
sWidth:= IntToStr(Monitor.Width);
sHeight:= IntToStr(Monitor.Height);
Result.IniSection:= ClassName + '(' + sWidth + 'x' + sHeight + ')';
end;
end;
end;
procedure FontToFontOptions(Font: TFont; out Options: TDCFontOptions);