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

DialogRes: destroy DialogGlyphs with interface finalization. solves issue #40015

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-23 09:34:53 +01:00
parent 74dfcb9fd5
commit 4d8f933b50
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/dialogres.pas
View File

@ -5,7 +5,7 @@ unit DialogRes;
interface interface
uses uses
LCLType, Graphics, Themes, Controls, ImgList, InterfaceBase, LCLIntf, SysUtils, Classes; LCLType, Graphics, Themes, Controls, ImgList, InterfaceBase, LCLIntf, LCLProc, SysUtils, Classes;
type type
TDialogImage = idDialogWarning..idDialogShield; TDialogImage = idDialogWarning..idDialogShield;
@ -107,8 +107,13 @@ begin
fDialogIndexes[AIndex] := GetImageIndex(DialogResName[AIndex]); fDialogIndexes[AIndex] := GetImageIndex(DialogResName[AIndex]);
end; end;
finalization procedure InterfaceFinal;
begin
FreeAndNil(DialogImages); FreeAndNil(DialogImages);
end;
initialization
RegisterInterfaceFinalizationHandler(@InterfaceFinal);
end. end.