paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 03:36:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers, use finalization handler to free printer avoiding AV, issue #23859

Browse Source 
git-svn-id: trunk@43187 -
This commit is contained in:
jesus 2013-10-09 06:28:11 +00:00
parent 7ac8ef0af4
commit ae6aba0c87
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/printers.pas
View File

@ -1301,7 +1301,15 @@ begin
Result := fRightMargin; Result := fRightMargin;
end; end;
finalization
If Assigned(Printer) then procedure doFreePrinter;
begin
if Assigned(Printer) then
Printer.Free; Printer.Free;
Printer := nil;
end;
initialization
RegisterInterfaceFinalizationHandler(@doFreePrinter);
end. end.