paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28: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
uses
LCLType, Graphics, Themes, Controls, ImgList, InterfaceBase, LCLIntf, SysUtils, Classes;
LCLType, Graphics, Themes, Controls, ImgList, InterfaceBase, LCLIntf, LCLProc, SysUtils, Classes;
type
TDialogImage = idDialogWarning..idDialogShield;
@ -107,8 +107,13 @@ begin
fDialogIndexes[AIndex] := GetImageIndex(DialogResName[AIndex]);
end;
finalization
procedure InterfaceFinal;
begin
FreeAndNil(DialogImages);
end;
initialization
RegisterInterfaceFinalizationHandler(@InterfaceFinal);
end.