Skip to content

Commit 54f8839

Browse files
committed
Fix splash screen bug due to with statement removal
There was a memory access bug caused when with statement was removed.
1 parent b127989 commit 54f8839

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Src/FmSplash.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -237,7 +237,7 @@ function TSplashAligner.GetMainFormBounds(const AForm: TCustomForm): TRectEx;
237237
if not Settings.GetWdwState(Result, State) or (State = wsMaximized) then
238238
Result := Screen.WorkAreaRect; // we use workarea of primary monitor
239239
finally
240-
Free;
240+
Settings.Free;
241241
end;
242242
end;
243243

0 commit comments

Comments
 (0)